<%
dim mbtitle
mbtitle=Request.QueryString("act")
if mbtitle="news" then start="个人文集 >> 采风列表"
if mbtitle="art" then start="个人文集 >> 文章列表"
if mbtitle="dj" then start="个人文集 >> 音乐列表"
if mbtitle="pic" then start="个人文集 >> 图片列表"
if mbtitle="down" then start="个人文集 >> 下载列表"
if mbtitle="web" then start="个人文集 >> 酷站列表"
if mbtitle="gq" then start="个人文集 >> 供求列表"
if mbtitle="hy" then start="个人文集 >> 黄页列表"

dim coypus_name
if request.querystring("action")<>"" then 
   coypus_name=request("action")
   if coypus_name="" or len(coypus_name)>20 or Instr(coypus_name,"=")>0 or Instr(coypus_name,"%")>0 or Instr(coypus_name,chr(32))>0 or Instr(coypus_name,"?")>0 or Instr(coypus_name,"&")>0 or Instr(coypus_name,";")>0 or Instr(coypus_name,",")>0 or Instr(coypus_name,"'")>0 or Instr(coypus_name,",")>0 or Instr(coypus_name,chr(34))>0 or Instr(coypus_name,chr(9))>0 or Instr(coypus_name,"")>0 or Instr(coypus_name,"$")>0 then
      response.Write"<script language=javascript>alert('参数非法或含有非法字符！！');history.back();</script>" & vbCrLf
      response.end
   else
      set rs=server.createobject("adodb.recordset")
      sql="select * from [user] where username='"&coypus_name&"'"
      rs.open sql,conn,1,1
      If rs.EOF And rs.BOF Then
      rs.close
      response.Write"<script language=javascript>alert('非法参数！找不到相关用户！');history.back();</script>" & vbCrLf
      response.end
      end if
   end if
else
if UserLogined<>True then
response.write"<SCRIPT language=JavaScript>alert(' 请登陆后操作，谢谢您的支持 ！');"
response.write"JavaScript:window.close()</SCRIPT>"
response.end
end if
   coypus_name=hx66_name
end if

dim news_sum,snews_sum,art_sum,sart_sum,dj_sum,sdj_sum,down_sum,sdown_sum,pic_sum,spic_sum,cs_sum,scs_sum
news_sum=conn.execute("select count(*) from news where tjuser='"&coypus_name&"'")(0)
snews_sum=conn.execute("select count(*) from news where passed=1 and tjuser='"&coypus_name&"'")(0)
art_sum=conn.execute("select count(*) from art where tjuser='"&coypus_name&"'")(0)
sart_sum=conn.execute("select count(*) from art where passed=1 and tjuser='"&coypus_name&"'")(0)
dj_sum=conn.execute("select count(*) from dj where tjuser='"&coypus_name&"'")(0)
sdj_sum=conn.execute("select count(*) from dj where passed=1 and tjuser='"&coypus_name&"'")(0)
down_sum=conn.execute("select count(*) from soft where tjuser='"&coypus_name&"'")(0)
sdown_sum=conn.execute("select count(*) from soft where passed=1 and tjuser='"&coypus_name&"'")(0)
pic_sum=conn.execute("select count(*) from pic where tjuser='"&coypus_name&"'")(0)
spic_sum=conn.execute("select count(*) from pic where passed=1 and tjuser='"&coypus_name&"'")(0)
cs_sum=conn.execute("select count(*) from coolsites where tjuser='"&coypus_name&"'")(0)
scs_sum=conn.execute("select count(*) from coolsites where passed=1 and tjuser='"&coypus_name&"'")(0)
gq_sum=conn.execute("select count(*) from gq where tjuser='"&coypus_name&"'")(0)
sgq_sum=conn.execute("select count(*) from gq where passed=1 and tjuser='"&coypus_name&"'")(0)
hy_sum=conn.execute("select count(*) from hy where tjuser='"&coypus_name&"'")(0)
shy_sum=conn.execute("select count(*) from hy where passed=1 and tjuser='"&coypus_name&"'")(0)


'=================================================
'过程名：list_corpus
'作  用：显示文集列表
'参  数：无
'=================================================
sub list_corpus()
if request("page")<>"" then
  if not isInteger(request("page")) then
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
    Response.End
  end if
end if
select case mbtitle
case "news"
    call corpuslist("news",coypus_name,"news_id","news_title","news_count","news_date","shownews.asp?")
case "art"
    call corpuslist("art",coypus_name,"art_id","art_title","art_count","art_date","showart.asp?")
case "dj"
    call corpuslist("dj",coypus_name,"dj_id","dj_name","dj_count","dj_date","showdj.asp?")
case "pic"
    call corpuslist("pic",coypus_name,"pic_id","pic_name","pic_count","pic_date","showpic.asp?")
case "down"
    call corpuslist("soft",coypus_name,"soft_id","soft_name","soft_rcount","soft_joindate","showdown.asp?")
case "web"
    call corpuslist("coolsites",coypus_name,"cs_id","cs_name","cs_count","cs_date","web.asp?action=go&")
case "gq"
    call corpuslist("gq",coypus_name,"gq_id","gq_name","gq_count","gq_date","showgq.asp?")
case "hy"
    call corpuslist("hy",coypus_name,"hy_id","hy_title","hy_count","hy_date","showcompany.asp?")
case else
conn.close
set conn=nothing
    response.write "<SCRIPT language=JavaScript>alert('操作错误或服务器出错，请与程序作者联系！');"
    response.write"history.back(1);</SCRIPT>"
    Response.End 
end select
end sub

'=================================================
'过程名：hy
'作  用：显示黄页
'参  数：uname-会员名,n_num-调用条数
'=================================================
sub hy(uname,n_num)
sql="select top "&n_num&" * from hy where passed=0 and tjuser='"&uname&"' order by hy_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=0
Response.Write "<TABLE cellSpacing=0 cellPadding=2 width=100% border=0 align=center>" & vbCrLf
do while not rs.eof
i=i+1
sql="select cat_id,cat_name from hycat where cat_id="&rs("cat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
Response.Write "<TR><TD height='22' class=table-xia><img src='img/user/sz-"&i&".gif'>『"&rscat("cat_name")&"』<a href='showcompany.asp?hy_id="&rs("hy_id")&"' Title='黄页标题："&rs("hy_title")&"&#13&#10发表时间："&rs("hy_date")&"&#13&#10阅读次数："&rs("hy_count")&"次&#13&#10所属分类："&rscat("cat_name")&"'>"&gotTopic(rs("hy_title"),40)&"</a>" & vbCrLf
if rs("isimg")=1 then
Response.Write "<img src='img/img.gif' alt='图片黄页' align=absmiddle border=0>" & vbCrLf
end if
if DateDiff("h",rs("hy_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新黄页'>" & vbCrLf
end if
Response.Write "</TD><TD align=right class=table-xia>" & vbCrLf
Response.Write ""&formatdatetime(rs("hy_date"),2)&"&nbsp;" & vbCrLf
Response.Write "</TD></TR>" & vbCrLf
rscat.close
set rscat=nothing
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR><TD colspan=2><font color=#333000><B>·</B>暂时没有审核通过的黄页</font></TD></TR>"
end if
Response.Write "<TR><TD>√成功发布黄页："&hy_sum&" 个，其中：已通过黄页 "&hy_sum-shy_sum&" 个，待审黄页：<font color='#FF0000'>"&shy_sum&"</font> 个</TD>" & vbCrLf
Response.Write "<TD align=right><a href=user_corpuslist.asp?action="&request("action")&"&act=hy>更多...</a>&nbsp;</TD></TR>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
rs.close
set rs=nothing
end sub

'=================================================
'过程名：gq
'作  用：显示供求
'参  数：uname-会员名,n_num-调用条数
'=================================================
sub gq(uname,n_num)
sql="select top "&n_num&" * from gq where passed=0 and tjuser='"&uname&"' order by gq_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=0
Response.Write "<TABLE cellSpacing=0 cellPadding=2 width=100% border=0 align=center>" & vbCrLf
do while not rs.eof
i=i+1
sql="select gqcat_id,gqcat_name from gqcat where gqcat_id="&rs("gqcat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
Response.Write "<TR><TD height='22' class=table-xia><img src='img/user/sz2-"&i&".gif'>『"&rscat("gqcat_name")&"』<a href='showgq.asp?gq_id="&rs("gq_id")&"' Title='供求标题："&rs("gq_name")&"&#13&#10发表时间："&rs("gq_date")&"&#13&#10阅读次数："&rs("gq_count")&"次&#13&#10所属分类："&rscat("gqcat_name")&"'>"&gotTopic(rs("gq_name"),40)&"</a>" & vbCrLf
if DateDiff("h",rs("gq_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新供求'>" & vbCrLf
end if
Response.Write "</TD><TD align=right class=table-xia>" & vbCrLf
Response.Write ""&formatdatetime(rs("gq_date"),2)&"&nbsp;" & vbCrLf
Response.Write "</TD></TR>" & vbCrLf
rscat.close
set rscat=nothing
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR><TD colspan=2><font color=#333000><B>·</B>暂时没有审核通过的供求</font></TD></TR>"
end if
Response.Write "<TR><TD>√成功发布供求："&gq_sum&" 个，其中：已通过供求 "&gq_sum-sgq_sum&" 个，待审供求：<font color='#FF0000'>"&sgq_sum&"</font> 个</TD>" & vbCrLf
Response.Write "<TD align=right><a href=user_corpuslist.asp?action="&request("action")&"&act=gq>更多...</a>&nbsp;</TD></TR>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
rs.close
set rs=nothing
end sub

'=================================================
'过程名：news
'作  用：显示新闻文集
'参  数：uname-会员名,n_num-调用条数
'=================================================
sub news(uname,n_num)
sql="select top "&n_num&" * from news where passed=0 and tjuser='"&uname&"' order by news_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=0
Response.Write "<TABLE cellSpacing=0 cellPadding=2 width=100% border=0 align=center>" & vbCrLf
do while not rs.eof
i=i+1
sql="select cat_id,cat_name from newcat where cat_id="&rs("cat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
Response.Write "<TR><TD height='22' class=table-xia><img src='img/user/sz4-"&i&".gif'>『"&rscat("cat_name")&"』<a href='shownews.asp?news_id="&rs("news_id")&"' Title='采风标题："&rs("news_title")&"&#13&#10发表时间："&rs("news_date")&"&#13&#10阅读次数："&rs("news_count")&"次&#13&#10所属分类："&rscat("cat_name")&"'>"&gotTopic(rs("news_title"),40)&"</a>" & vbCrLf
if rs("isimg")=1 then
Response.Write "<img src='img/img.gif' alt='图片新闻' align=absmiddle border=0>" & vbCrLf
end if
if DateDiff("h",rs("news_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新采风'>" & vbCrLf
end if
Response.Write "</TD><TD align=right class=table-xia>" & vbCrLf
Response.Write ""&formatdatetime(rs("news_date"),2)&"&nbsp;" & vbCrLf
Response.Write "</TD></TR>" & vbCrLf
rscat.close
set rscat=nothing
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR><TD colspan=2><font color=#333000><B>·</B>暂时没有审核通过的采风</font></TD></TR>" & vbCrLf
end if
Response.Write "<TR><TD>√成功发布采风："&news_sum&" 篇，其中：已通过采风 "&news_sum-snews_sum&" 篇，待审采风：<font color='#FF0000'>"&snews_sum&"</font> 篇</TD>" & vbCrLf
Response.Write "<TD align=right><a href=user_corpuslist.asp?action="&request("action")&"&act=news>更多...</a>&nbsp;</TD></TR>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
rs.close
set rs=nothing
end sub

'=================================================
'过程名：art
'作  用：显示文章文集
'参  数：uname-会员名,n_num-调用条数
'=================================================
sub art(uname,n_num)
sql="select top "&n_num&" * from art where passed=0 and tjuser='"&uname&"' order by art_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=0
Response.Write "<TABLE cellSpacing=0 cellPadding=2 width=100% border=0 align=center>" & vbCrLf
do while not rs.eof
i=i+1
sql="select cat_id,cat_name from a_cat where cat_id="&rs("cat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
Response.Write "<TR><TD height='22' class=table-xia><img src='img/user/sz-"&i&".gif'>『"&rscat("cat_name")&"』<a href='showart.asp?art_id="&rs("art_id")&"' Title='文章标题："&rs("art_title")&"&#13&#10发表时间："&rs("art_date")&"&#13&#10阅读次数："&rs("art_count")&"次&#13&#10所属分类："&rscat("cat_name")&"'>"&gotTopic(rs("art_title"),40)&"</a>" & vbCrLf
if rs("isimg")=1 then
Response.Write "<img src='img/img.gif' alt='图片文章' align=absmiddle border=0>" & vbCrLf
end if
if DateDiff("h",rs("art_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新文章'>" & vbCrLf
end if
Response.Write "</TD><TD align=right class=table-xia>" & vbCrLf
Response.Write ""&formatdatetime(rs("art_date"),2)&"&nbsp;" & vbCrLf
Response.Write "</TD></TR>" & vbCrLf
rscat.close
set rscat=nothing
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR><TD colspan=2><font color=#333000><B>·</B>暂时没有审核通过的文章</font></TD></TR>"
end if
Response.Write "<TR><TD>√成功发布文章："&art_sum&" 篇，其中：已通过采风 "&art_sum-sart_sum&" 篇，待审采风：<font color='#FF0000'>"&sart_sum&"</font> 篇</TD>" & vbCrLf
Response.Write "<TD align=right><a href=user_corpuslist.asp?action="&request("action")&"&act=art>更多...</a>&nbsp;</TD></TR>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
rs.close
set rs=nothing
end sub

'=================================================
'过程名：dj
'作  用：显示音乐文集
'参  数：uname-会员名,n_num-调用条数
'=================================================
sub dj(uname,n_num)
sql="select top "&n_num&" * from dj where passed=0 and tjuser='"&uname&"' order by dj_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<TABLE cellSpacing=0 cellPadding=2 width=100% border=0 align=center>" & vbCrLf
i=0
do while not rs.eof
i=i+1
sql="select djcat_id,djcat_name from djcat where djcat_id="&rs("djcat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
Response.Write "<TR><TD height='22' class=table-xia><img src='img/user/sz2-"&i&".gif'>『"&rscat("djcat_name")&"』<a href='showdj.asp?dj_id="&rs("dj_id")&"' Title='音乐名称："&rs("dj_name")&"&#13&#10视听次数："&rs("dj_count")&"&#13&#10上传时间："&rs("dj_date")&"'>"&gotTopic(rs("dj_name"),40)&"</a>" & vbCrLf
if DateDiff("h",rs("dj_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新音乐'>" & vbCrLf
end if
Response.Write "</TD><TD align=right class=table-xia>" & vbCrLf
Response.Write ""&formatdatetime(rs("dj_date"),2)&"&nbsp;" & vbCrLf
Response.Write "</TD></TR>"
rscat.close
set rscat=nothing
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR><TD colspan=2><font color=#333000><B>·</B>暂时没有审核通过的音乐</font></td></tr>"
end if
Response.Write "<TR><TD>√成功发布音乐："&dj_sum&" 首，其中：已通过音乐 "&dj_sum-sdj_sum&" 首，待审音乐：<font color='#FF0000'>"&sdj_sum&"</font> 首</TD>" & vbCrLf
Response.Write "<TD align=right><a href=user_corpuslist.asp?action="&request("action")&"&act=dj>更多...</a>&nbsp;</TD></TR>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
rs.close
set rs=nothing
end sub

'=================================================
'过程名：pic
'作  用：显示图片文集
'参  数：uname-会员名,n_num-调用条数
'=================================================
sub pic(uname,n_num)
sql="select top "&n_num&" * from pic where passed=0 and tjuser='"&uname&"' order by pic_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=0
Response.Write "<TABLE cellSpacing=0 cellPadding=2 width=100% border=0 align=center>" & vbCrLf
do while not rs.eof
i=i+1
sql="select piccat_id,piccat_name from piccat where piccat_id="&rs("piccat_id")
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
Response.Write "<TR><TD height='22' class=table-xia><img src='img/user/sz1-"&i&".gif'>『"&rscat("piccat_name")&"』<a href='showpic.asp?pic_id="&rs("pic_id")&"' Title='图片名称："&rs("pic_name")&"&#13&#10点击次数："&rs("pic_count")&"&#13&#10上传时间："&rs("pic_date")&"'>"&gotTopic(rs("pic_name"),40)&"</a>" & vbCrLf
if DateDiff("h",rs("pic_date"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新图片'>" & vbCrLf
end if
Response.Write "</TD><TD align=right class=table-xia>" & vbCrLf
Response.Write ""&formatdatetime(rs("pic_date"),2)&"&nbsp;" & vbCrLf
Response.Write "</TD></TR>"
rscat.close
set rscat=nothing
rs.movenext
loop
if rs.bof and rs.eof then
Response.Write "<TR><TD colspan=2><font color=#333000><B>·</B>暂时没有审核通过的图片</font></td></tr>"
end if
Response.Write "<TR><TD>√成功发布图片："&pic_sum&" 张，其中：已通过图片 "&pic_sum-spic_sum&" 张，待审图片：<font color='#FF0000'>"&spic_sum&"</font> 张</TD>" & vbCrLf
Response.Write "<TD align=right><a href=user_corpuslist.asp?action="&request("action")&"&act=pic>更多...</a>&nbsp;</TD></TR>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
rs.close
set rs=nothing
end sub

'=================================================
'过程名：down
'作  用：显示软件文集
'参  数：uname-会员名,n_num-调用条数
'=================================================
sub down(uname,n_num)
sql="select top "&n_num&" * from soft where passed=0 and tjuser='"&uname&"' order by soft_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=0
Response.Write "<TABLE cellSpacing=0 cellPadding=2 width=100% border=0 align=center>" & vbCrLf
do while not rs.eof
i=i+1
Response.Write "<TR><TD height='22' class=table-xia><img src='img/user/sz3-"&i&".gif'>『"&rs("soft_catname")&"』<a href='showdown.asp?soft_id="&rs("soft_id")&"' Title='文件名称："&rs("soft_name")&"&#13&#10下载次数："&rs("soft_dcount")&"&#13&#10上传时间："&rs("soft_joindate")&"'>"&gotTopic(rs("soft_name"),40)&"</a>" & vbCrLf
if DateDiff("h",rs("soft_joindate"),now())<=24 then
Response.Write "<img src='img/new.gif' alt='24小时内新软件'>" & vbCrLf
end if
Response.Write "</TD>" & vbCrLf
Response.Write "<TD align=right class=table-xia>" & vbCrLf
Response.Write ""&formatdatetime(rs("soft_joindate"),2)&"&nbsp;" & vbCrLf
Response.Write "</TD></TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR><TD colspan=2><font color=#333000><B>·</B>暂时没有审核通过的软件</font></td></tr>"
end if
Response.Write "<TR><TD>√成功发布软件："&down_sum&" 个，其中：已通过软件 "&down_sum-sdown_sum&" 个，待审软件：<font color='#FF0000'>"&sdown_sum&"</font> 个</TD>" & vbCrLf
Response.Write "<TD align=right><a href=user_corpuslist.asp?action="&request("action")&"&act=down>更多...</a>&nbsp;</TD></TR>" & vbCrLf
Response.Write "</TABLE>" & vbCrLf
rs.close
set rs=nothing
end sub

'=================================================
'过程名：web
'作  用：显示网站文集
'参  数：uname-会员名,n_num-调用条数
'=================================================
sub web(uname,n_num)
sql="select top "&n_num&" * from coolsites where passed=0 and tjuser='"&uname&"' order by cs_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=100% border=0 align=center>" & vbCrLf
Response.Write "<DIV>√成功发布酷站："&cs_sum&" 个，其中：已通过酷站 "&cs_sum-scs_sum&" 个，待审酷站：<font color='#FF0000'>"&scs_sum&"</font> 个</DIV>"
Response.Write "<TR>" & vbCrLf
do while not rs.eof
Response.Write "<TD align=middle>" & vbCrLf
Response.Write "<SCRIPT type=text/javascript>hx66img("""&rs("cs_pic")&""",""web.asp?action=go&cs_id="&rs("cs_id")&""",""站点地址："&rs("cs_url")&"\n点击次数："&rs("cs_count")&"次"");</SCRIPT>" & vbCrLf
Response.Write "<SPAN><div style=""padding-top:5px;"">"&gotTopic(rs("cs_name"),20)&"</div></SPAN>" & vbCrLf
Response.Write "</TD>"
rs.movenext
loop
if rs.bof and rs.eof then
Response.Write "<TR><TD colspan=3><font color=#333000><B>·</B>暂时没有审核通过的酷站</font></TD></TR>" & vbCrLf
end if
Response.Write "<TR><TD colspan=3 align=right><a href=user_corpuslist.asp?action="&request("action")&"&act=web>更多...</a>&nbsp;</TD></TR>" & vbCrLf
Response.Write "</TR></TABLE>" & vbCrLf
rs.close
set rs=nothing
end sub

'=================================================
'过程名：corpuslist
'作  用：显示带分页的文集列表
'参  数：
'       u_table----------数据库对应表名
'       u_name-----------会员ID
'       u_id-------------表的自动编号ID
'       u_title----------字段名称
'       u_count----------字段点击数名称
'       u_date-----------字段发表时间名称
'       u_list-----------连接名
'       Hxperpage--------每页显示数量
'=================================================
sub corpuslist(u_table,u_name,u_id,u_title,u_count,u_date,u_list)
Dim CurPage,Url_Add
Url_Add="?action="&request("action")&"&act="&request("act")&"&"
If Request.QueryString("Page")<>"" Then
   Curpage=Request.QueryString("Page")
   If IsInteger(Curpage)=False Then Curpage=1
Else
   Curpage=1
End If
sql="select "&u_id&","&u_title&","&u_count&","&u_date&" from "&u_table&" where passed=0 and tjuser='"&u_name&"' order by "&u_id&" DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
   Dim Hx_Nums,MultiPages,i
   Hxperpage=25
   Rs.PageSize=Hxperpage
   Rs.AbsolutePage=CurPage
   Hx_Nums=Rs.RecordCount
   MultiPages="<tr><td colspan=""4"" height='28' align=""center"">"&MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)&"</td></tr>"
Do Until Rs.EOF OR i=Hxperpage
response.write "<tr>" & vbCrLf
response.write "<TD width='6%' align=Center height='26'><font color=red><B>·</B></TD><td width='60%'>&nbsp;<a href='"&u_list&""&u_id&"="&rs(0)&"' Title='内容标题："&rs(1)&"&#13&#10发表时间："&rs(3)&"&#13&#10阅读次数："&rs(2)&"次' target=_blank>"&gotTopic(rs(1),40)&"</a></td><TD width='10%' align=Center>"&rs(2)&"</TD><td width='24%' align='center'>"&rs(3)&"</td></tr>" & vbCrLf
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
response.write "<tr align='center'><td align=middle height='60' colSpan='4'>暂时没有任何内容!</td></tr>" & vbCrLf
end if
end if
Response.Write(MultiPages)
rs.close
set rs=nothing
end sub
%>
