myfj.asp

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

<!--#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><font class=NavColor>我的附件箱</font>&nbsp;>>&nbsp;<a href=# onclick=history.go(-1)><font class=NavColor>返回</font></a></td></tr></table></center>"
    Response.Write "<center><table  border=0 width=743 cellspacing=0 cellpadding=0 align=center class=table1><tr align=center><td width=100 height=27 class=TBHead><font class=HeadFont><b>所属用户</b></font></td><td width=200 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>"
    AccessNum=AccessNum+1
    sql="SELECT * FROM 附件 where 所属用户='"&username&"' ORDER BY 上传时间 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
            Response.Write "<tr><td height=27 align=center class=light1>"&rs("所属用户")&"</td><td class=light>&nbsp;<a href=../upload/"&rs("附件名称")&" title=点击浏览 target=_blank>"&rs("附件名称")&"</a></td><td align=center class=light1>"&rs("附件类型")&"</td><td align=center>"&rs("附件大小")&"</td><td align=center class=light>"&cstr(rs("上传时间"))&"</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><%
     
    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"-->