addfd.asp

来自「仿雅虎论坛静态生成html版后台管理：admin/admin.asp 用户」· ASP 代码 · 共 51 行

ASP

51 行

<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+"&nbsp;好友删除成功</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>

addfd.asp - 源码说明

本页面展示了「仿雅虎论坛静态生成html版后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板」中的 addfd.asp 源码文件，采用 ASP 编程语言编写，共 51 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与admin相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?