addsc.asp

仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板

<!--#include file="../conn.asp"-->
<!--#include file="../inc/top1.inc"-->
<% StarTime = Timer():AccessNum=0
   pathfilename=Request("pathfilename")
   titlename=Request("titlename")
 if pathfilename=""or titlename="" then
   if titlename="" then
   Response.Write "<meta HTTP-EQUIV=refresh Content='1;url=LookUserInfo.asp?lookid=5'>"
   Response.Write "<br><br><br><center>参数错误!!!!!</center><br><br><br>"
   else
      AccessNum=AccessNum+1
      Set rs = Server.CreateObject("ADODB.Recordset")
      sql="select top 1 * from 收藏夹 where 所属帐号='"&Request.Cookies("username")&"' and 主题='"&titlename&"' "
      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=5'>"
        Response.Write "<br><br><br><center>没有找到这个数据</center><br><br><br><br>"
      else
        rs.Delete 
        rs.Update 
        Response.Write "<meta HTTP-EQUIV=refresh Content='1;url=LookUserInfo.asp?lookid=5'>"
        Response.Write "<br><br><br><center>已经删除</center><br><br><br><br>"
      end if
      rs.Close 
   end if
 else
     AccessNum=AccessNum+1
     Set rs = Server.CreateObject("ADODB.Recordset")
      sql="select top 1 * from 收藏夹 where 所属帐号='"&Request.Cookies("username")&"' and 主题='"&titlename&"' "
      rs.open sql,conn,1,3
     if rs.bof and rs.eof then
     rs.AddNew
     rs("所属帐号")=Request.Cookies("username")
     rs("主题")=titlename
     rs("路径及文件名")=pathfilename
     rs("加入时间")=date()+time()
     rs.Update 
     Response.Write "<meta HTTP-EQUIV=refresh Content='1;url=LookUserInfo.asp?lookid=5'>"
     Response.Write "<br><br><br><center>已经加入到你的收藏夹</center><br><br><br><br>"
     else
     Response.Write "<meta HTTP-EQUIV=refresh Content='1;url=LookUserInfo.asp?lookid=5'>"
     Response.Write "<br><br><br>"+titlename+"<br><center>这个主题在你的收藏夹中已经存在</center><br><br><br>"
     end if
     rs.Close 
 end if
     EndTime = Timer()
 %>
 <!--#include file="../inc/tom1.inc"-->