<%@ 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")	'緩存名稱，如果一個空間內放置了多個此系統，請更改此名稱
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" -->