UC知道求救asp修改新闻的错误
来源：百度知道 编辑：UC知道 时间：2024/05/24 08:15:30
代码如下：
<%
Dim id
id=Request.QueryString("id")
Session("id")=id
set rs=server.CreateObject("adodb.recordset")
dim strsql,rs
strsql="select * from news where id=" & id
set rs=conn.execute(strsql)
%>
<form name="form1" method="post" action="?action=add" onSubmit="return Validator.Validate(this,2)">
<table>
<tr>
<td>修改公司新闻</td>
</tr>
<tr>
<td>标题：</td>
<td><input name="product_name" value="<%=rs("biaoti")%>">
</td>
</tr>
<tr>
<td>发 布 人：</td>
<td><input name="sub_person" type="text"
<%
Dim id
id=Request.QueryString("id")
Session("id")=id
set rs=server.CreateObject("adodb.recordset")
dim strsql,rs
strsql="select * from news where id=" & id
set rs=conn.execute(strsql)
%>
<form name="form1" method="post" action="?action=add" onSubmit="return Validator.Validate(this,2)">
<table>
<tr>
<td>修改公司新闻</td>
</tr>
<tr>
<td>标题：</td>
<td><input name="product_name" value="<%=rs("biaoti")%>">
</td>
</tr>
<tr>
<td>发 布 人：</td>
<td><input name="sub_person" type="text"
表单要添加一个隐藏控件,提交ID,保存修改时要用到.
<tr>
<td><input type=hidden name=id value=<%=id%>> </td>
<td><input type="submit" name="Submit" value=" 提 交 ">
修改新闻代码:
<% if request.querystring("action")="add" then%>
<%
Dim biaoti
Dim neirong
Dim zuozhe
biaoti = Trim(Request.Form("biaoti"))
neirong = Trim(Request.Form("neirong"))
zuozhe = Trim(Request.Form("zuozhe"))
strsql="update biaoti set biaoti='"&biaoti&"',neirong='"&neirong&"',zuozhe='"&zuozhe&"' where id="&request("id") 'ID来自隐藏控件
conn.Execute(strsql)
end if
%>
用以上代码,换掉相应的代码即可