关于update问题
newupdate.asp--->new_updateto.asp
newupdate.asp代码
//可以正常显示
<html>
<head>
<title>修改新闻</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<div align="center">修改新闻 </div>
<hr>
<form ACTION="new_updateto.asp" METHOD="POST" name="form1">
<%
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("news.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs=server.createobject("adodb.recordset")
sql="SELECT * from tbNews where ID="&request("ID")
rs.open sql,conn,1,1
%>
<table width="75%" border="0" align="center">
<tr>
<td width="9%">
<div align="left"><font size="2">标题:</font></div>
</td>
<td width="90%">
<input type="text" name="NewsTitle" size="45" value=<%=rs("NewsTitle")%>>
</td>
<td width="1%"> </td>
</tr>
<tr>
<td width="9%" valign="top">
<div align="left"><font size="2">内容:</font></div>
</td>
<td width="90%">
<textarea rows=20 cols=80 name="NewsContent"><%=rs("NewsContent")%></textarea>
</td>
<td width="1%"> </td>
</tr>
<tr>
<td width="9%"> </td>
<td width="90%">
<input type="submit" name="Submit" value="修改新闻">
<input type="reset" name="Submit" value="清除重填">
</td>
<td width="1%"> </td>
</tr>
</table>
<%
rs.Close
conn.Close
%>
</form>
</body>
</html>
new_updateto.asp代码
//出现问题,提示:您要访问的页有问题,无法显示该页。
<%
ID=request("ID")
NewsTitle=request("NewsTitle")
NewsContent=request("NewsContent")
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("news.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs=Server.CreateObject("ADODB.recordset")
sql="update tbNews set NewsTitle='"&NewsTitle&"',NewsContent='"&NewsContent&"' where ID="&ID
set rs=conn.Execute(sql)
rs.close
conn.Close
response.redirect("news_browse.asp")
%>