为什么表单在提交成功后没有自动清除。
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
添加新资料!
<form runat="server">
<Blockquote>
学号:<asp:TextBox runat="server" id="学号" /><br>
姓名:<asp:Textbox runat="server" id="姓名" /><br>
中文:<asp:Textbox runat="server" id="中文" /><br>
英文:<asp:Textbox runat="server" id="英文" /><br>
数学:<asp:Textbox runat="server" id="数学" /><br>
<asp:button runat="server" text="增加" onclick="InsertData" />
</Blockquote>
<asp:Label runat="server" id="Msg" forecolor="red" />
</form>
</BODY>
</HTML>
<script language="vb" runat="server">
Sub InsertData(sender As Object,E As EventArgs)
Dim conn As OledbConnection
Dim Cmd As OledbCommand
Dim Provider="provider=Microsoft.jet.oledb.4.0"
Dim Database="Data Source=" & server.Mappath("Mysample.mdb")
conn = New Oledbconnection(provider & ";" & database)
conn.open()
Dim Sql As String
Sql = "Insert into 成绩表 (学号,姓名,中文,英文,数学) Values(?,?,?,?,?)"
Cmd = New oledbcommand(sql, conn)
Cmd.Parameters.Add(New OledbParameter("学号",Oledbtype.Integer))
Cmd.Parameters.Add(New OledbParameter("姓名",Oledbtype.char,10))
Cmd.Parameters.Add(New OledbParameter("中文",oledbtype.smallint))
Cmd.parameters.Add(New OledbParameter("英文",oledbtype.smallint))
Cmd.parameters.Add(New OledbParameter("数学",oledbtype.smallint))
Cmd.parameters("学号").value = val(学号.text)
Cmd.parameters("姓名").value =姓名.text
Cmd.parameters("中文").value = val(中文.text)
Cmd.parameters("英文").value = val(英文.text)
Cmd.parameters("数学").value = val(数学.text)
Cmd.executeNonQuery()
If Err.Number<> 0 Then
Msg.Text = Err.Description
Else
Msg.Text = "添加成功!"
end if
Conn.Close()
End Sub
</script>