<% Response.ExpiresAbsolute = Now() - 1 Response.Buffer = True Response.Expires = 0 Response.cacheControl="no cache" Function FRequest(ByVal ChkStr) Dim Str Str = Trim(Request(ChkStr)) If IsNull(Str) Then FRequest = "" Exit Function End If Dim re Set re = new RegExp re.IgnoreCase = True re.Global = True re.Pattern = "(\r\n){3,}" Str = re.Replace(Str,"$1$1$1") Set re = Nothing Str = Replace(Str,"'","''") Str = Replace(Str, "--", "--") Str = Replace(Str, "/*", "/*") Str = Replace(Str, "*/", "*/") Str = Replace(Str, "select", "select") Str = Replace(Str, "join", "join") Str = Replace(Str, "union", "union") Str = Replace(Str, "where", "where") Str = Replace(Str, "insert", "insert") Str = Replace(Str, "delete", "delete") Str = Replace(Str, "update", "update") Str = Replace(Str, "like", "like") Str = Replace(Str, "drop", "drop") Str = Replace(Str, "create", "create") Str = Replace(Str, "modify", "modify") Str = Replace(Str, "rename", "rename") Str = Replace(Str, "alter", "alter") Str = Replace(Str, "cast", "cast") Str = Replace(Str, "ASPSESSIONIDCCDDTASQ", "") Str = Replace(Str, "ASPSESSIONIDCACATBSQ", "") FRequest = Str End Function on error resume next %> <!-- #include file="../admin/setting/conn.asp"--> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html lang="zh-TW"> <head> |
程式 : cat, pda ,timesheet01.asp
沒有留言:
張貼留言