jinghuauhtml.asp

可以做论坛

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="sysinfo.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="jinghuaulisth.asp"-->
<%
cjh="select * from neirong  where zt=1 and shanzhu=0 and jinghuau=1"
set rsjh=server.createobject("adodb.recordset")
cjh=cjh+" order by zhiding desc"
rsjh.open cjh,conn,1,1
IF not rsjh.eof then
Page = CLng(Page) 'string型转化为long型 
rsjh.PageSize = spageshu 'pagesize属性指定了每页要显示的记录条数 
If Page < 1 Then Page = 1 
If Page > rsjh.PageCount Then Page = rsjh.PageCount 
end if
rsjh.AbsolutePage = Page


For Page =1 to rsjh.PageCount  '如有多页
topjing=""
topjing=topjing&"<meta http-equiv=Content-Type content=text/html; charset=gb2312>"
topjing=topjing&"<meta name=description content="&sme1&">"
topjing=topjing&"<meta name=keywords content="&sme2&">"
topjing=topjing&"<link rel=stylesheet href=../"&scss&".css type=text/css>"
topjing=topjing&"<title>"&swebname&"-所有精主题列表主页</title>"
topjing=topjing&"<table width=775 border=0 align=center cellspacing=0><tr>" 
topjing=topjing&"<td width=200><a href=./><img src=../"&slogo&" border=0></td>"
topjing=topjing&"<td><form name=form2 method=post action=../searh.asp>"
topjing=topjing&"<table width=100% border=0 align=center cellspacing=0><tr><td><div align=center>" 
topjing=topjing&"<input name=key type=text size=30><input type=submit name=Submit value=贴吧搜索>"
topjing=topjing&"</div></td></tr><tr><td><div align=center>"
topjing=topjing&"<input name=rad type=radio value=r1  checked>进入贴吧"
topjing=topjing&"<input type=radio name=rad value=r2>查找主题"
topjing=topjing&"<input type=radio name=rad value=r3>查找内容"
topjing=topjing&"<input type=radio name=rad value=r4>国际搜索 </div></td></tr></table>"
topjing=topjing&"</form></td><td width=120>"&stoprguang&"</td></tr></table>"

str=""
str=str&topjing
str=str &"<iframe marginwidth=0 marginheight=0 frameborder=0 scrolling=no src=../gongneng.asp width=100% height=20></iframe>"
jinghuanlist=""
call jinghuaulisth(jinghuanlist,Page)
str=str&jinghuanlist
str=str &  "<table width=775 align=center border=0 align=center cellspacing=0><tr><td>"

str=str &  "第" & Page & "页/总共有" & rsjh.PageCount & " 页 每页"& rsjh.PageSize &"个主题"
If Page <> 1 Then
str=str &"<A HREF=Default.htm>第一页</A>