How to implement VBSrcipt code against SQL injection

Editor to share with you how to achieve anti-SQL injection of VBSrcipt code, I believe that most people do not know much about it, so share this article for your reference, I hope you can learn a lot after reading this article, let's go to know it!

Function checkstr (strname)

Strn=trim (strname.value)

Str=trim (strname.value)

For iTunes 1 to len (str)

Strcheck=asc (left (str,1))

If not ((strcheck==97) or (strcheck=65) or (strcheck=48)) then

Msgbox ("Please do not use characters other than English letters and numbers!")

Strname.value = left (strn,i-1)

Strname.focus

Exit for

End if

Str=Right (str,len (str)-1)

Next

End function

Function checknum ()

Checknum=true

If not document.all.txtMailSize.value= "" then

If not IsNumeric (document.all.txtMailSize.value) then

Msgbox ("do not use characters other than numbers!")

Document.all.txtMailSize.value= ""

Document.all.txtMailSize.focus

Checknum=false

Else if document.all.txtMailSize.value > 5 or document.all.txtMailSize.value