’如果出错显示 On Error GoTo 0 

’出错不显示.跳过错误执行下一行 On Error Resume Next 

’强制声明变量打开,如果变量不声明则出错误 Option Explicit 

’Asp程序缓冲区打开 Response.Buffer = True 

’设置Session失效时间 Session.Timeout = 20 

’设置页面语言(ANSI代码页为1252，日文代码页为932，简体中文代码页为936) %@LANGUAGE="VBSCRIPT" CODEPAGE="936"% 

’获得页面来源地址 Request.ServerVariables("HTTP_REFERER")

 ’设置超时时间 Server.ScriptTimeout = 9999    ’秒

 ’Instr搜索字符出现位置设置大小写不敏感 Instr(1,SearchWords,SearchenWords,1)

 ’使用Response.IsClientConnected是观察用户是否仍连到服务器并正在载入ASP创建的网页的有用方式 If Response.IsClientConnected Then Response.Flush Else Response.End End If

 ’刷新就变头像 <% dim JieImg Randomize JieImg = Int( Rnd * (13+1)) & ".jpg"           

’13为总图片数-1 Call ShowImg(JieImg) Sub ShowImg(ImgFileName) Dim strFilePath, strFileSize, strFileName Const adTypeBinary = 1 Response.Buffer = True strFileName=ImgFileName FilePath=Server.MapPath("images/"&strFileName) Response.Clear Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile FilePath strFileSize =objStream.size strFileType = lcase(Right(strFileName, 4)) Select Case strFileType Case ".gif" C Case ".jpg", "jpeg" C Case Else C End Select Response.AddHeader "Content-Length", strFileSize Response.Charset = "UTF-8" Response.ContentType = ContentType Response.BinaryWrite objStream.Read Response.Flush objStream.Close Set objStream = Nothing End Sub %> 

’后退清空缓存,刷新验证码 <% Response.expires=-1 Response.AddHeader"pragma","no-cache" Response.AddHeader"cache-control","no-store" %>