db_conn.asp

购物系统时尚版.强大的后台文章编辑器的功能

<%

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
%>