adminft.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
function errhao(erhao)
         erhao=Replace(erhao,"'","’")
end function

'显示头
function adtop(admintop,letf,righ)
admintop=""
admintop=admintop&"<table width=778 border=0 align=center cellspacing=0><tr>"
admintop=admintop&"<td><table width=100% border=0 align=center cellspacing=0 class=toptable><tr>"
admintop=admintop&"<td width=180><a href=http://www.asptb.com target=_blank><img src=images/admin.gif alt=ASPTBcom建站管理系统 width=200 height=20 border=0></a></td>"
admintop=admintop&"<td><table width=100% border=0 cellspacing=0 class=toprighttable><tr>"
admintop=admintop&"<td>管理：<a href=admin.asp?sys=1>配置</a> | <a href=admin.asp?fenlei=1>分类</a> | <a href=admin.asp?gk=1>广告</a> | <a href=admin.asp?user=1>会员</a> | <a href=admin.asp?mb=1>模板</a> | <a href=admin.asp?htm=1>HTML</a> | <a href=http://www.asptb.com target=_blank>帮助</a> | <a href=./>首页</a> | "&username&">><a href=admin.asp?logout=1>退出</a> |</td></tr></table></td></tr></table></td></tr></table>"
admintop=admintop&"<table width=778 border=0 align=center cellspacing=0><tr><td width=100 align=center valign=top>"&letf&"</td><td valign=top>"&righ&"</td></tr></table>"
end function
'大分类
function admifen(fname)
fname=""
fenlei="select * from asptbfenlei where fj=1 and shanzhu=0 order by paixu" 
set rsf=server.createobject("adodb.recordset")
rsf.open fenlei,conn,1,1
do while not rsf.eof
fname=fname&"<a href=admin.asp?fenlei=1&idl="&rsf("idl")&">"&rsf("fname")&"</a>  "
rsf.movenext
loop
rsf.close
set rsf=nothing
end function

'子类
function zfenlei(ffname,idl)
fenlei="select * from asptbfenlei where idl="&idl&"  and shanzhu=0 order by paixu" 
set rs=server.createobject("adodb.recordset")
rs.open fenlei,conn,1,1
fj=rs("fj")
fn=rs("fn")
if Cint(rs("tj"))=0 then
ttj="首页显示"
else
ttj="首页隐藏"
end if
ffname=""
adffname=""
ffname=ffname&"<a href=admin.asp?fenlei=1&idl="&rs("idl")&">"&rs("fname")&"</a>:[<a href=admin.asp?mdf="&rs("idl")&"&idl="&rs("idl")&"><font color=#FF0000>修改</font><a>][<a href=admin.asp?fenlei=1&delfenlei="&rs("idl")&"&idl="&rs("idl")&"><font color=#FF0000>删除</font><a>]"
if CInt(fj)>1 then
ffname=ffname&"[<a href=admin.asp?tuijian="&rs("tj")&"&idl="&rs("idl")&"><font color=#FF0000>"&ttj&"</font><a>][<a href=admin.asp?addwz="&rs("idl")&"&idl="&rs("idl")&"><font color=#FF0000>填加文章</font><a>]"
for i=1 to fj-1
fen="select * from asptbfenlei where idl="&fn&" and shanzhu=0 order by paixu" 
set rsl=server.createobject("adodb.recordset")
rsl.open fen,conn,1,1
if not rsl.eof then
fn=rsl("fn")
ffname="<a href=admin.asp?fenlei=1&idl="&rsl("idl")&">"&rsl("fname")&"</a>>"&ffname
end if
rsl.close
set rsl=nothing
next

end if
rs.close
set rs=nothing
end function
'子类的子类
function zlei(zfname,idl)
fenxia="select * from asptbfenlei where fn="&idl&" and shanzhu=0 order by paixu" 
set rslx=server.createobject("adodb.recordset")
rslx.open fenxia,conn,1,1
do while not rslx.eof
zfname=zfname&" <a href=admin.asp?fenlei=1&idl="&rslx("idl")&">"&rslx("fname")&"</a> "
rslx.movenext
loop
rslx.close
set rslx=nothing
end function

'文章显示与修改

function admininfo(wslist,idl)
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 = 10
Page = Request("Page")
If Page="" then
Page = 1
end if 
if  Cint(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
if Cint(rsi("tuijian"))=0 then
tuijian="推荐"
else
tuijian="撤荐"
end if
wslist=wslist&"[<a href=admin.asp?tuijianinfo="&rsi("ids")&"&tj="&rsi("tuijian")&"&page="&request("page")&"&ids="&rsi("ids")&"><font color=#FF0000>"&tuijian&"</font></a>][<a href=admin.asp?editinfo="&rsi("ids")&"&page="&request("page")&"&idl="&rsi("idl")&"><font color=#FF0000>编辑</font></a>][<a href=admin.asp?delinfo="&rsi("ids")&"&idl="&rsi("idl")&"><font color=#FF0000>删除</font></a>]·<a href=../index.asp?idl="&request("idl")&"&ids="&rsi("ids")&" target=_blank>"&rsi("stitle")&"</a><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=admin.asp?fenlei=1&idl="&request("idl")&"&Page=1>第一页</A>