中财网微量元素铁偏高怎么办:asp数据库连接最新版代码，支持更高的版本数据库
来源：百度文库 编辑：中财网 时间：2024/04/25 14:22:58
<%
response.buffer=true '启用缓冲处理
dim conn,db
dim connstr
db="/sgsldcdata/#sgsldcpud.aspxx"'数据库链接路径
'connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"//旧版链接ACCESS数据库代码
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) '支持更高的版本数据库代码
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()
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.Charset="utf-8"
response.write("")
response.end
end if
end sub
%>