数据库无法写入记录
我的ASP文件利用SQL语句无法向ACCESS数据库写入记录,也无法更新记录,,请问是什么原因?代码如下<!--#includefile="conn.asp"--><%d...
我的ASP文件利用SQL语句无法向ACCESS数据库写入记录,也无法更新记录,,请问是什么原因?代码如下
<!--#include file="conn.asp"-->
<%
dim rs,sql
dim modify
dim id
dim title,content,act
id=replace(trim(request("id")))
modify=request.QueryString("act")
id=2
if modify="modify" then
sql="update News set"
sql=sql&"[Title]='"&replace(trim(request.Form("title")),"'","’")&"'"
sql=sql&"[Title]='"&replace(trim(request.Form("content")),"'","’")&"'"
sql=sql&"where [ID]="&id&""
conn.execute(sql)
response.Redirect("news_list.asp?id="& id &"&type="& ntypeId)
else
sql="select * from News where ID="& id
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof then
response.Write sql
response.Write "输入错误,请重试!"
response.End()
end if
title=rs("Title")
content=rs("Content")
rs.close()
set rs=nothing
end if
Closeconn()
%>
<div align="center">编辑新闻</div>
<form name="form1" method="post" action="news_edit.asp?act=modify">
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center">新闻标题</td>
<td height="25"><label>
<input type="text" name="title" id="title" value="<%=title%>">
</label></td>
</tr>
<tr>
<td align="center">修 改</td>
<td><label>
<textarea name="content" id="content" cols="60" rows="10"><%=content%></textarea>
</label></td>
</tr>
<tr>
<td height="25" colspan="2"><div align="center">
<label>
<input type="submit" name="button" id="button" value="修改">
</label>
<label>
<input type="reset" name="button2" id="button2" value="重填">
</label>
</div></td>
</tr>
</table>
</form> 展开
<!--#include file="conn.asp"-->
<%
dim rs,sql
dim modify
dim id
dim title,content,act
id=replace(trim(request("id")))
modify=request.QueryString("act")
id=2
if modify="modify" then
sql="update News set"
sql=sql&"[Title]='"&replace(trim(request.Form("title")),"'","’")&"'"
sql=sql&"[Title]='"&replace(trim(request.Form("content")),"'","’")&"'"
sql=sql&"where [ID]="&id&""
conn.execute(sql)
response.Redirect("news_list.asp?id="& id &"&type="& ntypeId)
else
sql="select * from News where ID="& id
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof then
response.Write sql
response.Write "输入错误,请重试!"
response.End()
end if
title=rs("Title")
content=rs("Content")
rs.close()
set rs=nothing
end if
Closeconn()
%>
<div align="center">编辑新闻</div>
<form name="form1" method="post" action="news_edit.asp?act=modify">
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center">新闻标题</td>
<td height="25"><label>
<input type="text" name="title" id="title" value="<%=title%>">
</label></td>
</tr>
<tr>
<td align="center">修 改</td>
<td><label>
<textarea name="content" id="content" cols="60" rows="10"><%=content%></textarea>
</label></td>
</tr>
<tr>
<td height="25" colspan="2"><div align="center">
<label>
<input type="submit" name="button" id="button" value="修改">
</label>
<label>
<input type="reset" name="button2" id="button2" value="重填">
</label>
</div></td>
</tr>
</table>
</form> 展开
壹寰(深圳)科技文化有限公司
2021-03-27 广告
2021-03-27 广告
要找正规专业的公司,行业口碑也比较重要。这方面更多更全面的信息其实可以找下壹寰(深圳)科技文化有限公司。91数据恢复是壹寰(深圳)科技文化有限公司旗下专业数据恢复品牌,91数据恢复专注于勒索病毒数据恢复、勒索病毒数据修复、数据库修复、数据库...
点击进入详情页
本回答由壹寰(深圳)科技文化有限公司提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询