mysxzy.asp

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

<!--#include file="../conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="BtBBS_Fun.asp"--><%
login=Request.Cookies("login")
username=Request.Cookies("username")
StarTime = Timer():AccessNum=0
Call JCC_Board_Top
if login="Y" then
    page=Request("page")
    if page="" or page<1 then page=1 end if
    Call Login_EN
    Response.Write "<center><table width=743><tr><td height=30 class=light>&nbsp;<img src=../images/nav.gif>&nbsp;<a href=index.asp><font class=NavColor>论坛首页</a>&nbsp;>>&nbsp;</font><a href=mysxzy.asp><font class=NavColor>我的受限资源</font></a>&nbsp;>>&nbsp;<a href=# onclick=history.go(-1)><font class=NavColor>返回</font></a></td></tr></table></center>"
    AccessNum=AccessNum+1
    del=cint(Request.QueryString("del"))
    if del>0 then
      sql="SELECT top 1 * FROM DownFile where id="&del&" "
      Set rs = Server.CreateObject("ADODB.Recordset")
      rs.open sql,conn,1,3
      if not(rs.BOF and rs.EOF) then
         rs.Delete 
         rs.updata
         Response.Write "<br><br><br>删除成功,2秒后自动返回!!!<br><br><br><br>"
      else
         Response.Write "<br><br><br>参数有误,2秒后自动返回!!!<br><br><br><br>"
      end if
      %><meta HTTP-EQUIV=refresh Content='2;url=mysxzy.asp'><%
    else
      Response.Write "<center><table  border=0 width=743 cellspacing=0 cellpadding=0 align=center class=table1><tr align=center><td width=50 height=27 class=TBHead><font class=HeadFont><b>资源ID</b></font></td><td width=250 class=TBHead><font class=HeadFont><b>资源名称</b></font></td><td width=100 class=TBHead><font class=HeadFont><b>资源类型</b></font></td><td width=100 class=TBHead><font color=#f8b020 class=HeadFont><b>运行平台</b></font></td><td width=120 class=TBHead><font class=HeadFont><b>操作</b></font></td></tr>"
      sql="SELECT * FROM DownFile where user='"&username&"' ORDER BY ID desc "
      Set rs = Server.CreateObject("ADODB.Recordset")
      rs.open sql,conn,1,1
      if rs.bof and rs.EOF then
          Response.Write "<tr><td height=27 colspan=6 class=light><center>没有任何记录</center></td></tr>"
      else
          rs.pagesize=ListNum
          rs.absolutepage=page
          i=0
          while not rs.EOF and i<ListNum  '读出主题列表
              i=i+1
              if rs("LX")=1 then lx="影视" else if rs("LX")=2 then lx="音乐" else lx="下载" end if end if
              Response.Write "<tr><td height=27 align=center class=light1>"&rs("ID")&"</td><td class=light>&nbsp;"&rs("Name")&"</td><td align=center class=light1>"&LX&"</td><td align=center class=light>"&rs("YyPT")&"</td><td align=center class=light><a href=javascript:openScript('mysxzy_xg.asp?xg="&rs("id")&"',500,300)>修改</a>|<a href=mysxzy.asp?del="&rs("id")&">删除</a></td></tr>"
              rs.MoveNext 
          wend
      end if
      %></form><form name=dislist  method=post action=MyFJ.asp><table border=0 width=743 cellspacing=0 cellpadding=0 class=table1 height=28><tr><td width=250>第<%=page%>页&nbsp;共<%=rs.PageCount%>页&nbsp;本页<%=ListNum%>条&nbsp;主题数&nbsp;<%=rs.RecordCount%></td><td valign=top align=right><%=Pagination(rs.PageCount,Bmid)%> &nbsp;跳转到第<INPUT  class=fminpt name=page type=text size=3>页<input type=image src=../images/sch.gif border=0 id=image1 name=dislist WIDTH=17 height=14 align=absmiddle><img src=../images/null.gif width=5 height=2></td></tr></table></table></center><%
    end if
     
    rs.Close 
    set rs=nothing
    set conn=nothing
else
    Response.Write "<center><table width=743><tr><td valign=center><a href=reg.asp>注册</a>&nbsp;<img src=../images/splt.gif height=10>&nbsp;<a href=exit.asp>登陆</a>&nbsp;<img src=../images/splt.gif height=10>&nbsp;<a href=search.asp>检索</a><SCRIPT language=javascript>menu()</script></td></tr></table>"
    Response.Write "<center><table width=743><tr><td><a href=../index.asp><font class=NavColor>首页</a>&nbsp;>>&nbsp;</font><font class=NavColor>我的受限资源</font>&nbsp;>>&nbsp;<a href=# onclick=history.go(-1)><font class=NavColor>返回</font></a></td></tr></table></center>"
    Response.Write "<br><br><br>你登未登陆<br><br><br><br>"
end if
EndTime = Timer()
%><!--#include file="../inc/tom1.inc"-->