您所在位置：主题：此段代码班级一项无法写入数据库，求解。勿喷
Auhoay018
[专家分：0] 发布于 2010-01-07 16:41:00
<%@ Page Language="VB"%>
<%@ Import Namespace="system.Data" %>
<%@ Import Namespace="system.Data.Oledb" %>
<head runat="server">
<title>学生管理系统</title>
<Script Language="VB" runat="server">
Dim conn As OleDbConnection
Dim conStr, comStr As String
Sub Page_Load(ByVal Sender As Object, ByVal e As EventArgs)
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data\database.mdb")
conn = New OleDbConnection(conStr)
conn.Open()
End Sub
Sub Button_Click(ByVal Sender As Object, ByVal e As EventArgs)
Dim com As OleDbCommand
comStr = "Select UserName From user1 Where UserName='" & Trim(Name.Text) & "'"
com = New OleDbCommand(comStr, conn)
Dim rd As OleDbDataReader
rd = com.ExecuteReader()
If rd.Read() Then
rd.Close()
Message.Text = "注册失败！此用户名已经有人使用，请选择另一个用户名重新注册。"
Exit Sub
Else
comStr = "insert into user1(UserName,Pwd,Power) values('" & Name.Text & "','" & Pwd.Text & "','" & Power.Text & "')"
com = New OleDbCommand(comStr, conn)
rd.Close()
com.ExecuteNonQuery()
conn.Close()
Response.Redirect("zccg.aspx")
End If
End Sub
</script>
</head>
<body background="images/01.jpg">
<form id="form1" runat="server">
<p>
<p>
<CENTER>
<strong><FONT size=6 COLOR="#AAC167">学生管理系统</FONT></strong>
<HR><P align="center">
<asp:Label id="Message" Forecolor="Red" runat="server"/><P>
用户名：<asp:TextBox id="Name" runat="server" size="14"/>
<asp:RequiredFieldValidator id="NameValid" ControlToValidate="Name" runat="server">
(请输入用户名！)
</asp:RequiredFieldValidator><p>
班级：<asp:TextBox id="class" runat="server" size="16"/>
<asp:RequiredFieldValidator id="classValid" ControlToValidate="class" runat="server">
(请输入班级名！)
</asp:RequiredFieldValidator><p>
密码：<asp:TextBox id="Pwd" TextMode="Password" runat="server" size="16"/>
<asp:RequiredFieldValidator id="PwdValid" ControlToValidate="Pwd" runat="server">
(请输入密码！)
</asp:RequiredFieldValidator><p>
确认密码：<asp:TextBox id="RePwd" TextMode="Password" runat="server" size="16"/>
<asp:RequiredFieldValidator id="RePwdValid" ControlToValidate="RePwd" runat="server">
(请输入确认密码！)
</asp:RequiredFieldValidator><p>
用户类型: <asp:TextBox id="Power" runat="server" size="14" TextMode="SingleLine" Text='普通用户' ReadOnly="true"/>
<asp:RequiredFieldValidator id="PowerValid" ControlToValidate="Power" runat="server">
(请输入用户类型！)
</asp:RequiredFieldValidator><p>
<asp:comparevalidator id="comparePwd" controltovalidate="RePwd" controltocompare="Pwd" errormessage="填写不正确！密码两次输入有异。" runat="server"/><P>
<asp:Button id="Entry" Text="提交" Runat="server" OnClick="Button_Click"/>
<label>
<input type="reset" name="button" id="button" value="重填">
</label>
<P>
<asp:Hyperlink id="Return" Text="返 回" Runat="server" NavigateUrl="index.aspx"/>
</CENTER>
</form>
</body>
</html>
本人刚学，希望大虾指教
<%@ Import Namespace="system.Data" %>
<%@ Import Namespace="system.Data.Oledb" %>
<head runat="server">
<title>学生管理系统</title>
<Script Language="VB" runat="server">
Dim conn As OleDbConnection
Dim conStr, comStr As String
Sub Page_Load(ByVal Sender As Object, ByVal e As EventArgs)
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data\database.mdb")
conn = New OleDbConnection(conStr)
conn.Open()
End Sub
Sub Button_Click(ByVal Sender As Object, ByVal e As EventArgs)
Dim com As OleDbCommand
comStr = "Select UserName From user1 Where UserName='" & Trim(Name.Text) & "'"
com = New OleDbCommand(comStr, conn)
Dim rd As OleDbDataReader
rd = com.ExecuteReader()
If rd.Read() Then
rd.Close()
Message.Text = "注册失败！此用户名已经有人使用，请选择另一个用户名重新注册。"
Exit Sub
Else
comStr = "insert into user1(UserName,Pwd,Power) values('" & Name.Text & "','" & Pwd.Text & "','" & Power.Text & "')"
com = New OleDbCommand(comStr, conn)
rd.Close()
com.ExecuteNonQuery()
conn.Close()
Response.Redirect("zccg.aspx")
End If
End Sub
</script>
</head>
<body background="images/01.jpg">
<form id="form1" runat="server">
<p>
<p>
<CENTER>
<strong><FONT size=6 COLOR="#AAC167">学生管理系统</FONT></strong>
<HR><P align="center">
<asp:Label id="Message" Forecolor="Red" runat="server"/><P>
用户名：<asp:TextBox id="Name" runat="server" size="14"/>
<asp:RequiredFieldValidator id="NameValid" ControlToValidate="Name" runat="server">
(请输入用户名！)
</asp:RequiredFieldValidator><p>
班级：<asp:TextBox id="class" runat="server" size="16"/>
<asp:RequiredFieldValidator id="classValid" ControlToValidate="class" runat="server">
(请输入班级名！)
</asp:RequiredFieldValidator><p>
密码：<asp:TextBox id="Pwd" TextMode="Password" runat="server" size="16"/>
<asp:RequiredFieldValidator id="PwdValid" ControlToValidate="Pwd" runat="server">
(请输入密码！)
</asp:RequiredFieldValidator><p>
确认密码：<asp:TextBox id="RePwd" TextMode="Password" runat="server" size="16"/>
<asp:RequiredFieldValidator id="RePwdValid" ControlToValidate="RePwd" runat="server">
(请输入确认密码！)
</asp:RequiredFieldValidator><p>
用户类型: <asp:TextBox id="Power" runat="server" size="14" TextMode="SingleLine" Text='普通用户' ReadOnly="true"/>
<asp:RequiredFieldValidator id="PowerValid" ControlToValidate="Power" runat="server">
(请输入用户类型！)
</asp:RequiredFieldValidator><p>
<asp:comparevalidator id="comparePwd" controltovalidate="RePwd" controltocompare="Pwd" errormessage="填写不正确！密码两次输入有异。" runat="server"/><P>
<asp:Button id="Entry" Text="提交" Runat="server" OnClick="Button_Click"/>
<label>
<input type="reset" name="button" id="button" value="重填">
</label>
<P>
<asp:Hyperlink id="Return" Text="返 回" Runat="server" NavigateUrl="index.aspx"/>
</CENTER>
</form>
</body>
</html>
本人刚学，希望大虾指教