我先调用数据库中数据,把这个数据放在表单中的一个文本域中,然后希望再提交后,可以保存对数据的修改
这是用于显示数据库中的信息部分的内容<%setrs=server.CreateObject("adodb.recordset")sql="select*fromyuan"...
这是用于显示数据库中的信息部分的内容
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from yuan"
rs.open sql,conn,1,3
%>
<form id="form1" name="form2" method="post" action="admin_modify.asp?action=edithope&id=<%=rs("id")%>">
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center">
<%
if rs.eof or rs.bof then
response.Write("暂无愿望可以选择!")
end if
for i=1 to rs.recordcount
%>
<tr height="30" valign="middle">
<td width="100" align="center">愿望<%=i%></td>
<td width="450"><textarea><%=rs("hope")%></textarea></td>
<td width="75" align="center"><a href="#" onclick="javascript:form1.submit();">保存修改</a></td>
<td width="75" align="center"><a href="admin_modify.asp?action=delhope&id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
这是admin_modify.asp中用于处理表单的函数
sub edithope()
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
sql="select * from yuan where id="&id
rs.open sql,conn,1,3
up="update yuan set hope='"&request.Form("hope")&"' where id="&id
conn.execute(up)
response.write("<script>alert('愿望修改成功!');location='edithope_admin.asp'</script>")
rs.close
set rs=nothing
end sub
高手帮忙看看,程序错在哪里,怎样修改???如果是方法有问题,希望可以告诉我应该使用什么样的方法? 展开
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from yuan"
rs.open sql,conn,1,3
%>
<form id="form1" name="form2" method="post" action="admin_modify.asp?action=edithope&id=<%=rs("id")%>">
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center">
<%
if rs.eof or rs.bof then
response.Write("暂无愿望可以选择!")
end if
for i=1 to rs.recordcount
%>
<tr height="30" valign="middle">
<td width="100" align="center">愿望<%=i%></td>
<td width="450"><textarea><%=rs("hope")%></textarea></td>
<td width="75" align="center"><a href="#" onclick="javascript:form1.submit();">保存修改</a></td>
<td width="75" align="center"><a href="admin_modify.asp?action=delhope&id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
这是admin_modify.asp中用于处理表单的函数
sub edithope()
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
sql="select * from yuan where id="&id
rs.open sql,conn,1,3
up="update yuan set hope='"&request.Form("hope")&"' where id="&id
conn.execute(up)
response.write("<script>alert('愿望修改成功!');location='edithope_admin.asp'</script>")
rs.close
set rs=nothing
end sub
高手帮忙看看,程序错在哪里,怎样修改???如果是方法有问题,希望可以告诉我应该使用什么样的方法? 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询