<%@ Page Language="vb" AutoEventWireup="false" Codebehind="reg.aspx.vb" Inherits="会员注册系统.注册窗体"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>注册数据</title>
<%Get_Cookies()%>
<script language="vb" runat="server">
Dim StrName As String
Dim Recipient As String
Dim Uid As String
Dim strSet As String
Sub Get_Cookies()
Dim NewCookie As HttpCookie
NewCookie = Request.Cookies("Rgister")
If (NewCookie Is Nothing) Then
StrName = ""
Recipient = ""
Uid = ""
strSet = ""
Else
StrName = NewCookie.Values("userName")
Recipient = NewCookie.Values("E_mail")
Uid = NewCookie.Values("uid")
strSet = NewCookie.Values("Set")
End If
End Sub
Sub DataCheck()
If reg.text1.value = "" Then
MsgBox("姓名不能为空 !",64,"oh no !")
focusto(0)
Exit Sub
End If
If InStr(reg.text2.value, "@") = 0 Then
MsgBox("不是有效地址",64,"oh no !")
focusto(3)
Exit Sub
End If
If reg.text3.value = "" Then
MsgBox("ID 不能为空")
Exit Sub
focusto(4)
End If
reg.Submit()
End Sub
Sub Focusto(X)
'document.reg.elements(x).focus()
End Sub
</script>
<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body MS_POSITIONING="GridLayout">
<h2><font color="blue">超级网络</font></h2>
<hr>
<p>欢迎进入</p>
<form id="Form1" name="reg" action="reg.aspx" method="post" runat="server">
<ul>
<li>
姓名: <input size=20 value="<%=strName%>" name=text1
><br>
<li>
性别 : <input type="radio" value="male" name="set">男 <input type="radio" value="female" name="set">女
<br>
<li>
E-mail : <input size=40 value="<%=Recipient%>"
name=text2><br>
<li>
ID :<input
style="Z-INDEX: 101; LEFT: 104px; POSITION: absolute; TOP: 256px" size=10
value="<%=uid%>" name=text3><br>
</li>
</ul>
<p><INPUT onclick="datacheck " type="button" value="注册数据"> <input type="reset" value="清除数据">
</p>
<FONT face="宋体"></FONT>
</form>
<H1><A href="15-03.aspx">取消注册</A>
</H1>
</body>
</HTML>
请大虾看看在运行时候提示是
编译器错误信息: BC30451: 名称“reg”未声明。
我的窗体上不上有了可还是错
请问该怎么做啊
