check_sqlin.asp

来自「为中小型企业与欲创业的个人提供一个合适的企业型网站」· ASP 代码 · 共 18 行

<% 
Response.buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"

Dim StratTimer,EndTimer,Tyi86_Sys_Execute
StratTimer=timer

Dim Query_Badword,Form_Badword,II,Err_Message,Err_Web,Name

'定义部份头
Err_Message = 2	
Err_Web = "Index.Asp"

%>