config.asp

是个不错的文件代码,希望大家好好用,

<%
option explicit
response.buffer=true
public sitename,menuid,title
public isfirstview_msgstr
public clientip
public opendb '是否打开数据库，功能暂时没有发布
const systempath		="/test/"	'如“/search/”
const mail_fromname		= "玫瑰情缘(dfsh)"
const webmaster_email	= "[e-mail]"
const cookiename		= "dfsh"
dim crlf : crlf			= chr(13) & chr(10)
sitename="玫瑰情缘（dfsh）"
clientip=request.servervariables("remote_addr")
if request.cookies(cookiename&"isfirstview_sethome") = "" then
	response.cookies(cookiename&"isfirstview_sethome") = cstr(now())
	response.cookies(cookiename&"isfirstview_sethome").expires = date + 30
	isfirstview_msgstr = " onunload=""sethome();"""
end if
%>