<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim db
const DatabaseType="ACCESS"
db="databases/#mynet.asa"
On Error Resume Next
dim ConnStr
dim conn
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 "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>
这是conn文件,在本机NETBOX下能正常,但是上传到服务器就出现上面的错误,空间是试用的。