Question

在线等:ASP后台读取和写入数据库的数据问题(提交后无错误信息提示)

主要代码如下:
<!--#include file="xp.asp"-->
<%if session("shopxpadmin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='shopxplogin.asp';</script>"
response.End
else
if session("scgg")=0 then
response.Write "<p align=center><font color=red>您没有此项目管理权限！</font></p>"
response.End
end if
end if
%>
<%dim action
action=request.QueryString("action")
'//保存信息
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shopxp_guang where ggid="&ggid,conn,1,1
rs("gg")=trim(request("gg"))
rs("ggurl")=request("ggurl")
rs("ggtype")=request("ggtype")
rs("ggswf")=trim(request("ggswf"))
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('网站资料修改成功！');history.go(-1);</script>"
end if%>

<form name="form1" method="post" action="guanggao.asp?action=save">
<br>
<table width="90%" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#FFFFFF">
<td width="21%" style="PADDING-LEFT: 6px">首页左广告一 (宽175)：<br>
不填写前台将不显示<br></td>
<td > <div align="center">
<textarea name="gg" cols="28" rows="3" id="gg" ><%=trim(rs("gg"))%></textarea>
</div></td>
<td width="29%" > <div align="center">
<input name="ggurl" class=input1 type="text" id="ggurl" size="28" value="<%=trim(rs("ggurl"))%>">
</div></td>
<td width="18%">
<input type="radio" name="ggtype" <% if rs("ggtype")=1 then %>checked<% end if %> value="1">Pic 
<input type=radio name="ggtype" <% if rs("ggtype")=0 then %>checked<% end if %> value="0 ">Flash </td>
</tr> <tr>
<td height="19" colspan="4" bgcolor="#E8F1FF" style="PADDING-LEFT: 6px"><div align="center">
<input class=input1 name=ad type="text" id="ad" size="60">
<input class=input2 type="button" name="Submit2" value="上传文件" onClick="window.open('../upfilepic_get.asp?formname=form1&editname=ad&uppath=img_shopxp/ad&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
(swf,gif,jpg)</div></td>
</tr>
<tr>
<td height="32" colspan="4" bgcolor="#E8F1FF" style="PADDING-LEFT: 6px"><div align="center">修改广告，请上传后拷贝到相应的输入框中</div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="32" colspan="10" style="PADDING-LEFT: 6px"> <div align="center">
<input type="submit" name="Submit" value="提交更改">
</div></td>
</tr>
</table>
</form>
<%rs.Close
set rs=nothing
%>
非常感谢,可是还是不行.请大家指教

Answer 1

rs.open "select * from shopxp_guang where ggid="&ggid,conn,1,1
改成：
rs.open "select * from shopxp_guang where ggid="&ggid,conn,3,3
试试
游标和指标必须是3才能更新数据.
还有,上面的代码是同一个页面的是吗?同属于guanggao.asp?

你的更新代码是写对了,但是在没有action="save"的情况下,是没有数据的查询语句的,那么input填表中的rs数据库数组是哪来的呢?

希望能帮到你.

Answer 2

rs.open "select * from shopxp_guang where ggid="&ggid,conn,1,1

改成：

rs.open "select * from shopxp_guang where ggid="&ggid,conn,1,3
==============================================================
不仅错误，你的页面逻辑有问题，你这个页面，能正常显示吗？是不是表单都看不到。
你在html里用rs，但是如果第一次打开，用户并没有提交表单，rs什么都没有，这里已经错误了。