index.asp

来自「使用前请您先阅读以下条款」· ASP 代码 · 共 57 行

<!--#include file="conn.asp"-->
<!--#include file="asptbsys.asp"-->
<!--#include file="asptbcom.asp"-->
<%
call asptbvc(asptbcopy) 
asptbdalei="" '大类
fname="" '当前位置
fnamec="" '子类
wslist="" '标题列表
wstitle="" '文章标题
fromname="" '文章来源信息
wasptbinfo="" '文章内容
hottitle="" '最热主题
'大类
g = request("g") 
call guangset(g,gknifo)
idll = request("idl")
idss = request("ids")
if idll="" and idss="" then
response.write"<title>"&webname&"</title>"&asptbtop&""
   call tjinfo(tuijianinfo)
   call hotzhuti(hottitle)
   call zxzhuti(zxinfot)
   call tjflei(ztable)
   call asptbguang(guang1)
   call hometable(hmtable)
   response.write""&hmtable&""
   response.write""&guang1&""
   response.write""&ztable&""
   response.write""&asptbcopy&""
end if
if idll<>"" then
   call djfenlei(idll,fname,ztitle)
   call xiafenlei(idll,fnamec)
   call hotasptbinfo(hottitle,idll)
   if idss="" then
      page=request("page")
      call liststitle(idll,wslist,page)
   else
     ids=request("ids")
      call wzaspinfo(idss,ztitle,fromname,wasptbinfo,titlexg)
   end if
   if idll<>"" and idss="" then
      medes=ztitle
      call dqstitletable(dqstable)
	  response.write"<title>"&ztitle&"</title>"&asptbtop&""
      response.write""&dqstable&""
   else
      call wztable(showtable)
	  response.write"<title>"&ztitle&"</title>"&asptbtop&""
     response.write""&showtable&""
     end if
end if
%>