防SQL注入的VBSrcipt代码

<script language="vbscript">
function checkstr(strname)
strn=trim(strname.value)
str=trim(strname.value)
for i=1 to len(str)
strcheck=asc(left(str,1))
if not ((strcheck=<122 and strcheck>=97) or (strcheck<=90 and strcheck>=65) or (strcheck<=57 and strcheck>=48)) then
msgbox("请勿使用除英文字母及数字以外的字符！")
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("请勿使用数字以外的字符！")
document.all.txtMailSize.value=""
document.all.txtMailSize.focus
checknum=false
else if document.all.txtMailSize.value>5 or document.all.txtMailSize.value<0 then
msgbox("请填写5-0之间的数字！")
document.all.txtMailSize.value=""
document.all.txtMailSize.focus
checknum=false
end if
end if
end if
end function

function checkupdate()
checkupdate=true
if document.all.txtU_name.value="" or document.all.txtMailSize.value="" then
msgbox("您填写的信息不完全！")
checkupdate=false
end if
end function
function compare()
compare=true
if not document.all.txtRePsw.value =document.all.txtPsw.value then
msgbox("两次密码输入不一致！")
document.all.txtRePsw.focus
compare=false
end if
end function

用VBSrcipt判断是否是日期
SCRIPTLANGUAGE="vbScript"!--'判断是否是日期functionthisdate(dt)ifnotIsDate(dt)thenthisdate=falseelseifint(left(dt,4))int(1750)thenthisdate=falseelsethisdate=trueendifendfunction//--/SCRIPT

Stream、WshShell、WshUrlShortcut对象及Shell.Application的参数与使用
Kafree收集整理来源：论坛转载无法确定出处，如有版权问题请与我们联系1.Stream对象组件："Adodb.Stream"有下列方法：Cancel方法使用方法如下Object.Cancel说明

vbs实现的下拉框对应键入值
vbs实现的下拉框对应键入值选择自gu1dai的Blog关键字vbs实现的下拉框对应键入值TITLEselectcenter/TITLElinkrel="stylesheet"type="text/css"href="style.css"METANAME="Generator"CON