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

dim conn 
dim connstr
on error resume next
connstr="DBQ="+server.mappath(dbpath&"byfenglan/byfenglanAC.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 "數(shù)據(jù)庫(kù)連接出錯(cuò)，請(qǐng)檢查數(shù)據(jù)庫(kù)連接文件中的數(shù)據(jù)庫(kù)參數(shù)設(shè)置。"
        Response.End
    End If 
sub Chkhttp()
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 or server_v1="" or server_v1="" then
response.write("<script>alert('錯(cuò)誤：禁止從站點(diǎn)外部提交數(shù)據(jù)!.')</script>")
response.end
end if
end sub
%>