各位大侠请帮忙看看，我用会员登陆，然后想看别的会员的联系方式，点击却返回页面，不知道那里出错了

weihanmingwhmwhm 2008-06-12 04:20:08

1.联系方式页面代码：
<img src="../images/lx8.gif" width="15" height="19" hspace="6" align="absmiddle"><a href="../../friend_hmd.asp?UserName=<%=UserName%>&MemberID=<%=MemberID%>&contact=yes"><u>联系方式</u></a>

2.判断代码：

<%dim submitok
submitok=replace(replace(request("submitok"),"'","''"),"<","<")
sendname=replace(replace(request("username"),"'","''"),"<","<")
sendMemberID=replace(replace(request("MemberID"),"'","''"),"<","<")
set rs=Server.CreateObject("ADODB.recordset")
rs.open"select username,loveb,grade from love_main where username='"&sendname&"'",conn,1,1
fromloveb=rs("loveb")
fromgrade=rs("grade")
rs.close:set rs=nothing
if sendname=username then
closeconn
call msg("不可以操作自已！","-1")
end if
IF submitok="friend" THEN
'添加好友''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
set rs=Server.CreateObject("ADODB.recordset")
rs.open"select username,sendusername from love_friend where username='"&sendname&"' and sendusername='"&username&"'",conn,1,1
If rs.bof and rs.eof Then
If fromgrade=1 or fromgrade=3 or fromgrade=4 Then '诚信会员、会长或钻石会员
conn.execute "insert into love_friend(senduserid,userid,username,sendusername,addtime)values('"&userid&"','"&sendMemberID&"','"&sendname&"','"&username&"','"&now()&"')" '加入到好友库
Elseif fromgrade=1 then'普通会员
conn.execute "insert into love_friend(senduserid,userid,username,sendusername,addtime)values('"&userid&"','"&sendMemberID&"','"&sendname&"','"&username&"','"&now()&"')" '加入到好友库
Elseif fromgrade=10 then'管理员
conn.execute "insert into love_friend(senduserid,userid,username,sendusername,addtime)values('"&userid&"','"&sendMemberID&"','"&sendname&"','"&username&"','"&now()&"')" '加入到好友库
Else
rs.close:set rs=nothing:closeconn
call msg("非法参数～！","-1")
End If
rs.close:set rs=nothing:closeconn
response.redirect"i_1_1.asp"
Else
rs.close:set rs=nothing:closeconn
call msg("①该用户已经成了你的好友\n\n②或已处于你的黑名单当中！","-1")
End If

ELSEIF submitok="delfriend" THEN
'删除好友

ELSEIF submitok="hmd" THEN
'添加黑名单

set rs=Server.CreateObject("ADODB.recordset")
rs.open"select username,sendusername from love_friend where username='"&sendname&"' and sendusername='"&username&"'",conn,1,1
If rs.bof and rs.eof Then

If fromgrade=2 or fromgrade=3 or fromgrade=4 Then '诚信会员、会长或钻石会员
conn.execute "insert into love_friend(senduserid,userid,username,sendusername,ifhmd,addtime)values('"&userid&"','"&sendMemberID&"','"&sendname&"','"&username&"','1','"&now()&"')" '列为黑名单
Elseif fromgrade=1 Then'普通会员
conn.execute "insert into love_friend(senduserid,userid,username,sendusername,ifhmd,addtime)values('"&userid&"','"&sendMemberID&"','"&sendname&"','"&username&"','1','"&now()&"')" '列为黑名单
Elseif fromgrade=10 Then
rs.close:set rs=nothing:closeconn
call msg("不能将“管理员”列为黑名单！","-1")
Else
rs.close:set rs=nothing:closeconn
call msg("非法参数～！","-1")
End If
rs.close:set rs=nothing:closeconn
response.redirect"i_2.asp"
Else
rs.close:set rs=nothing:closeconn
call msg("①该用户已处于你的黑名单当中！\n\n②或正是你的好友","-1")
End If

ELSEIF submitok="delhmd" THEN
'取消黑名单

ELSE
response.redirect"./"
END IF
%>
<%closeconn%>

我想能够用自己会的会员查看别人的联系方式，这代码中修改那里可以实现，现在经过验让却跳转了！

...全文