划船作文,美国第十次,龙凤店妙妙
<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
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!!
点击进行留言回复
相关文章:
-
-
-
-
用vbs实现文本循环读取
因为测试中需要读取一批url数据进行浏览,其实使用qtp本身的table能实现多种读取方式,但是因为需要tabel是使用excel保存的,在没有...
[阅读全文]
-
-
-
-
-
-
-
网友评论