show.asp

可以做论坛

<%@ Language=VBScript %>
<%
Response.Buffer = True 
Response.ExpiresAbsolute=now()-1
Response.Expires=0
Response.CacheControl="no-cache"
%>
<!--#include file="bottom.asp"-->
<!--#include file="user.asp"-->
<!--#include file="ubb.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="asptbfunction.asp"-->
<script language=javascript>
ie = (document.all)? true:false
if (ie){
function ctlent(eventobject){if(event.ctrlKey && window.event.keyCode==13){this.document.form.submit();}}
}
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;
       }
  }
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=<%=scss%>.css rel="stylesheet" type="text/css">
<% 
Server.ScriptTimeOut=150
'Response.Write "///"&uzhiwu&"|"&uidy&""
IDPP=request.querystring("IDS")
nemerstr=IDPP
call ornonemer(nemerstr,nonemer)
if IDPP<>"" and nonemer=0 then '是否为空
conn.Execute("update neirong set yue=yue+1 where IDS="&IDPP&"")
cnei="select * from neirong  where 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 '是否已删除
ids=rs("ids")
IDL=rs("idl")
zhuti=rs("zhuti")
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")
rs.PageSize = spageshu 'pagesize属性指定了每页要显示的记录条数 

Page = Request("Page")
nemerstr=Page
call ornonemer(nemerstr,nonemer)
if Page="" or nonemer>0 then 
Page=1
end if
Page = CLng(Page) 'string型转化为long型 
If Page < 1 Then Page = 1 
If Page > rs.PageCount Then Page = rs.PageCount 
replypage=rs.PageCount
%>
<title><%=rs("zhuti")%></title>
<table width="775" border="0" align="center" cellspacing="0">
  <tbody>
  <tr> 
    <td width="200"><a href=./><img src=<%=slogo%> border=0></td>
    <td><form name=form2 method=post action=searh.asp>
        <table width=100% border=0 align=center cellspacing=0>
          <tbody>
		  <tr> 
            <td><div align=center> 
                <input name=key type=text value="<%=YDI%>" size=30>
                <input type=submit name=Submit value=贴吧搜索>
              </div></td>
          </tr>
		  </tbody><tbody>
          <tr> 
            <td><div align=center> 
                <input name=rad type=radio value=1  checked>
                进入贴吧 
                <input type=radio name=rad value=2>
                查找主题 
                <input type=radio name=rad value=3>
                查找内容 
                <input type=radio name=rad value=4>
                国际搜索 </div></td>
          </tr>
		  </tbody>
        </table>
      </form></td>
    <td width="120">
	<table width=100% border=0 align=center cellspacing=0>
          <tbody>
		  <tr> 
            <td>
	<%=stoprguang%>
	</td></tr><tbody></table>
	</td>
  </tr>
  </tbody>
</table>
<!--#include file="gongneng.asp"-->
<table width=775 border="0" align="center" cellspacing="0"  class="td4">
  <tbody>
  <tr> 
      <td width="10%" nowrap>·<a href="./" target="_self"><font color="#F6F6F6">首页</font></a>>>><a href="list.asp?IDL=<%=IDL%>" target="_self"><font color="#F6F6F6"><%=rs2("luntan")%><%=sbbs%></font></a> >>> 
      </td>
    <td align="left"><font color="#F6F6F6"><%=zhuti%></font></td>
    <td nowrap><a href="#wr"><font color="#F6F6F6">回复此主题</font></a></td><td><a href=list.asp?idl=<%=IDL%>#wz><font color="#F6F6F6">发表新主题</font></a></td>
    <td nowrap>
	</td>
    </tr>
	</tbody>
</table>
<%
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
shanzhu=rs("shanzhu")
huidip=rs("huiip")
if InStr(bz,uidy)>0 or uzhiwu=100 then
huidip=huidip
else
call ip3(huidip)
end if
if shanzhu=0 then '如果回复贴已删就不显示
%>
<table  width="775" border="0" align="center" cellpadding="0" cellspacing="0">
  
  <tbody>
  <tr> 
    <td class=td5>第<%=rs("layer")%>楼 作者： 
      <%    if rs("layer")=1 then
	        idzz=rs("zuozhe")
		    zhiding=rs("zhiding")
	        jingh=rs("jinghuau")
		    laycount=rs("lay")
		  else
	      idzz=rs("huizz")
		  end if
		  if idzz=0 then
		  bmm=huidip
		  Response.Write ""&bmm&""
		  else 
		  huizz="select * from user where idy="&idzz
          set rszz=server.createobject("adodb.recordset")
          rszz.open huizz,conn,1,1
		  bmm=rszz("bm")
		  Response.Write "<a href=showuser.asp?idy="&idzz&">"&bmm&"</a>"
		  rszz.close
		  set rszz=nothing
		  end if
		  
		 idsg=rs("ids") 
		 if CInt(rs("layer"))=1 then
		 response.Write"  时间："&mid(rs("zttime"),4)&""
		 else
         response.Write"  时间："&mid(rs("huitime"),4)&""
		 end if
         if InStr(bz,uidy)>0 or uzhiwu=100 then
		 response.Write"   [  <a href=del.asp?del="&idsg&">删除</a>  ] [ <a href=editshow.asp?edit="&idsg&">编辑</a> ] [ <a href=editshow.asp?addip="&idsg&">屏蔽IP</a> ]"
		 end if
		 response.Write"   <a href=#wr>回复此发言</a>"
		 %>
    </td>
  </tr>
  </tbody>
  <tbody>
  <tr> 
    <td colspan="8"><table style="TABLE-LAYOUT: fixed" width="100%" border="0" cellspacing="0">
        <tbody>
	    <tr> 
          <td style="table-layout:fixed;word-break:break-all" class=td7>
		  <%if rs("layer")=1 and len(rs("neirong"))>100 and len(sbodyguang)>6 then %>
		    <table width="100%" border="0" cellspacing="0" class="guanghui">
              <tbody>
			  <tr> 
                <td><%=sbodyguang%></td>
              </tr>
			  </tbody>
            </table><br>
          <%
		  end if
		  neirong=rs("neirong")
		  neirong=Autolink(neirong)
		  %>		  
		  <%=neirong%></td>
          </tr>
		</tbody>  
      </table></td>
	
  </tr>
  </tbody>
  
</table>
<% 
  pic=rs("pic")
  if not pic="" then '有没图片
  %>
<table width=775 border="0" align="center" cellspacing="0">
  <tbody>
  <tr>
  <td>相关图片</td>
  </tr>
  <tr>
  
    <td><img  src="<%=rs("pic")%>"> </td>
    
  </tr>
 </tbody>
</table>

<%

else 
end if '有没图片
'Response.Write "<hr align=left width=63%\>"
end if'回复贴是否已删
if shanzhu=0 and len(stieguang)>6 then%>
<table width=775 border="0" align="center" cellspacing="0">
  <tbody>
  <tr>
    <td><%=stieguang%></td>
  </tr>
  <tbody>
</table>

<%
end if '贴间广告
if shanzhu=0 then
response.write"<table width=775 border=0 align=center cellspacing=0><tbody><tr><td><hr align=left width=500></td></tr></tbody></talbe>"
end if
rs.MoveNext 
If rs.EOF Then Exit For 
Next 
%>
<table width=775 border="0" align="center" cellspacing="0">
 <tbody>
  <tr> 
    <td>
      <%
Response.write"第" & Page & "页/总共有" & rs.PageCount & " 页 每页"& rs.PageSize &"贴  本主题有"&laycount&"贴 "

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