index.asp

这是一个asp的“www.vqqq.com网页特效”系统

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/error.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/index_body.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 articlecount,softcount,coolsitescount,djcount,newscount,piccount,jscount,counter from allcount"
set rs=conn.execute(sql)
articlecount=rs("articlecount")
softcount=rs("softcount")
coolsitescount=rs("coolsitescount")
djcount=rs("djcount")
newscount=rs("newscount")
piccount=rs("piccount")
jscount=rs("jscount")
counter=rs("counter")
sql="UPDATE allcount  SET counter = counter + 1"
conn.execute (sql)
rs.close
set rs=nothing
call head()
call menu()
call index_body()
call footer()
end if
%>