返回狼盟编程首页
编程搜索 [狼盟旧档]
论坛统计


请输入搜索关键字:
├─◆ 狼盟首页 > 查看贴子 > 详细信息

楼主

求助!一个简单的ASP页子不会弄!


我自己做了个ASP页子,可是它却不没用.提交不了.代码在下面.不知道错了哪!

<html>



<head>

<style>

td{font-size:9pt;line-height:140%}

body{font-size:9pt;line-height:140%}



a:link          { color: #000000; text-decoration: none }

a:visited       { color: #000000; text-decoration: none }

a:active        { color: #FF0080; text-decoration: none }

a:hover         { color: #FF0080; text-decoration: none }

.style1 {color: #FF0000}

</style>



<meta http-equiv="Content-Language" content="zh-cn">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>网上报名系统</title>

</head>

<script language="VBScript">

sub check()

if frm1.user.value=empty then

msgbox "请输入您名字"

focusto(0)

exit sub

end if

if frm1.sex.value=empty then

msgbox "请输入您的性别!"

focusto(1)

exit sub

end if

if frm1.xibie.value=empty then

msgboe "请输入您的系别!"

focusto(2)

exit sub

end if

if instrfrm1.class.value=empty then

  msgbox "请输入您的班级!"

  focusto(1)

exit sub

end if

if frm1.adress.value=empty then

msgbox "请输入您的寝室!"

focusto(1)

exit sub

end if

if frm1.tele.value=empty then

msgbox "请输入您的联系电话!"

focusto(2)

exit sub

end if

if frm1.qq.value=empty then

  msgboe "请输入您的QQ!"

  focusto(2)

exit sub

end if

frm1.submit        

end sub

sub focusto(x)

document.frm1.elements(x).focus()

end sub

</script>









409535055 [ 1 楼 ]
2005-10-19 22:12:00
将所有的代码。
如:if frm1.sex.value=empty then
用if frm1.sex.value="" then 替换
即将empty替换为""

---------------------------------
我没有实践过,不知道行不行。