<%@ LANGUAGE="VBSCRIPT" CODEPAGE="936" %> 
<% 	option explicit
	'response.buffer = true
	dim startime
	dim conn
	dim connstr
	startime=timer()
%>

<%      const db = "data/#ttlink#.asp" '修改此处为你的数据库连接路径
	Sub ConnectionDatabase
	Dim ConnStr
	If IsSqlDataBase = 1 Then
		'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
    connstr = "Provider=SQLOLEDB.1;Password='';Persist Security Info=True;User ID='';Initial Catalog='';Data Source=''"
	Else
		ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
		'如果你的服务器采用较老版本Access驱动，请用下面连接方法
		'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)		
	End If
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		conn.close
		set conn=nothing
		Response.Write "数据库连接出错"
		Response.End
	End If
	End Sub	
	
	ConnectionDatabase

dim hx,hxcache
set hx=new cls_cutelink

Dim SqlNowString,strTrue,strFalse
If IsSqlDataBase = 1 Then
	SqlNowString = "GetDate()"
	strTrue = 1
	strFalse = 0	
Else
	SqlNowString = "Now()"
	strTrue = True
	strFalse = False	
End If
%>
<%dim ttsql,ttrs,WebName,ChannelName,WebUrl,WebAlt,WebLogo,webemail,emailkg,servemail,servesmtp,servekey,mailuserdomain,LineLogo,LineNum,inpc,MaxLine,MaxPageSize,CacheTime,HitsTime,FilterWord,Isanti,IPanti,IsVerify,IsDomainLimit,FilterDomain,IsDeBug,IsSqlDataBase,hxCacheName,skin,Repalce
set ttrs=server.createobject("adodb.recordset")
ttsql="select * from [tt_config]"
ttrs.open ttsql,conn,1,1
'---常规参数，请修改为您的信息！
WebName = Trim(ttrs("WebName"))	'您的网站名称
ChannelName = Trim(ttrs("ChannelName"))	'频道名称，一般不用修改
WebUrl = Trim(ttrs("WebUrl"))	'您的网站地址
WebAlt = Trim(ttrs("WebAlt"))	'您的网站说明
WebLogo = Trim(ttrs("WebLogo"))	'请将您网站的logo放在images目录下，大小88x31
webemail = Trim(ttrs("webemail"))	'您的电子邮箱地址
emailkg= ttrs("emailkg")  '是否使用邮件功能，1为使用，0这不使用
servemail= Trim(ttrs("servemail"))  '系统邮件服务器发信帐号
servesmtp= Trim(ttrs("servesmtp"))  '发信邮件服务器SMTP地址
servekey= Trim(ttrs("servekey"))  '发信邮件服务器登录密码
mailuserdomain= Trim(ttrs("mailuserdomain")) '域名（若用“name@domain.com”这样的用户名登录时，请指明domain.com


'---自定义参数，请视具体情况修改！
LineLogo = ttrs("LineLogo")	'显示图片链接的行数
LineNum = ttrs("LineNum")	'每一行显示网站的个数
inpc = ttrs("inpc")	'平均每天点入多少次以上的网站才显示链接
MaxLine = ttrs("MaxLine")	'最多显示多少行，0为不限制，如果设置必须大于LineLogo参数
MaxPageSize = ttrs("MaxPageSize")	'分页时每页显示的记录数
CacheTime = ttrs("CacheTime")	'缓存刷新时间，默认为30分钟
HitsTime = ttrs("HitsTime")	'同一IP隔多少时间后点击才继续计数，单位小时，默认为12小时
FilterWord = ttrs("FilterWord")	'定义要过滤的网站名称，用|隔开
Isanti = ttrs("Isanti")	'是否限定点入来源只能在其登记的网站域名上，1为限定，0为不限定。
IPanti = ttrs("IPanti")	'是否检测使用代理服务器点击，1为检测，0为不检测。
IsVerify = ttrs("IsVerify")	        '是否需要审核才能显示 1为需要 0为不需要。
IsDomainLimit = ttrs("IsDomainLimit")	'同一域名是否只能注册一次　1为限制 0为不限制
FilterDomain = ttrs("FilterDomain")	'定义要屏蔽的域名，用|隔开,空为不限制
hxCacheName = ttrs("hxCacheName")	'缓存名称，如果一个空间内放置了多个此系统，请更改此名称
session("hxCacheName")=hxCacheName '设置缓存名给主站登录时与友情链接管理登录整合
if request("skin")<>"" then
Response.cookies(hxCacheName&"_skin")=request("skin")
end if
if Request.cookies(hxCacheName&"_skin")="" then
	skin=ttrs("skin")
else
	skin=Request.cookies(hxCacheName&"_skin")
end if


'---系统参数，一般情况下不用修改！
IsDeBug = ttrs("IsDeBug")	'定义运行模式，数据库操作出错时，1为输出错误信息，方便调试，0为不输出。
IsSqlDataBase = ttrs("IsSqlDataBase")	'定义数据库类别，1为SQL数据库，0为Access数据库

	ttrs.close
	set ttrs=nothing
%>
<!--#INCLUDE file="class.asp" -->