listhtml.asp

可以做论坛

<!--#include file="conn.asp"-->
<!--#include file="sysinfo.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="listh.asp"-->
<%
function listhtml(idl)
cjh="select * from neirong  where zt=1 and shanzhu=0 and idl="&idl&""
set rsjh=server.createobject("adodb.recordset")
cjh=cjh+" order by zhiding desc, huitime desc"
rsjh.open cjh,conn,1,1
IF not rsjh.eof then
'Page = Request("Page")
Page = CLng(Page)
rsjh.PageSize = spageshu
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 &"<script language=javascript>"
topjing=topjing &"function ctlent(eventobject){if(event.ctrlKey && window.event.keyCode==13){this.document.form.submit();}}"
topjing=topjing &"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;}}"
topjing=topjing &"</script>"
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=1  checked>进入贴吧"
topjing=topjing&"<input type=radio name=rad value=2>查找主题"
topjing=topjing&"<input type=radio name=rad value=3>查找内容"
topjing=topjing&"<input type=radio name=rad value=4>国际搜索 </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>"
'if ipage=1 then
jinghuanlist=""
'end if
call listh(jinghuanlist,idl,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>