asp 数据库更新问题
<!--#includefile=connmessage.asp-->为什么我的代码总是更新不了数据库，无论怎么也没有办法，我看了其他的数据库更新代码，和我的一样啊，也能...
<!--#include file=connmessage.asp-->
为什么我的代码总是更新不了数据库，无论怎么也没有办法，我看了其他的数据库更新代码，和我的一样啊，也能更新，为什么我的就不能更新了，与它同一个文件夹下的另一个程序也是用的以上的更新语句，也能更新的了，链接数据库的语句没有错误，因为在另一个asp文件中能够实现更新和查询。望大虾指教 展开
为什么我的代码总是更新不了数据库，无论怎么也没有办法，我看了其他的数据库更新代码，和我的一样啊，也能更新，为什么我的就不能更新了，与它同一个文件夹下的另一个程序也是用的以上的更新语句，也能更新的了，链接数据库的语句没有错误，因为在另一个asp文件中能够实现更新和查询。望大虾指教 展开
3个回答
展开全部
<%
session("id")=Request.QueryString("id")
If session("id")="" Then
Response.Write "<script language='javascript'>"
Response.Write "alert('留言编号为空，参数据设置错误，请单击“确定”返回！');"
Response.Write "location.href='admintalk.asp';"
Response.Write "</script>"
Response.End
End If
If Request("save")<>"" Then '保存修改后的留言资料
If Trim(Request.Form("content"))="" Then '留言内容为空
Response.Write "<script language='javascript'>"
Response.Write "alert('留言内容不能为空！');"
Response.Write "location.href='javascript:history.go(-1)';"
Response.Write "</script>"
Response.End
End If
Set rs=Server.CreateObject("adodb.recordset")
sql = " select * from Message where del="&false& "And ID="&session("id")
rs.Open sql,conn,1,3
If Not (rs.EOF And rs.BOF) Then '更新数据库中的内容
rs("content")=Request.Form("content")
rs("Replay")=Replace(Request.Form("Replay"),vbCRLF,"<BR>")
rs("ReplayDate") = Now()
rs("ispublish")=Request.Form("ispublish")
rs("top")=Request.Form("top")
rs.update
Response.Write "<script language='javascript'>"
Response.Write "alert('留言已经修改或回复成功，请单击“确定”返回！');"
Response.Write "location.href='admintalk.asp'"
Response.Write "</script>"
Response.End
End If
rs.Close
End If
'显示详细资料
Set rs = Server.CreateObject("adodb.recordset")
sql = "select * from [Message] where ID="&session("id")
rs.Open sql,conn,1,1
If rs.EOF And rs.BOF Then
Response.Write "<script language='javascript'>"
Response.Write "alert('无此留言，请单击“确定”返回！');"
Response.Write "location.href='admintalk.asp';"
Response.Write "</script>"
Response.End
End If
content=Replace(rs("content"),"<BR>",vbCRLF)
If rs("replay")<>"" Then
replay=Replace(rs("Replay"),"<BR>",vbCRLF)
Else
replay=""
End If
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>修改（回复）留言</title>
<link rel="stylesheet" href="css.css" type="text/css">
<style>
<!--
table{border-collapse:collapse;}
.STYLE1 {
font-size: 18px;
font-weight: bold;
}
-->
</style>
</head>
<body>
<Form name="repl" method="post" action='modify.asp?id=<%=session("id")%>'>
<table border="0" align="center">
<tr>
<TD height=15 colspan="2" align="center"><span class="STYLE1">修改（回复）留言</span></TD>
</tr><tr><td align="right">
<a href=admintalk.asp>管理留言</a> </td>
</td></tr>
<tr><td>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0000CC">
<tr><TD width=20% height="20" align="right">留言日期</TD>
<td><%=rs("pubdate")%></td></tr>
<tr><TD align="right" width=20% height=20>留言人IP地址</TD>
<td><%=rs("IP")%></td></tr>
<tr><TD width=20% height="20" align="right">留言人姓名</TD>
<td><%=rs("UserName")%> </td></tr>
<tr><TD width=20% height="20" align="right">留言人邮箱</TD>
<td><%=rs("UserMail")%> </td></tr>
<tr><TD width=20% height="20" align="right">留言人网址</TD>
<td><%=rs("url")%> </td></tr>
<tr><TD align="right" width=20%>留言内容</TD><td><textarea style="overflow:auto" name="content" cols="60" rows="8"><%=content%></textarea></td></tr>
<tr><TD align="right" width=20%>回复内容</TD><td><textarea style="overflow:auto" name="Replay" cols="60" rows="8"><%=replay%></textarea> </td></tr>
<tr><TD width=20% height="20" align="right">是否置顶</TD>
<td><input type="radio" name="top" value="1" <%If rs("top")="1" Then%>checked<%End If%>>
置顶<input type="radio" name="top" value="0" <%If rs("top")="0" Then%>checked<%End If%>>
普通 </td></tr>
<tr>
<TD width=20% height="20" align="right">是否发布</TD>
<td><input type="radio" name="ispublish" value="0" <%If rs("ispublish")="0" Then%>checked<%End If%>>
隐藏<input type="radio" name="ispublish" value="1" <%If rs("ispublish")="1" Then%>checked<%End If%>>
发布</td></tr>
</TABLE></td></tr>
<TR><TD height="20" colspan="2" align="center">
<INPUT name="save" TYPE="hidden" value="ok">
<input type="submit" name="action" value="提交">
<input type="reset" name="Submit" value="重置"></TD></TR>
</table></Form>
<%
rs.Close
Set rs=NoThing
%>
</body>
</html>
这个是代码
session("id")=Request.QueryString("id")
If session("id")="" Then
Response.Write "<script language='javascript'>"
Response.Write "alert('留言编号为空，参数据设置错误，请单击“确定”返回！');"
Response.Write "location.href='admintalk.asp';"
Response.Write "</script>"
Response.End
End If
If Request("save")<>"" Then '保存修改后的留言资料
If Trim(Request.Form("content"))="" Then '留言内容为空
Response.Write "<script language='javascript'>"
Response.Write "alert('留言内容不能为空！');"
Response.Write "location.href='javascript:history.go(-1)';"
Response.Write "</script>"
Response.End
End If
Set rs=Server.CreateObject("adodb.recordset")
sql = " select * from Message where del="&false& "And ID="&session("id")
rs.Open sql,conn,1,3
If Not (rs.EOF And rs.BOF) Then '更新数据库中的内容
rs("content")=Request.Form("content")
rs("Replay")=Replace(Request.Form("Replay"),vbCRLF,"<BR>")
rs("ReplayDate") = Now()
rs("ispublish")=Request.Form("ispublish")
rs("top")=Request.Form("top")
rs.update
Response.Write "<script language='javascript'>"
Response.Write "alert('留言已经修改或回复成功，请单击“确定”返回！');"
Response.Write "location.href='admintalk.asp'"
Response.Write "</script>"
Response.End
End If
rs.Close
End If
'显示详细资料
Set rs = Server.CreateObject("adodb.recordset")
sql = "select * from [Message] where ID="&session("id")
rs.Open sql,conn,1,1
If rs.EOF And rs.BOF Then
Response.Write "<script language='javascript'>"
Response.Write "alert('无此留言，请单击“确定”返回！');"
Response.Write "location.href='admintalk.asp';"
Response.Write "</script>"
Response.End
End If
content=Replace(rs("content"),"<BR>",vbCRLF)
If rs("replay")<>"" Then
replay=Replace(rs("Replay"),"<BR>",vbCRLF)
Else
replay=""
End If
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>修改（回复）留言</title>
<link rel="stylesheet" href="css.css" type="text/css">
<style>
<!--
table{border-collapse:collapse;}
.STYLE1 {
font-size: 18px;
font-weight: bold;
}
-->
</style>
</head>
<body>
<Form name="repl" method="post" action='modify.asp?id=<%=session("id")%>'>
<table border="0" align="center">
<tr>
<TD height=15 colspan="2" align="center"><span class="STYLE1">修改（回复）留言</span></TD>
</tr><tr><td align="right">
<a href=admintalk.asp>管理留言</a> </td>
</td></tr>
<tr><td>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0000CC">
<tr><TD width=20% height="20" align="right">留言日期</TD>
<td><%=rs("pubdate")%></td></tr>
<tr><TD align="right" width=20% height=20>留言人IP地址</TD>
<td><%=rs("IP")%></td></tr>
<tr><TD width=20% height="20" align="right">留言人姓名</TD>
<td><%=rs("UserName")%> </td></tr>
<tr><TD width=20% height="20" align="right">留言人邮箱</TD>
<td><%=rs("UserMail")%> </td></tr>
<tr><TD width=20% height="20" align="right">留言人网址</TD>
<td><%=rs("url")%> </td></tr>
<tr><TD align="right" width=20%>留言内容</TD><td><textarea style="overflow:auto" name="content" cols="60" rows="8"><%=content%></textarea></td></tr>
<tr><TD align="right" width=20%>回复内容</TD><td><textarea style="overflow:auto" name="Replay" cols="60" rows="8"><%=replay%></textarea> </td></tr>
<tr><TD width=20% height="20" align="right">是否置顶</TD>
<td><input type="radio" name="top" value="1" <%If rs("top")="1" Then%>checked<%End If%>>
置顶<input type="radio" name="top" value="0" <%If rs("top")="0" Then%>checked<%End If%>>
普通 </td></tr>
<tr>
<TD width=20% height="20" align="right">是否发布</TD>
<td><input type="radio" name="ispublish" value="0" <%If rs("ispublish")="0" Then%>checked<%End If%>>
隐藏<input type="radio" name="ispublish" value="1" <%If rs("ispublish")="1" Then%>checked<%End If%>>
发布</td></tr>
</TABLE></td></tr>
<TR><TD height="20" colspan="2" align="center">
<INPUT name="save" TYPE="hidden" value="ok">
<input type="submit" name="action" value="提交">
<input type="reset" name="Submit" value="重置"></TD></TR>
</table></Form>
<%
rs.Close
Set rs=NoThing
%>
</body>
</html>
这个是代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Request.QueryString("id")
与
rs("content")=Request.Form("content")
rs("Replay")=Replace(Request.Form("Replay"),vbCRLF,"<BR>")
rs("ReplayDate") = Now()
rs("ispublish")=Request.Form("ispublish")
rs("top")=Request.Form("top")
传递方式都不一样，
sql = " select * from Message where del="&false& "And ID="&session("id")
把参数传递方式改规范吧。
与
rs("content")=Request.Form("content")
rs("Replay")=Replace(Request.Form("Replay"),vbCRLF,"<BR>")
rs("ReplayDate") = Now()
rs("ispublish")=Request.Form("ispublish")
rs("top")=Request.Form("top")
传递方式都不一样，
sql = " select * from Message where del="&false& "And ID="&session("id")
把参数传递方式改规范吧。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
报什么错？
代码贴出来
代码贴出来
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
