📄 addfd.asp
字号:
<html>
<!--#include file="../conn.asp"-->
<!--#include file="../inc/top1.inc"-->
<body bgcolor="#000000">
<%
cz=request("cz")
fdname=Request("fdname")
if fdname<>"" and cz="" then
StarTime = Timer():AccessNum=0
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from 我的好友 where 所属帐号='"&Request.Cookies("username")&"' and 好友用户名='"&fdname&"' "
rs.open sql,conn,1,3
if rs.bof and rs.eof then
rs.AddNew
rs("所属帐号")=Request.Cookies("username")
rs("好友用户名")=fdname
rs("加入时间")=date()+time()
rs.Update
Response.Write "<meta HTTP-EQUIV=refresh Content='1;url=LookUserInfo.asp?lookid=6'>"
Response.Write "<br><br><br><center>已经加入到你的好友名单</center><br><br><br><br>"
else
Response.Write "<meta HTTP-EQUIV=refresh Content='1;url=LookUserInfo.asp?lookid=6'>"
Response.Write "<br><br><br><center>这个好友已经存在</center><br><br><br><br>"
end if
rs.Close
else
if fdname<>"" and cz="del" then
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from 我的好友 where 所属帐号='"&Request.Cookies("username")&"' and 好友用户名='"&fdname&"' "
rs.open sql,conn,1,3
if rs.bof and rs.eof then
Response.Write "<meta HTTP-EQUIV=refresh Content='1;url=LookUserInfo.asp?lookid=6'>"
Response.Write "<br><br><br><center>没有这个好友</center><br><br><br><br>"
else
rs.delete
rs.update
rs.close
Response.Write "<meta HTTP-EQUIV=refresh Content='1;url=LookUserInfo.asp?lookid=6'>"
Response.Write "<br><br><br><center>"+fdname+" 好友删除成功</center><br><br><br><br>"
end if
else
Response.Write "<br><br><br><center>参数错误</center><br><br><br><br>"
end if
end if
EndTime = Timer()
%>
<!--#include file="../inc/tom1.inc"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -