config2.asp

用ASP设计的一个网上问卷系统,用于网上调查问卷系统的实现

<!--#include file="Conn2.asp"-->
<!--#include file="Fun.asp"-->
<!--#include file="Md5.asp"-->
<%
'----------------------------------------------------------
'页面功能：系统前台的配置文件，本站核心文件。
'最后修改时间：2007-11-20  15:43
'作者：legal http://www.ilegal.cn
'备注：
'----------------------------------------------------------

'----------------------------------------------------------
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
'----------------------------------------------------------
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
'Option Explicit'要求所有变量必须先定义后使用
Response.ContentType="text/html"
Response.Charset="utf-8"
Session.codepage=65001  
Session.Timeout=20

'----------------------------------------------------------
'系统参数
'----------------------------------------------------------
dim rs,rst,siteName,siteURL
set rs=server.createobject("adodb.recordset")
set rst=server.createobject("adodb.recordset")
sql="select SysSet_keyword,SysSet_descrip,SysSet_siteName,SysSet_siteURL,SysSet_flag,SysSet_close from [SysSet] where SysSet_use=true"
rs.open sql,conn,1,1
keywords=rs(0)
descrip=rs(1)
siteName=rs(2)
siteURL=rs(3)
SysSet_flag=rs(4)
rs.close
CookieName="dxstudio_survey"
if Application(CookieName & "_SiteEnable")="" then
	if SysSet_flag=1 then
	Application(CookieName & "_SiteEnable")=1
	else
	Application(CookieName & "_SiteEnable")=0
	Application(CookieName & "_SiteDisbleWhy") = "网站暂停中，请稍候几分钟后再来..."
	end if
end if
%>