Because it is simple, I don't say anything. I will understand it!
Function Chkstr (Instring) if Instring <> "" "" ",", "")? Instring = Replace (LCase (Instring), ";", "")? Instring = Replace LCASE (Instring), "'" "" Instring = Replace (LCase (Instring), ",", "" Instring = Replace (LCase (Instring), "%", "") Instring = Replace (Instring), "% 20", "") ?? Instring = Replace (LCASE (Instring), "Admin", "" Instring = Replace (Lcase (Instring), "And", "" )? Instring = Replace (LCase (Instring), "OR", "")? INSTRING = Replace (LCase (Instring), "ASC", "" Instring = Replace (Lcase (Instring), "Chr", "")? Instring = Replace (LCASE (Instring), "MID", "" "Instring = Replace (LCASE (Instring)," Len "," "Instring = Replace (Lcase (Instring)," SELECT "," ")? INSTRING = Replace (Instring)," INSERT "," ")? Instring = Replace (LCase (Instring)," DELETE "," "Instring = Replace (LCase (Instring)," Update "," ") ??? chkstr = instructionendness impunction
Function CheckFileExt (FileExt)? Dim FileAccessExt, AccessExt? AccessExt = "gif, jpg, jpeg, bmp, doc, txt, png"? FileAccessExt = Split (AccessExt, ",")? For i = LBound (FileAccessExt) to UBound ( FileAccessext) ?? if Lcase (FileExt) = LCase (FileAcCessext (i)) THEN ??? checkfileext = true ?? Else ??? checkfileext = false ?? end if? Nextend function
Function Checkstr (STR, ISSTR) Checkstr = Strif Isstr And Instr (Str, ",")> 0 THEN? CALL ERRMSG ("submitted characters included illegal characters") Elseif (not isnumeric (STR)) THEN Call errmsg ("Submit Not Digital") Endness FunctionSub Errmsg (STR)? If not isnull (str) Then ?? Response.write (str) & "
" Call Ascpy () ?? response. End ()? 'Very Improtan.stop Execute Program "HREF =' css' Type = 'TEXT / CSS' TYPE = 'Text / CSS'" ? Response.write "
"
??? response.write ("
Error happed!
Please contact ")
? Response.write ("name:
")? Response.write (" AlOnesword ")? Response.write (".
Thank you !!!
")
? Response.write "
Copyright © by
Building large networkTM
"
??? response.write "Last Modified: 21/08/2004
"
? Response.write ("Author:
Alonesword ")
? Response.write "
"
End Sub
?
summary:
The most well-worthy of learning is a reasonable use of Response.end (), very good. As long as there is an error, the operation is immediately terminated, and the opportunity to be later will ensure the safety of the data.