关于一个在后台修改数据库内容的问题

yinsedeshi 2009-03-19 11:17:02

大家好,我是一个刚刚在学习网站编程的菜鸟,在编写后台的时候,想通过后台修改数据库的内容,以下是我写的代码
<%@ import namespace="system.data"%>
<%@ import namespace="system.data.oledb"%>
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/aaa.css" rel="stylesheet" type="text/css">
<title>无标题文档</title>
</head>
<body>
<table><form runat="server">
<tr><td>标题:</td><td><asp:TextBox ID="biaoti" Columns="102" MaxLength="8" runat="server" /></td></tr>
<tr><td>作者:</td><td><asp:TextBox ID="zuozhe" Columns="52" MaxLength="8" runat="server" />是否推荐新闻：<asp:CheckBox runat="server" ID="tuijian"></asp:CheckBox></td></tr>
<tr><td>新闻编号:</td><td><asp:TextBox ID="xinwenbianhao" Columns="102" MaxLength="8" runat="server" /></td></tr>
<tr><td>分类:</td><td><asp:TextBox ID="fenlei" Columns="102" MaxLength="8" runat="server" /></td></tr>
<tr><td>日期:</td><td><asp:TextBox ID="riqi" Columns="102" MaxLength="8" runat="server" /></td></tr>
<tr><td>内容:</td><td><asp:TextBox ID="neirong" Columns="102" MaxLength="8" runat="server" TextMode="MultiLine" /></td></tr>
<tr><td><asp:Button ID="Button1" runat="server" Text="保存" OnClick="Button1_click" /></td></tr>
</form>
<script language="vb" runat="server">
Dim StrCol(7)

sub Page_load(obj as object,e as eventargs)
Dim conn As OledbConnection,ad As New OleDbCommand,bd As OleDbDataReader
Dim IntVisited,m%
dim a

conn=New OledbConnection("Provider=Microsoft.jet.OleDb.4.0;data source=" & Server.MapPath("/aspnet/数据库/music.mdb"))
conn.Open()

ad=New OleDbCommand("select * from newsinfo1 where 新闻编号=" &Request.QueryString("id"),conn) '连接数据表

bd=ad.ExecuteReader()

bd.read()

StrCol(0)=bd("title"):StrCol(1)=bd("pubtime"):StrCol(2)=bd("新闻编号")：StrCol(3)=bd("userid"):StrCol(5)=bd("content")：StrCol(4)=bd("catalogid"):StrCol(6)=bd("isrecomand")

bd.close
biaoti.text=StrCol(0)
zuozhe.text=StrCol(3)
xinwenbianhao.text=StrCol(2)
fenlei.text=StrCol(4)
riqi.text=StrCol(1)
neirong.text=StrCol(5)

conn.close()

end sub
</script>
<script language="vb" runat="server">

sub Button1_Click(obj as object,e as eventargs)

Dim conn As OledbConnection,cd As New OleDbCommand,rd As OleDbDataReader,a,b

conn=New OledbConnection("Provider=Microsoft.jet.OleDb.4.0;data source=" & Server.MapPath("/aspnet/数据库/music.mdb"))
conn.Open()
a=request.Form("biaoti")
b=request.Form("xinwenbianhao")

cd=New OleDbCommand("UPDATE newsinfo1 SET title="& a &" Where 新闻编号="& b, conn)
rd=cd.ExecuteReader()

conn.close()
end sub
</script>

</table>
</body>
</html>

但是当运行到cd=New OleDbCommand("UPDATE newsinfo1 SET title="& a &" Where 新闻编号="& b, conn)
rd=cd.ExecuteReader()
这句话时候总是出现"至少一个参数没有被指定值。"我是哪个参数没有指定,请各位高手帮我下.先在这里谢谢各位了.

...全文