为什么表单在提交成功后没有自动清除。

afeng888 2003-08-20 01:32:08
<%@ 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>
...全文
79 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
edobnet 2003-08-20
  • 打赏
  • 举报
回复

Response.Redirect
也可以手动清除
TextBox1.Text="";
孟子E章 2003-08-20
  • 打赏
  • 举报
回复
Conn.Close()

Response.Redirect("thispageurl")

62,025

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧