main.asp

来自「南鄂电子商务学校网: 学校概况、校园动态、师资力量、教学成果、师生论坛、友情链接」· ASP 代码 · 共 49 行

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="format.asp"-->
<!--#include file="error.asp"-->
<!--#include file="body/incjs.asp"-->
<!--#include file="body/top.asp"-->
<!--#include file="body/main_master.asp"-->
<!--#include file="body/main_vote.asp"-->
<!--#include file="body/main_news.asp"-->
<!--#include file="body/main_teach.asp"-->
<!--#include file="body/main_achieve.asp"-->
<!--#include file="body/main_diary.asp"-->
<!--#include file="body/main_summary.asp"-->
<!--#include file="body/main_flink.asp"-->
<!--#include file="body/main_body.asp"-->
<!--#include file="body/foot.asp"-->
<%
stats="首页"
dim founderr,errmsg
founderr=false
errmsg=""

if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的日记id参数。"
  end if
end if

if founderr then
  call diserror()
  response.end
else

sql="select newscount,achievecount,summarycount,friendlinkcount,teachcount from allcount"
set rs=conn.execute(sql)
newscount=rs("newscount")
achievecount=rs("achievecount")
teachcount=rs("teachcount")
summarycount=rs("summarycount")
friendlinkcount=rs("friendlinkcount")
rs.close
set rs=nothing

call top()
call main_body()
call endpage()
end if
%>