if(Session("master")="") then
response.redirect("index.asp")
elseIf(Session("masterlive")"0") Then
response.write("alert('对不起，您的帐号尚未激活，请与管理员联系！');history.back(0);")
End If
%>
标题：
最新发布的文章
摘要：
dbstr="../"
sql="select top 30 * from articles"
If(Session("masterqx")>1) Then sql=sql&" where author='"&Session("master")&"'"
sql=sql&" order by pubTime desc"
Call shownews(sql,"id","title",28,20,"alterArticle.asp","addArticle.asp","","_self",1,1)
%>
出处：
栏目:
dim conn,rs,sql,articletype,articletypename
set conn=getconn()
set rs=getrs()
sql="select * from sys_classConfig order by [index]"
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
for i=0 to rs.recordcount-1
if rs.eof then exit for
response.Write(""&rs("menu_cn")&"-"&rs("menu_en")&"")
rs.movenext
next
rs.close
end if
%>
附件：
分类:
sql="select * from menus order by upmenu"
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
for i=0 to rs.recordcount-1
if rs.eof then exit for
response.Write(""&rs("menu_cn")&"-"&rs("menu_en")&"")
rs.movenext
next
rs.close
end if
closeconn(conn)
%>
