<%

response.buffer=true '啟用緩沖處理

dim conn 
dim connstr
on error resume next
connstr="DBQ="+server.mappath("../ssortcom/ssortcom.mdb")+";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
End Sub
%>