耐腐蚀铝合金2024:ASP代码问题,急!

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/10 19:30:02
帮我看看以下这段代码出错出在什么地方了啊
提交的时候一直提示“已经申请过了,不用再次申请”
<!--#include file="conn.asp"-->
<% dim str ,logofrom,logolink
logofrom=request ("logofrom")
logolink=request ("logolink")
If logofrom="http://" then
Response.Write("<script language=javascript>alert('请输入您的LOGO地址!');history.back()</script>")
end if
if logolink="http://" then
Response.Write("<script language=javascript>alert('请输入您的网站地址!');history.back()</script>")
end if
if logofrom<>"http://" and logolink<>"http://" then
set rs=Server.Createobject("ADODB.Recordset")
str="select * from Friendship"
rs.open str,conndb,1,3
logofrom=rs("Friendship_img")
Response.Write("<script language=javascript>alert('您已经申请过了,不用再次申请!');window.close()</script>")
else
rs.addnew
rs("Friendship_img")=logolink
rs("Friendship_link")=logolink
rs.update
response.write "<script language='javascript'>"
response.write "alert('你已经成功加入,请等候站长的审核!');window.close()"
response.end
end if
set rs=nothing
set condb=nothing
%>

set rs=Server.Createobject("ADODB.Recordset")
str="select * from Friendship"
rs.open str,conndb,1,3
logofrom=rs("Friendship_img")
Response.Write("<script language=javascript>alert('您已经申请过了,不用再次申请!');window.close()</script>")

有错,logofrom=rs("Friendship_img") 因为指针就一直停在那...

你要

str="select * from Friendship where Friendship_img='"&logofrom&"'"
rs.open str,conndb,1,3
if not rs.EOF then '如果指针不为空
Response.Write("<script language=javascript>alert('已经有人使用,请从新申请!');window.close()</script>")
else
rs.addnew
...
end if

logofrom=rs("Friendship_img")
我已经回过你的帖子了,你没有循环查询,你查询的总是表Friendship_img中的第一个值,当然老是执行Response.Write("<script language=javascript>alert('您已经申请过了,不用再次申请!');window.close()</script>")
提示你错误信息了!