1. <%  
2. function make_randomize(max_len,w_n) 'max_len 生成长度，w_n：0 可能包含字母，1：只为数字   
3.     randomize   
4.     for intcounter=1 to max_len   
5.         whatnext=int((1-0+1)*rnd+w_n)   
6.         if whatnext=0 then   
7.             upper=122   
8.             lower=97   
9.         else   
10.             upper=57   
11.             lower=48   
12.         end if   
13.         strnewpass=strnewpass & chr(int((upper-lower+1)*rnd)+lower)   
14.     next   
15.     make_randomize=strnewpass   
16. end function   
17.  
18. '生成安全码的图片。  
19. random_num=make_randomize(4,1)    '生成4位数字的安全码   
20. session("random_num")=random_num    '为么调用session，没有session的安全码是完全没有意义的。呵呵 .  
21.  
22. Set Jpeg = Server.CreateObject("Persits.Jpeg")    '调用组件   
23. Jpeg.Open Server.MapPath("t.jpg")    '打开准备的图片   
24. Jpeg.Canvas.Font.Color = &HFFFFFF   
25. Jpeg.Canvas.Font.Family = "Arial Black"   
26. Jpeg.Canvas.Font.Bold = false   
27. Jpeg.Canvas.PrintText 0, -2, random_num   
28. jpeg.save Server.MapPath("tt.jpg")    '保存  
29. %>  
30. <img src="tt.jpg" border="0" align="absmiddle"> 

<%
function make_randomize(max_len,w_n) 'max_len 生成长度，w_n：0 可能包含字母，1：只为数字
randomize
for intcounter=1 to max_len
whatnext=int((1-0+1)*rnd+w_n)
if whatnext=0 then
upper=122
lower=97
else
upper=57
lower=48
end if
strnewpass=strnewpass & chr(int((upper-lower+1)*rnd)+lower)
next
make_randomize=strnewpass
end function

'生成安全码的图片。
random_num=make_randomize(4,1)    '生成4位数字的安全码
session("random_num")=random_num    '为么调用session，没有session的安全码是完全没有意义的。呵呵 .

Set Jpeg = Server.CreateObject("Persits.Jpeg")    '调用组件
Jpeg.Open Server.MapPath("t.jpg")    '打开准备的图片
Jpeg.Canvas.Font.Color = &HFFFFFF
Jpeg.Canvas.Font.Family = "Arial Black"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.PrintText 0, -2, random_num
jpeg.save Server.MapPath("tt.jpg")    '保存
%>
<img src="tt.jpg" border="0" align="absmiddle">

12、如何让AspJpeg组件支援数据库？

图片存进数据库只能以二进制数据保存，这里即利用AspJpeg的Binary方法，下面以两个AspJpeg用户手册上的代码为例，具体请参考AspJpeg用户手册：
view plaincopy to clipboardprint?

1. '从内存中打开图象  
2. Opening Images from Memory   
3. <% ' Using ADO, open database with an image blob  
4. strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/aspjpeg.mdb")  
5. Set rs = Server.CreateObject("adodb.recordset")  
6. SQL = "select image_blob from images2 where id = " & Request("id")  
7. rs.Open SQL, strConnect, 1, 3  
8. Set Jpeg = Server.CreateObject("Persits.Jpeg")  
9. ' Open image directly from recordset  
10. Jpeg.OpenBinary rs("image_blob").Value  
11. ' Resize  
12. jpeg.Width = Request("Width")  
13. ' Set new height, preserve original aspect ratio  
14. jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth  
15. Jpeg.SendBinary  
16. rs.Close  
17. %>  
18.  
19. '输出到内存  
20. <%  
21. ...  
22. Set rs = Server.CreateObject("adodb.recordset")  
23. rs.Open "images", strConnect, 1, 3  
24. rs.AddNew  
25. rs("image_blob").Value = Jpeg.Binary  
26. rs.Update  
27. ...  
28. %>