摘要： <% OptionExplicit Response.Buffer=True Response.Expires=-1 Session.TimeOut=60 CallCom_CreatValidCode("Validatecode") SubCom_CreatValidCode(pSN) ’禁止缓存 Response.Expires=-9999 Response.AddHeader"Pragma","no-cache" Response.AddHeader"Cache-Control","no-cac 阅读全文

摘要： <% Sub ImageValidCode(sName) Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" Response.ContentType = "Image/BMP" Randomize Dim i, ii, iii Const cOdds = 4 '杂点出现的机率 Const cAmount = 36 ' 阅读全文