user_putview.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_user.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/conn.asp" -->
<%
select case action
case "down"
  tit="查看我添加的软件"
case "video"
  tit="查看我添加的影片"
case "gallery"
  tit="查看我上传的贴图"
case "website"
  tit="查看我推荐的网站"
case "news"
  tit="查看我发布的新闻"
case else
  action="article"
  tit="查看我发表的文章"
end select

dim rssum,nummer,page,thepages,viewpage,pageurl,types,topic,tim,pic_temp
rssum=0:thepages=0:viewpage=1:nummer=web_var(web_num,1)
pageurl="?action="&action&"&"

call web_head(2,0,0,0,0)
'------------------------------------left----------------------------------
call left_user()
'----------------------------------left end--------------------------------
call web_center(0)
'-----------------------------------center---------------------------------
response.write ukong&table1
%>
<tr<%response.write table2%>><td class=end>&nbsp;<%response.write img_small(us)%>&nbsp;&nbsp;<b>查看我所发表的相关信息</b></td></tr>
<tr<%response.write table3%>><td align=center height=30>
<%response.write img_small("jt12")%><a href='?action=news'<%if action="news" then response.write "class=red_3"%>>我的新闻</a>
<%response.write img_small("jt12")%><a href='?action=article'<%if action="article" then response.write "class=red_3"%>>我的文章</a>　
<%response.write img_small("jt12")%><a href='?action=down'<%if action="down" then response.write "class=red_3"%>>我的软件</a>
<%response.write img_small("jt12")%><a href='?action=video'<%if action="video" then response.write "class=red_3"%>>我的影视</a>　
<%response.write img_small("jt12")%><a href='?action=gallery'<%if action="gallery" then response.write "class=red_3"%>>我的图片</a>
</td></tr>
</table>
<%
select case action
case "article"
  sql="select id,topic,tim,counter from article where username='"&login_username&"' and hidden=1 order by id desc"
case "down"
  sql="select id,name,tim,counter from down where username='"&login_username&"' and hidden=1 order by id desc"
case "video"
  sql="select id,title,tim,counter from video where username='"&login_username&"' and hidden=1 order by id desc"
case "gallery"
  types=trim(request.querystring("types"))
  if types<>"logo" and types<>"baner" and types<>"flash" then types="paste"
  pageurl=pageurl&"types="&types&"&"
  select case types
  case "logo"
    nummer=30
  case "baner"
    nummer=web_var(web_num,3)
  case "paste"  
    nummer=12
  case "flash"
    nummer=9
end select
  sql="select * from gallery where hidden=1 and types='"&types&"' and username='"&login_username&"' order by id desc"
case else
  sql="select id,topic,tim,counter from news where username='"&login_username&"' and hidden=1 order by id desc"
end select

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
  rssum=rs.recordcount
end if
call format_pagecute()

response.write ukong&table1
%>
<tr><td align=center height=30 colspan=7<%response.write table3%>>
  <table border=0 width='98%' cellspacing=0 cellpadding=0>
  <tr align=center valign=bottom><td width='30%'>
现在有<font class=red><%response.write rssum%></font>条记录┋
每页<font class=red><%response.write nummer%></font>个
  </td><td width='70%'>
页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font> 分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%>
  </td></tr>
  </table>
</td></tr>
<%
select case action
case "article"
if int(viewpage)>1 then
  rs.move (viewpage-1)*nummer
end if
  call putview_article()
case "down"
if int(viewpage)>1 then
  rs.move (viewpage-1)*nummer
end if
  call putview_down()
case "video"
if int(viewpage)>1 then
  rs.move (viewpage-1)*nummer
end if
  call putview_video()
case "gallery"
  call putview_gallery()
case "shop"
if int(viewpage)>1 then
  rs.move (viewpage-1)*nummer
end if
  call putview_shop()
case else
if int(viewpage)>1 then
  rs.move (viewpage-1)*nummer
end if
  call putview_news()
end select

rs.close:set rs=nothing
%>
</table>
<br>
<%
'---------------------------------center end-------------------------------
call web_end(0)

sub putview_news()
%>
<tr align=center<%response.write table2%>>
<td width='6%' class=end><b>序号</b></td>
<td width='84%' class=end><b>新闻标题</b></td>
</tr>
<%
  for i=1 to nummer
    if rs.eof then exit for
    topic=rs("topic"):tim=rs("tim")
    response.write vbcrlf&"<tr"&table3&"><td align=center>"&(viewpage-1)*nummer+i&".</td><td><a target=_blank href='news_view.asp?id="&rs("id")&"' title='新闻标题："&code_html(topic,1,0)&"<br>浏览次数："&rs("counter")&"<br>发布时间："&tim&"'>"&code_html(topic,1,35)&"</a>"&format_end(1,time_type(tim,3))&"</td></tr>"
    rs.movenext
  next
end sub

sub putview_article()
%>
<tr align=center<%response.write table2%>>
<td width='6%' class=end><b>序号</b></td>
<td width='84%' class=end><b>文章标题</b></td>
</tr>
<%
  for i=1 to nummer
    if rs.eof then exit for
    topic=rs("topic"):tim=rs("tim")
    response.write vbcrlf&"<tr"&table3&"><td align=center>"&(viewpage-1)*nummer+i&".</td><td><a target=_blank href='article_view.asp?id="&rs("id")&"' title='文章标题："&code_html(topic,1,0)&"<br>发表时间："&tim&"'>"&code_html(topic,1,35)&"</a>"&format_end(1,time_type(tim,3)&",<font class=blue>"&rs("counter")&"</font>")&"</td></tr>"
    rs.movenext
  next
end sub

sub putview_down()
%>
<tr align=center<%response.write table2%>>
<td width='6%' class=end><b>序号</b></td>
<td width='84%' class=end><b>软件名称</b></td>
</tr>
<%
  for i=1 to nummer
    if rs.eof then exit for
    topic=rs("name"):tim=rs("tim")
    response.write vbcrlf&"<tr"&table3&"><td align=center>"&(viewpage-1)*nummer+i&".</td><td><a target=_blank href='article_view.asp?id="&rs("id")&"' title='软件名称："&code_html(topic,1,0)&"<br>添加时间："&tim&"'>"&code_html(topic,1,35)&"</a>"&format_end(1,time_type(tim,3)&",<font class=blue>"&rs("counter")&"</font>")&"</td></tr>"
    rs.movenext
  next
end sub

sub putview_video()
%>
<tr align=center<%response.write table2%>>
<td width='6%' class=end><b>序号</b></td>
<td width='84%' class=end><b>影片名称</b></td>
</tr>
<%
  for i=1 to nummer
    if rs.eof then exit for
    topic=rs("title"):tim=rs("tim")
    response.write vbcrlf&"<tr"&table3&"><td align=center>"&(viewpage-1)*nummer+i&".</td><td><a target=_blank href='video_view.asp?id="&rs("id")&"' title='影片名称："&code_html(topic,1,0)&"<br>添加时间："&tim&"'>"&code_html(topic,1,35)&"</a>"&format_end(1,time_type(tim,3)&",<font class=blue>"&rs("counter")&"</font>")&"</td></tr>"
    rs.movenext
  next
end sub

sub putview_gallery()
  dim j,k,kn,pic,name,nnum:nnum=1
  response.write vbcrlf&"<tr"&table3&"><td align=center>" & _
		 vbcrlf&"<table border=0>" & _
		 vbcrlf&"<tr><td width=100>"&img_small("jt1")&"<a href='?action="&action&"&types=paste'"
  if types="paste" then response.write " class=red_3"
  response.write vbcrlf&">精彩贴图</a></td>" & _
		 vbcrlf&"<td width=100>"&img_small("jt1")&"<a href='?action="&action&"&types=logo'"
  if types="logo" then response.write " class=red_3"
  response.write vbcrlf&">精彩LOGO</a></td>" & _
		 vbcrlf&"<td width=100>"&img_small("jt1")&"<a href='?action="&action&"&types=baner'"
  if types="baner" then response.write " class=red_3"
  response.write vbcrlf&">精彩BANNER</a></td>" & _
         vbcrlf&"<td width=100>&nbsp;&nbsp;&nbsp;&nbsp;"&img_small("jt1")&"<a href='?action="&action&"&types=flash'"
  if types="flash" then response.write " class=red_3"
  response.write vbcrlf&">精彩FLASH</a></td></tr>" & _
         vbcrlf&"</table></td></tr><tr"&table3&"><td align=center><table border=0 width='100%'>"
select case types
case "logo"
  kn=5
  if nummer mod kn > 0 then
    k=nummer\kn+1
  else
    k=nummer\kn
  end if
  
  if int(viewpage)>1 then
    rs.move (viewpage-1)*nummer
  end if
  
  for i=1 to k
    'if rs.eof then exit for
    response.write "<tr align=center>"
    for j=1 to kn
      if rs.eof or nnum>nummer then exit for
      pic=rs("pic"):name=rs("name")
      response.write "<td><table border=0><tr><td align=center><img src='"&url_true(web_var(web_upload,1),pic)&"' border=0 width=88 height=31></td></tr><tr><td align=center title='"&code_html(name,1,0)&"'>"&code_html(name,1,10)&"</td></tr></table></td>"
      rs.movenext
      nnum=nnum+1
    next
    response.write "</tr>"
  next
case "baner"
  if int(viewpage)>1 then
    rs.move (viewpage-1)*nummer
  end if
  
  for i=1 to nummer
    if rs.eof then exit for
    pic=rs("pic"):name=rs("name")
    response.write "<tr><td><table border=0 align=center><tr><td align=center><img src='"&url_true(web_var(web_upload,1),pic)&"' border=0 width=468 height=60></td></tr><tr><td align=center>"&code_html(name,1,0)&"</td></tr></table></td></tr>"
    rs.movenext
  next

  case "flash"
  kn=3
  if nummer mod kn > 0 then
    k=nummer\kn+1
  else
    k=nummer\kn
  end if
  if int(viewpage)>1 then
    rs.move (viewpage-1)*nummer
  end if
  for i=1 to k
    'if rs.eof then exit for
    response.write "<tr align=center>"
    for j=1 to kn
      if rs.eof or nnum>nummer then exit for
      pic=rs("spic"):name=rs("name")
      pic_temp="<table border=0>" & _
	       "<tr><td align=center><a href='gallery.asp?types=view&action="&types&"&c_id="&rs("c_id")&"&s_id="&rs("s_id")&"&id="&rs("id")&"'><img src='"&url_true(web_var(web_upload,1),pic)&"' border=0 width="&web_var(web_num,7)&" height="&web_var(web_num,8)&"></a></td></tr>" & _
	       "<tr><td align=center class=blue><b>"&code_html(name,1,10)&"</b></td></tr>"
	  pic_temp=pic_temp&"<tr><td align=center>"&m_unit&"：<font class=red_3>"&rs("emoney")&"</font>&nbsp;&nbsp;人气：<font class=red>"&rs("counter")&"</font></td></tr>" & _
	         "<tr><td align=center>"&power_pic(0,rs("power"),0)&"</td></tr></table>"
      response.write "<td height="&web_var(web_num,8)+50&">"&format_k(pic_temp,1,5,web_var(web_num,7)+10,web_var(web_num,8)+30)&"</td>"
      rs.movenext
      nnum=nnum+1
    next
    response.write "</tr>"
  next

case else
  kn=3
  if nummer mod kn > 0 then
    k=nummer\kn+1
  else
    k=nummer\kn
  end if
  
  if int(viewpage)>1 then
    rs.move (viewpage-1)*nummer
  end if
  
  for i=1 to k
    'if rs.eof then exit for
    response.write "<tr align=center>"
    for j=1 to kn
      if rs.eof or nnum>nummer then exit for
      pic=rs("pic"):name=rs("name")
      pic_temp="<table border=0>" & _
	       "<tr><td align=center><a href='gallery.asp?types=view&action="&action&"&c_id="&rs("c_id")&"&s_id="&rs("s_id")&"&id="&rs("id")&"'><img src='"&url_true(web_var(web_upload,1),pic)&"' border=0 width="&web_var(web_num,7)&" height="&web_var(web_num,8)&"></a></td></tr>" & _
	       "<tr><td align=center class=blue><b>"&code_html(name,1,10)&"</b></td></tr></table>"
      response.write "<td height="&web_var(web_num,8)+50&">"&format_k(pic_temp,1,5,web_var(web_num,7)+10,web_var(web_num,8)+30)&"</td>"
      rs.movenext
      nnum=nnum+1
    next
    response.write "</tr>"
  next
end select
  
  response.write "</table></td></tr>"
end sub
%>