" TP=trim(request("TP")) if TP<>"" then ids=trim(request("ids")) if ids="" or IsNumeric(ids)=False then Call Error("ID无效！") end if '检查ID是否存在 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT id FROM users where id="&ids,conn,1,1 if rs.eof then rs.close set rs=Nothing Call Error("ID不存在！") end if rs.close set rs=Nothing if clng(ids)=myid then Call Error("不能加自己为好友！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from myfriend where cid="&myid&" and did="&ids,conn,1,2 if not rs.eof then Call Error("对方已经是你的好友！") end if rs.addnew rs("did")=IDS rs("cid")=myid rs.update rs.close set rs=nothing set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from guest",conn,1,2 rs.addnew rs("fnr")="会员"&myni&"(id:"&myid&")将您加为好友" rs("sid")=IDS rs("fid")=0 rs.update rs.close set rs=nothing Response.Write "添加好友成功！" else Response.Write "好友ID
" Response.Write "
" Response.Write "确定添加" Response.Write "" Response.Write "" Response.Write "" Response.Write "" end if Response.Write "
好友列表" end sub sub hait Response.Write "

" TP=trim(request("TP")) if TP<>"" then ids=trim(request("ids")) if ids="" or IsNumeric(ids)=False then Call Error("ID无效！") end if '检查ID是否存在 Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT id FROM users where id="&ids,conn,1,1 if rs.eof then Call Error("ID不存在！") end if rs.close set rs=Nothing if clng(ids)=myid then Call Error("不能加自己为黑名单！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from myhait where jid="&myid&" and bid="&ids,conn,1,2 if not rs.eof then Call Error("对方已经是你的黑名单！") end if rs.addnew rs("bid")=IDS rs("jid")=myid rs.update rs.close set rs=nothing set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from guest",conn,1,2 rs.addnew rs("fnr")="会员"&myni&"(id:"&myid&")将您加为黑名单" rs("sid")=IDS rs("fid")=0 rs.update rs.close set rs=nothing Response.Write "添加黑名单成功！" else Response.Write "黑名单ID
" Response.Write "
" Response.Write "确定添加" Response.Write "" Response.Write "" Response.Write "" Response.Write "" end if Response.Write "
黑名单列表" end sub conn.close set conn=nothing%>