×÷ÓãºÓÃASP³ÌÐò½«Ò³ÃæÖеĵ绰ºÅÂëÉú³ÉͼƬ¸ñʽ¡£
ÒÔÏÂÊÇÒýÓÃƬ¶Î£º
<%
Call Com_CreatValidCode(Request.QueryString("tel"))
Public Sub Com_CreatValidCode(pTel)

'----------½ûÖ¹»º´æ
Response.Expires = 0
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/BMP"
Randomize
Dim i, ii, iii ,rndColor,strLen,sql,rs
Const cOdds = 5 '------------ÔÓµã³öÏֵĻúÂÊ
Const str="0123456789-"
strLen = len(pTel)
rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
'-----------ÑÕÉ«µÄÊý¾Ý(×Ö·û£¬±³¾°)
Dim vColorData(1)
'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '----À¶0£¬ÂÌ0£¬ºì0£¨ºÚÉ«£©
'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----À¶250£¬ÂÌ236£¬ºì211£¨Ç³À¶É«£©
'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49) '---- À¶0£¬ÂÌ0£¬ºì0£¨ºÚÉ«£©
'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----À¶250£¬ÂÌ236£¬ºì211£¨Ç³À¶É«£©