itle.asp 仿MOP对开式论坛程序 1.0源码程序 - ASP源码程序

www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > title.asp

    <!--#include file="gbmadconn.asp"-->
<!--#include file="setting.asp"-->
<%
Dim gbmaduser,userpwd,gb,validate,imprison,ip,bbsadmin,theme,contents,stime,etime,tl(100),m
stime=timer()
gbmaduser=Replace(Replace(Request.Cookies(bbssn)("username"),"'",""),"""","")
userpwd=Request.Cookies(bbssn)("password")
gb=Request.Cookies(bbssn)("gb")
if IsNumeric(gb) then
gb=Clng(gb)
else
gb=0
end if
validate=Request.Cookies(bbssn)("validate")
imprison=Request.Cookies(bbssn)("imprison")
if IsNumeric(imprison) then
imprison=Clng(imprison)
else
imprison=0
end if
ip=Request.ServerVariables("REMOTE_ADDR")
bbsadmin=Session("bbsadmin")
theme=Request.Cookies(bbssn)("theme")
if theme="" then theme=defaulttheme
contents="<html>"&_
"<head>"&_
"<meta http-equiv=""Pragma"" content=""no-cache"">"&_
"<meta http-equiv=""expires"" content=""wed, 29 Aug 2000 00:00:00 GMT"">"&_
"<meta http-equiv=""Cache-Control"" content=""no-cache, must-revalidate"">"&_
"<meta http-equiv=""Content-Language"" content=""zh-cn"">"&_
"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"&_
"<link rel=""stylesheet"" type=""text/css"" href="""& theme &"index.css"">"&_
"<script language=""JavaScript"" src=""open.js""></script>"
%>