神马品牌网团锦结的编法图解视频:急急急，谁能帮忙补充下代码？？？
来源：百度文库 编辑：神马品牌网 时间：2024/05/12 06:53:06
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>
<html>
<body>
<form runat="server">
学号:<asp:textbox runat="server" id="num"/><p>
姓名:<asp:textbox runat="server" id="name"/><p>
电话:<asp:textbox runat="server" id="tel"/><p>
专业:<asp:textbox runat="server" id="spec"/><p>
<asp:button runat="server" text="添加" onclick="button_click"/>
<asp:table runat="server" id="table1" border=1 cellpadding=2 cellspacing=1/>
</form>
</body>
</html>
<script runat="server" language="vb">
sub outputtotable(rd as oledbdatareader)
dim i as integer
dim row as tablerow
dim cell as tablecell
row = new tablerow()
for i=0 to rd.fieldcount-1
cell= new tablecell()
cell.text=rd.getname(i)
row.cells.add(cell)
next
table1.rows.add(row)
while rd.read()
row=new tablerow
for i=0 to rd.fieldcount-1
cell=new tablecell()
cell.text=rd.item(i)
row.cells.add(cell)
next
table1.rows.add(row)
end while
end sub
sub button_click(sender as object,e as eventargs)
dim conn as oledbconnection
dim cmd as oledbcommand
dim rd as oledbdatareader
dim pro="provider=microsoft.jet.oledb.4.0"
dim db="data source=" &server.mappath("student.mdb")
conn=new oledbconnection(pro &";" &db)
conn.open()
dim sql="insert into jw(学号,姓名,电话,专业) values(@学号,@姓名,@电话,@专业)"
cmd=new oledbcommand(sql,conn)
cmd.parameters.add(new oledbparameter("@学号",oledbtype.integer))
cmd.parameters.add(new oledbparameter("@姓名",oledbtype.char,20))
cmd.parameters.add(new oledbparameter("@电话",oledbtype.integer))
cmd.parameters.add(new oledbparameter("@专业",oledbtype.char,20))
cmd.parameters("@学号").value=val(num.text)
cmd.parameters("@姓名").value=name.text
cmd.parameters("@电话").value=val(tel.text)
cmd.parameters("@专业").value=spec.text
cmd.executenonquery()
conn.close()
end sub
</script>
谁能帮忙补充下代码使其能按下按钮后显示数据。显示在按钮下空白处
输入信息，点击按钮后将插入的记录显示在按钮下。。。
<%@ import namespace="system.data.oledb" %>
<html>
<body>
<form runat="server">
学号:<asp:textbox runat="server" id="num"/><p>
姓名:<asp:textbox runat="server" id="name"/><p>
电话:<asp:textbox runat="server" id="tel"/><p>
专业:<asp:textbox runat="server" id="spec"/><p>
<asp:button runat="server" text="添加" onclick="button_click"/>
<asp:table runat="server" id="table1" border=1 cellpadding=2 cellspacing=1/>
</form>
</body>
</html>
<script runat="server" language="vb">
sub outputtotable(rd as oledbdatareader)
dim i as integer
dim row as tablerow
dim cell as tablecell
row = new tablerow()
for i=0 to rd.fieldcount-1
cell= new tablecell()
cell.text=rd.getname(i)
row.cells.add(cell)
next
table1.rows.add(row)
while rd.read()
row=new tablerow
for i=0 to rd.fieldcount-1
cell=new tablecell()
cell.text=rd.item(i)
row.cells.add(cell)
next
table1.rows.add(row)
end while
end sub
sub button_click(sender as object,e as eventargs)
dim conn as oledbconnection
dim cmd as oledbcommand
dim rd as oledbdatareader
dim pro="provider=microsoft.jet.oledb.4.0"
dim db="data source=" &server.mappath("student.mdb")
conn=new oledbconnection(pro &";" &db)
conn.open()
dim sql="insert into jw(学号,姓名,电话,专业) values(@学号,@姓名,@电话,@专业)"
cmd=new oledbcommand(sql,conn)
cmd.parameters.add(new oledbparameter("@学号",oledbtype.integer))
cmd.parameters.add(new oledbparameter("@姓名",oledbtype.char,20))
cmd.parameters.add(new oledbparameter("@电话",oledbtype.integer))
cmd.parameters.add(new oledbparameter("@专业",oledbtype.char,20))
cmd.parameters("@学号").value=val(num.text)
cmd.parameters("@姓名").value=name.text
cmd.parameters("@电话").value=val(tel.text)
cmd.parameters("@专业").value=spec.text
cmd.executenonquery()
conn.close()
end sub
</script>
谁能帮忙补充下代码使其能按下按钮后显示数据。显示在按钮下空白处
输入信息，点击按钮后将插入的记录显示在按钮下。。。