|
|
主题: 末解决的数据反回问题。
|
网络飞狐
职务：普通成员
等级：1
金币：0.0
发贴：38
|
#12002/5/20 8:37:57
www.gjdx.com/baoname/default.asp一个ASP报名表，但在反回数据时出了问题，就是在附言里面一定要留言，不然反回得就是上一个人的信息。 这是报名表http://211.91.255.56/temp/baoname1.zip ，哪个能帮我看看.先谢了。
|
5D荣誉斑竹
职务：普通成员
等级：3
金币：10.0
发贴：1480
|
#22002/5/20 9:55:30
上一帖就说过了.
你现在用留言作为SELECT的判断,
当然是不行的.
最好使用ID做为WHERE条件.
|
网络飞狐
职务：普通成员
等级：1
金币：0.0
发贴：38
|
#32002/5/20 10:15:02
谢谢班主。
应该怎么改代码呢？
|
5D荣誉斑竹
职务：普通成员
等级：3
金币：10.0
发贴：1480
|
#42002/5/20 10:35:05
改SET RS的那句SELECT的WHERE子句就可以了.
把条件改为数据库的ID字段.
|
网络飞狐
职务：普通成员
等级：1
金币：0.0
发贴：38
|
#52002/5/20 10:43:50
<% set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("gjdxbaonamedata/baonamemdb.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath tmpmess=Server.HtmlEncode(request.form("title")) tmpmess=replace(tmpmess,chr(10)," ") set rstmp=server.createobject("adodb.recordset") set rstmp=conn.execute("Select * from feedbackinfo Where comment='"&trim(tmpmess)&"'") if not rstmp.eof then response.write(" 对不起：您重复提交了相同的反馈信息，请您核实您的反馈信息！ 返 回>>")
else
str="Insert Into feedbackinfo (title,leixing,name,email,area,address,yb,phone,mess_date,mess_time,comment) values('"
str=str & request.form("title") & "','"
str=str & request.form("leixing") & "','"
str=str & request.form("name") & "','"
str=str & request.form("email") & "','"
str=str & request.form("area") & "','"
str=str & request.form("address") & "','"
str=str & request.form("yb") & "','"
str=str & request.form("phone") & "','"
str=str & request.form("comment") & "','"
str=str & cstr(DATE) & "','"
str=str & CStr(Time) & "','"
str=str & tmpmess & "')"
' Response.Write str
conn.execute(str)
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("Select * from feedbackinfo Where title='"&tmpmess&"'")
session.contents("comment")=tmpmess
%>
|
网络飞狐
职务：普通成员
等级：1
金币：0.0
发贴：38
|
#62002/5/20 10:44:36
set rstmp=conn.execute("Select * from feedbackinfo Where comment='"&trim(tmpmess)&"'")
是不是这条？
|
5D荣誉斑竹
职务：普通成员
等级：3
金币：10.0
发贴：1480
|
#72002/5/20 10:49:40
set rs=conn.execute("Select * from feedbackinfo Where title='"&tmpmess&"'")
这条!!
上面那条是用来判断是否已经提交过的.
|
网络飞狐
职务：普通成员
等级：1
金币：0.0
发贴：38
|
#82002/5/20 10:53:42
其它的不变就行了吗？
QQ里怎么你不通过？
|
网络飞狐
职务：普通成员
等级：1
金币：0.0
发贴：38
|
#92002/5/20 10:56:36
我这安照这样改一下就高成了“该页无法显示”了。
|
网络飞狐
职务：普通成员
等级：1
金币：0.0
发贴：38
|
|
5D荣誉斑竹
职务：普通成员
等级：3
金币：10.0
发贴：1480
|
#112002/5/20 11:10:01
<% set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("gjdxbaonamedata/baonamemdb.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath tmpmess=Server.HtmlEncode(request.form("comment")) tmpmess=replace(tmpmess,chr(10)," ") strTitle = request.form("title")set rstmp=server.createobject("adodb.recordset") set rstmp=conn.execute("Select * from feedbackinfo Where comment='"&trim(tmpmess)&"'") if not rstmp.eof then response.write(" 对不起：您重复提交了相同的反馈信息，请您核实您的反馈信息！ 返 回>>")
else
str="Insert Into feedbackinfo (title,leixing,name,email,area,address,yb,phone,mess_date,mess_time,comment) values('"
str=str & strTitle & "','"
str=str & request.form("leixing") & "','"
str=str & request.form("name") & "','"
str=str & request.form("email") & "','"
str=str & request.form("area") & "','"
str=str & request.form("address") & "','"
str=str & request.form("yb") & "','"
str=str & request.form("phone") & "','"
str=str & cstr(DATE) & "','"
str=str & CStr(Time) & "','"
str=str & tmpmess & "')"
' Response.Write str
conn.execute(str)
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("Select * from feedbackinfo Where Title='"&strTitle&"'")
session.contents("comment")=tmpmess
%>
|
5D荣誉斑竹
职务：普通成员
等级：3
金币：10.0
发贴：1480
|
#122002/5/20 11:10:47
帮你改为用名字判断,一般没什么问题.
改过或增加的地方用黑体表示了.
|
