config.asp

东旭网络问卷调查系统 v2.4 很好用的大家试试看

<!--#include file="Conn.asp"-->
<!--#include file="Fun.asp"-->
<!--#include file="Md5.asp"-->
<script language="JavaScript" src="../Js/Func.js"></script>
<script language="javascript1.2">window.onload=tableFix;</script>
<%
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
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
set rs=server.createobject("adodb.recordset")
set rst=server.createobject("adodb.recordset")

sql="select SysSet_keyword,SysSet_descrip,SysSet_siteName,SysSet_siteURL from [SysSet] where SysSet_use=true"
rs.open sql,conn,1,1
keywords=rs(0)
descrip=rs(1)
siteName=rs(2)
siteURL=rs(3)
rs.close
'检验是否为管理员
sql="select * from [Admins] where Admin_user='"&session("AdminId")&"' and Admin_name='"&request.Cookies("AdminName")&"'"
rs.open sql,conn,1,1
if rs.eof then
Call ShowAlert("参数错误","../Index.asp")
end if
rs.close
CookieName="dxstudio_survey"
%>