showh.asp

可以做论坛

<% Server.ScriptTimeOut=150 %>
<!--#include file="conn.asp"-->
<!--#include file="sysinfo.asp"-->
<!--#include file="ubb.asp"-->
<%
function showmm(showh,ids)
idpp=ids
cnei="select * from neirong  where  shanzhu=0 and huiid="&idpp&" order by layer" 
set rs=server.createobject("adodb.recordset")
rs.open cnei,conn,1,1
if not rs.eof then '是否有这个贴子
if rs("shanzhu")=0 then '是否已删除
IDL=rs("idl")
c2="select * from luntan  where idl="&IDL
set rs2=server.createobject("adodb.recordset")
rs2.open c2,conn,1,1
YDI=rs2("luntan")
bz=rs2("banzhu")
if rs2("html")=1 then
listto="<a href=./ target=_self><font color=#F6F6F6>"&rs2("luntan")&""&sbbs&"</font></a>"
else
listto="<a href=../../list.asp?idl="&rs2("idl")&"><font color=#F6F6F6>"&rs2("luntan")&""&sbbs&"</font></a>"
end if
rs.PageSize = spageshu 'pagesize属性指定了每页要显示的记录条数 
Page = CLng(Request("Page")) 'string型转化为long型 
If Page < 1 Then Page = 1 
If Page > rs.PageCount Then Page = rs.PageCount 
showh=""
showh=showh &"<title>"&rs("zhuti")&"</title>"
showh=showh &"<script language=javascript>"
showh=showh &"function ctlent(eventobject){if(event.ctrlKey && window.event.keyCode==13){this.document.form.submit();}}"
showh=showh &"function textCount(obj,a_limit){if (obj.value.length > a_limit) {obj.value = obj.value.substring(0,a_limit); }else {document.form.remLen.value = obj.value.length;}}"
showh=showh &"</script>"
showh=showh &"<table width=775 border=0 align=center cellspacing=0  class=td4>"
showh=showh &"<tr>" 
showh=showh &"<td>·<a href=../../ target=_self><font color=#F6F6F6>首页</font></a>>>>"&listto&">>> "
showh=showh &rs("zhuti")&"</td>"
showh=showh &"<td><a href=#wr><font color=#F6F6F6>回复此主题</font></a> </td><td><a href=./#wz><font color=#F6F6F6>发表新主题</font></a></td>"
showh=showh &"<td><a href=../  target=_self><font color=#F6F6F6>[精华贴列表]</font></a></td>"
showh=showh &"<td>&nbsp;</td>"
showh=showh &"</tr>"
showh=showh &"</table>"
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
if rs("shanzhu")=0 then '如果回复贴已删就不显示

showh=showh &"<table width=775 border=0 align=center cellpadding=0 cellspacing=0 class=show>"
showh=showh &"<tr> "
showh=showh &"<td class=td5>第"&rs("layer")&"楼"
showh=showh &" 作者：" 
          idzz=0
		  if rs("layer")=1 then
	      zhiding=rs("zhiding")
          jingh=rs("jinghuau")
		  idzz=rs("zuozhe")
		  laycount=rs("lay")
		  else
	      idzz=rs("huizz")
		  end if
		  if CInt(idzz)=0 then
		  bmm="游客"
showh=showh &bmm
		  else 
		  'response.Write""&idzz&""
		  idzz=CInt(idzz)
		  huizz="select * from user where idy="&idzz
          set rszz=server.createobject("adodb.recordset")
          rszz.open huizz,conn,1,1
		  bmm=rszz("bm")
		  jibie=rszz("jibie")
		  jingnian=rszz("jingnian")
		  jinqian=rszz("jinqian")
		  meili=rszz("meili")
		  weiwang=rszz("weiwang")
		  tieshu=rszz("tieshu")
showh=showh &"<a href=../../showuser.asp?idy="&idzz&">"&bmm&"</a>"
		  rszz.close
          set rszz=nothing
		  end if
		 
if CInt(rs("layer"))=1 then
showh=showh &" 时间："&mid(rs("zttime"),4)
else
showh=showh &" 时间："&mid(rs("huitime"),4)
end if
showh=showh &"   <a href=#wr>回复此主题</a>  "        
showh=showh &"</td>"
showh=showh &"</tr>"
showh=showh &"<tr> "
showh=showh &"<td colspan=8><table width=100% border=0 cellspacing=0>"
showh=showh &"<tr> "
showh=showh &"<td width=1>&nbsp;</td>"
showh=showh &"<td>"
if rs("layer")=1 and len(rs("neirong"))>100 and len(sbodyguang)>6 then
showh=showh &"<table width=100% border=0 cellspacing=0 class=guanghui>"
showh=showh &"<tr>" 
showh=showh &"<td>"&sbodyguang&"</td>"
showh=showh &"</tr>"
showh=showh &"</table><br>"
          
		  end if
neirong=rs("neirong")
neirong=Autolink(neirong)		  		  
showh=showh &neirong&"</td>"
showh=showh &"</tr>"
showh=showh &"</table></td>"
showh=showh &"</tr>"
showh=showh &"<tr> "
showh=showh &"<td colspan=8></td>"
showh=showh &"</tr>"
showh=showh &"</table>"

  pic=rs("pic")
  if not pic="" then '有没图片

showh=showh &"<table width=775 border=0 align=center cellspacing=0>"
showh=showh &"<tr>"
showh=showh &"<td width=1>&nbsp;</td>"
showh=showh &"<td>相关图片</td>"
showh=showh &"<td width=1>&nbsp;</td>"
showh=showh &"</tr>"
showh=showh &"<tr>"
showh=showh &"<td>&nbsp;</td>"
showh=showh &"<td><img  src="&rs("pic")&"> </td>"
showh=showh &"<td>&nbsp;</td>"
showh=showh &"</tr>"
showh=showh &"</table>"





else 
end if '有没图片
'Response.Write "<hr align=left width=63%\>"
end if'回复贴是否已删
if len(stieguang)>6 then
showh=showh &"<table width=775 border=0 align=center cellspacing=0>"
showh=showh &"<tr>"
showh=showh &"<td>"&stieguang&"</td>"
showh=showh &"</tr>"
showh=showh &"</table>"
end if '贴间广告
showh=showh &"<table width=775 border=0 align=center cellspacing=0><tr><td>"
showh=showh &"<hr align=left width=520>"
showh=showh &"</td></tr></table>"
rs.MoveNext 
If rs.EOF Then Exit For 
Next 

showh=showh &"<table width=775 border=0 align=center cellspacing=0>"
showh=showh &"<tr> "
showh=showh &"<td>"
   
showh=showh &"第" & Page & "页/总共有" & rs.PageCount & " 页 每页"& rs.PageSize &"贴  本主题有"&laycount&"贴 "

If Page > 1 Then 
showh=showh &"<A HREF=../../show.asp?ids="&idpp&"&Page=1>第一页</A>