<%
response.buffer=true '啟用緩沖處理
dim conn 
dim connstr
dim scadb
scadb=dbpath&"data/#data.mdb"   'dbpath 為各文件中設置的路徑，請不要改動
on error resume next
connstr="DBQ="+server.mappath(""&scadb&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
If Err Then
    err.Clear
    Set Conn = Nothing
    Response.Write "數據庫連接出錯，請檢查數據庫連接文件中的數據庫參數設置。"
    Response.End
End If 

Sub Chkhttp()
    Dim url1,url2
    url1=Cstr(Request.ServerVariables("HTTP_REFERER"))
    url2=Cstr(Request.ServerVariables("SERVER_NAME"))
    If mid(url1,8,len(url2))<>url2 Then
        Response.Write "參數錯誤"
        Response.End
    End If
    if instr(url1,"http://"&request.servervariables("host") )<1 then 
        response.write "處理 URL 時服務器上出錯。如果您是在用任何手段攻擊服務器，那你應該慶幸，你的所有操作已經被服務器記錄，我們會第一時間通知公安局與國家安全部門來調查你的IP. "
        response.end
    end if
End Sub
%>