请问大侠:我在后台修改记录后,如何保存?谢谢!

lgyqd 2005-09-13 06:20:00

请问大侠:我在后台修改记录后,如何实现保存?谢谢!

...全文

84 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

jingxiaoping 2005-09-14

打赏
举报

你把你的思路说一下，我现在看你的东西有些晕。

lgyqd 2005-09-14

打赏
举报

完整程序如下:

<html>
<head>
<title>1111 </title>

</head>
<BODY>.
<script language="javascript">
function confirmdel(id)
{
window.location.href="del.asp?id="+id+""
}
</script>
<%set rs=Server.CreateObject("adodb.recordset")
%>
<%
if request("add")<>"" then
'判断添加

sql="select * from db"
rs.Open sql,conn,1,3
rs.AddNew

rs("username")=request("username")
rs("password")=request("password")
rs.update
id=rs("id")
rs.close
edit="edit"
save="save"
else
'判断保存还是编辑

if request("save")="save" then
username=request("username")
password=request("password")
'判断保存
set rs=server.createobject("adodb.recordset")
'sql="select * from db where id="&clng(request("id"))
sql="update db set username='"&username&"',password='"&password&"' where id="&clng(request("id"))
' rs.open sql,conn,1,3

' rs("username")=username
' rs("password")=password
conn.execute(sql)
rs.Update
rs.Close
set rs=nothing

else
'编辑
id=request("id")
edit=request("edit")

end if
end if

%>

<table width="608" border="3" bordercolor="blue" ID="Table2">
<tr>
<td width="90"><p align="center">序号</p>
</td>
<td width="90"><p align="center">用户名</p>
</td>
<td width="90"><p align="center">密码</p>
</td>
<td width="200" colspan="3"><p align="center"> 操作</p>
</tr>

<%
sql="select* from db order by id"
rs.Open sql,conn,1,1
rs.PageSize=10
for i=1 to rs.RecordCount
%>
<tr>

<%if edit<>"" and cint(id)=cint(rs("id")) then%>
<td width="90"><%=rs("id")%></td>
<td width="90"><input type="text" name=username value="<%=rs("username")%>" ID="Text1"></p>
</td>
<td width="90"><input type="text" name=password value="<%=rs("password")%>" ID="Text4"></p>
</td>

<%else%>

<td width="90"><p align="center"> <%=rs("id")%></p></td>
<td width="90"><p align="center"> <%=rs("username")%></p>
</td>
<td width="90"><p align="center"> <%=rs("password")%></p>
</td>
<%end if%>
<td width="90"><div align="center"><a href="del.asp?id=<%=rs("id")%>" onclick="return confirmdel();">删除
</a></div></td>
<%if edit<>"" and cint(id)=cint(rs("id")) then%>

<td width="90"><div align="center"><a href="save.asp?id=<%=rs("id")%>&save=save" >保存</a></div></td>
<%else%>

<td width="90"><div align="center"><a href="admin.asp?id=<%=rs("id")%>&edit=edit" >编辑</a></div></td>
<%end if%>

</tr>
<%
rs.movenext%>
<%next
rs.Close %>
<form action="admin.asp" method="post" ID="Form1">
<table border="1" width="608" ID="Table1">
<tr>
<td width="200" colspan="6"><p align="right">
<input type="submit" name="add" value=" 添加 " ID="Submit1"></td>
</td>

</table>
</form>
<%

conn.close
set conn=nothing
%>
</BODY>
</html>

jingxiaoping 2005-09-13

打赏
举报

把你的程序贴全些。

lgyqd 2005-09-13

打赏
举报

上面的不行呀!为何原因?谢谢!

jingxiaoping 2005-09-13

打赏
举报

不过还是建议使用
sql="update db set username='"&username&"',password='"&password&"' where id="&clng(request("id"))
conn.execute(sql)

jingxiaoping 2005-09-13

打赏
举报

if request("save")="save" then
username=request("username")
password=request("password")
'判断保存
set rs=server.createobject("adodb.recordset")
sql="select * from db where id="&clng(request("id"))
'conn.execute (sql)
rs.open sql,conn,1,3

rs("username")=username
rs("password")=password

rs.Update
rs.Close
set rs=nothing
conn.close
set conn=nothing

lgyqd 2005-09-13

打赏
举报

请各位帮帮忙!!!!!11谢谢啦!

lgyqd 2005-09-13

打赏
举报

我的意思是:在后台管理页面修改一条记录后,点击"保存"后显示出来新记录!上面的代码为何不能实现呢?多谢各位鼎立相助!

lgyqd 2005-09-13

打赏
举报

例如:
if request("save")="save" then
username=request("username")
password=request("password")
'判断保存
sql="select * from db where id="&request("id")
'conn.execute (sql)
rs.open sql,conn,1,3

rs("username")=username
rs("password")=password

rs.Update
rs.Close
上面的代码应该如何修改?才能实现把修改后的记录保存并显示!