<%

'链接数据库
Dim SysRootDir,SiteDataPath,TxcomcomConn, TxcomcomConnStr,TxcomcomRs
	SysRootDir = "/bot/" ' 填写蜘蛛访问统计系统数据库所在目录 不要忘记反斜杠 /
	SysMdbRootDir = "/bot/#mdb/" ' 填写蜘蛛访问统计系统数据库所在目录 不要忘记反斜杠 /
	SiteDataPath = "Txcomcom.asp"  ' 如果更改了数据库名称 请把这里改成对应的名称
	Set TxcomcomConn = Server.CreateObject("Adodb.Connection")
	TxcomcomConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(""&SysMdbRootDir&""&SiteDataPath&"")
	TxcomcomConn.Open TxcomcomConnStr
    set TxcomcomRs=Server.Createobject("ADODB.Recordset")
If Err Then
    Err.Clear
    Set TxcomcomConn = Nothing
    Response.Write "数据库连接错误，请检查连接参数！"
    Response.End
End If
%>