[开源][求助]讯录修改问题! - ASP技术论坛

楼主

问题点数：0 回复次数：10

[开源][求助]讯录修改问题!

其他的都可以正常使用,,就是修改的时候修改完了出错,,,,

[此贴子已经被作者于2007-8-6 22:33:27编辑过]

7GCSU4X9.rar (10.18 KB) [开源][求助]讯录修改问题!

oIF8K2nt.rar (10.46 KB) [开源][求助]讯录修改问题!

搜索更多相关主题的帖子: 开源　

第 2 楼

得分:0

不好意思哦,,刚才的modify没保存,,还有connk.asp没放上去,,现在好了,,,都上传了

第 3 楼

得分:0

modify.asp

[QUOTE]

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<%
dim sql
dim rs
dim id,user,password
id = request.querystring("id")
if not isnumeric(id) or id="" then
msg"非法操作"
else
if request.querystring("act")="modify" then
conn.execute("update [user] set [user]='"& user &"',password='"& password &"'")
msg "修改成功"
conn.close
set conn=nothing
else
set rs = server.createobject("adodb.recordset")
sql="select * from [user] where id="& id
rs.open sql,conn,1,1
if not rs.eof then
user = rs("user")
password = rs("password")
else
msg"记录不存在"
end if
rs.close
set rs =nothing
conn.close
set conn=nothing
end if
end if
%>
<body>
<form name="form1" method="post" action="modify.asp?act=modify&id=<%request.querystring("id")%>">
<table width="344" height="142" border="1" align="center">
<tr>
<td width="83" height="17">标题</td>
<td width="245"><input type="text" name="user" value="<%=user%>"></td>
</tr>
<tr>
<td>内容</td>
<td><textarea name="psw" cols="35" rows="10" ><%=password%></textarea> </td>
</tr>
<tr>
<td><input type="submit" name="Submit" value="确定"></td>

</tr>
</table>
</form>
</body>
</html>[/QUOTE]

[此贴子已经被作者于2007-8-6 17:31:46编辑过]

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

第 4 楼

得分:0

谢谢,,,我先一下先

[此贴子已经被作者于2007-8-6 17:45:06编辑过]

第 5 楼

得分:0

conn.execute("update [user] set [user]='"& user &"',password='"& password &"'")
改成
conn.execute("update [user] set [user]='"& request("user") &"',password='"& request("password") &"'")

第 6 楼

得分:0

试过了还是一样不行

第 7 楼

得分:0

<form name="form1" method="post" action="modify.asp?act=modify&id=<% request.querystring("id") %>">
红色的值是怎么得到的？

第 8 楼

得分:0

首先呢
55行：
<form name="form1" method="post" action="modify.asp?act=go&id=<%request.querystring("id")%>">
少了个等号：
<form name="form1" method="post" action="modify.asp?act=go&id=<%=request.querystring("id")%>">

RP 啊啊啊啊啊啊啊啊啊～～

然后呢，因为修改完毕后没有停止运行，所以运行到后面的代码会出错
在 31 行和 32 行的 end if 之间加一行：
Response.Redirect "ad.asp"

第 9 楼

得分:0

<%
dim rs3
dim sql3
sql3="select * from user where id="&request.form("id")
set rs1=server.createobject("adodb.recordset")
if request.querystring("act")="go" then
if not isnumeric(request.querystring("id")) or request.querystring("id")="" then
msg"参数不正确"
else
rs3.open rs1,conn,1,3 大家,,还是不行啊,,这句话的问题错误类型为:
microsoft vbscript 运行时错误(0x800a01a8)
缺少对象: ''
modify19行,,,就是这一行了

rs3("user")=request.form("user")
rs3("password")=request.form("psw")
rs3.update
end if
end if
%>
<%
dim sql
dim rs

set rs=server.createobject("adodb.recordset")
'rs.open conn
sql="select * from user where id="&request.querystring("id")
sql2="select * from user "
if request.querystring("act")="modify" then
if not isnumeric(request.QueryString("id")) or request.querystring("id")="" then
msg"非法操作"
else
rs.open sql,conn,1,1
end if
else
'rs.open sql2,conn,1,1

response.redirect "ad.asp"
end if

第 10 楼

得分:0

rs1.Open sql3, conn, 1, 3
是这样的吧...