asptbcom.asp

使用前请您先阅读以下条款

<!--#include file="conn.asp"-->
<!--#include file="asptbsys.asp"-->
<%

function Fge(str,gstr,ge,gnum)
         jj=1
		 for i=1 to len(str)
		 if instr(jj,str,ge)>0 then
		 jj = instr(jj,str,ge)+1
		 gnum=gnum+1
		 end if
		 next
		 gstr=Split(str,ge,gnum+1)
end function
'主页显示分表格主题列表
dim zhsh,leibei,allinfo
function zhutishow(idl,zhsh,leibei,allinfo)
leibei=""
zhsh=""
leibei=""
allinfo=""
clei="select * from asptbfenlei  where idl="&idl&" and shanzhu=0" 
set rslei=server.createobject("adodb.recordset")
rslei.open clei,conn,1,1
leibei="<a href=index.asp?idl="&rslei("idl")&">"&rslei("fname")&"</a>"
allinfo="<a class=glk href=index.asp?idl="&rslei("idl")&">全部内容</a>"
rslei.close
set rslei=nothing

zhinfo="select top 11 * from asptbinfo  where idl="&idl&" and shanzhu=0 order by sdate desc" 
set rsizh=server.createobject("adodb.recordset")
rsizh.open zhinfo,conn,1,1
do while  not rsizh.eof
lentile=rsizh("stitle")
if len(lentile)>19 then
zhsh=zhsh&"·<a href=index.asp?idl="&rsizh("idl")&"&ids="&rsizh("ids")&">"&left(lentile,18)&"…</a><br>" 
else
zhsh=zhsh&"·<a href=index.asp?idl="&rsizh("idl")&"&ids="&rsizh("ids")&">"&lentile&"</a><br>"
end if
rsizh.movenext
loop
rsizh.close
set rsizh=nothing
end function

'底部
dim asptbby
function asptbvc(asptbcopy)
         asptbcopy=""
		 asptbby=""
		 asptbby=asptbby&"<font size=1>Version by：<a href="&weburl&">"&webver&"</a></font><br>"&webcopy&""
         copytable=tablebottom
		 call tobian(copytable)
		 asptbcopy=asptbcopy&copytable
end function
'广告
function guangset(g,gknifo)
if Cint(g)=1 then
   response.write(webguang1)
end if
if Cint(g)=2 then
   response.write(webguang2)
end if
if Cint(g)=3 then
   response.write(webguang3)
end if
end function
'首页广告
function asptbguang(guang1)
         guang1=""
         guang1=guang1&"<table width=778 border=0 align=center class=zhuangtable><tr><td align=center>"
         guang1=guang1&webguang1
         guang1=guang1&"</td></tr></table>" 
end function
'内容里的广告
dim guang2
function asptbguang2(guang2)
         guang2=""
		 if len(webguang2)>2 then
            guang2=guang2&"<table width=100% border=0 align=center class=guang2table><tr><td align=center>"
            guang2=guang2&webguang2
            guang2=guang2&"</td></tr></table>" 
		 end if
end function

'头部
asptbtop=""
dalei="select * from asptbfenlei where fj=1  and shanzhu=0 order by paixu" 
set rsda=server.createobject("adodb.recordset")
rsda.open dalei,conn,1,1
do while not rsda.eof
asptbdalei=asptbdalei&""&rsda("fname")&"："
idl=rsda("idl")
call xiafenlei(idl,fnamec)
asptbdalei=asptbdalei&fnamec&"<br>"
rsda.movenext
loop
rsda.close
set rsda=nothing
logotop="<a href=./ target=_self><img src="&weblogo&" alt="&webname&" width=200 height=20 border=0></a>"
tabletopb=tabletop
call tobian(tabletopb)
asptbtop=tabletopb

'相关文章
function listxg(skey,titlexg)
titlexg=""
infoxg="select top 10 * from asptbinfo where skey='"&skey&"' and shanzhu=0 order by sdate desc" 
set rsxg=server.createobject("adodb.recordset")
rsxg.open infoxg,conn,1,1
do while not rsxg.eof
titlexg=titlexg&"·<a href=index.asp?idl="&rsxg("idl")&"&ids="&rsxg("ids")&">"&rsxg("stitle")&"</a><br>"
rsxg.movenext
loop
rsxg.close
set rsxg=nothing
end function

'最热主题
function hotasptbinfo(hottitle,idl)
hottitle=""
if idl<>"" then
hotinfo="select top 10 * from asptbinfo where idl="&idl&" and shanzhu=0 order by sdate desc" 
set rsihot=server.createobject("adodb.recordset")
rsihot.open hotinfo,conn,1,1
do while not rsihot.eof
hottitle=hottitle&"·<a href=index.asp?idl="&idl&"&ids="&rsihot("ids")&">"&rsihot("stitle")&"</a><br>"
rsihot.movenext
loop
rsihot.close
set rsihot=nothing
else 
response.write"参数错误"
end if
end function

'贴子列表
function liststitle(idl,wslist,page)
wslist=""
if idl<>"" then
info="select * from asptbinfo where idl="&idl&" and shanzhu=0 order by sdate desc" 
set rsi=server.createobject("adodb.recordset")
rsi.open info,conn,1,1
if  not rsi.eof then
rsi.PageSize = 30
If Page="" or Page < 1 Then
Page = 1
end if 
Page = CLng(Page)
If Page > rsi.PageCount Then
Page = rsi.PageCount 
end if
rsi.AbsolutePage = Page
For iPage = 1 To rsi.PageSize
wslist=wslist&"·<a href=index.asp?idl="&request("idl")&"&ids="&rsi("ids")&">"&rsi("stitle")&"</a> <font color=#cccccc>"&rsi("sdate")&"/"&rsi("fromuser")&"/"&rsi("fromurl")&"</font><br>"
rsi.MoveNext 
If rsi.EOF Then Exit For 
Next 
end if
wslist=wslist&"  第" & Page & "页/总共有" & rsi.PageCount & " 页 每页"& rsi.PageSize &"个主题 "

If Page > 1 Then 
wslist=wslist& "<A HREF=index.asp?idl="&request("idl")&"&Page=1>第一页</A>