conn.asp

Lirong网络办公系统

<%@ LANGUAGE = VBScript CodePage = 936%>

<%
Dim Conn
Dim Db
Dim ConnStr
	      Db = "../../netcstdb/netcstoa.gif"
	      'ConnStr = "driver={Microsoft Access Driver (*.mdb)};dbq= " & Server.MapPath(Db)
              ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db)   
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
                response.write "<META http-equiv=Content-Type content='text/html; charset=gb2312'>"
                response.write "<LINK href='../images/style.css' type=text/css rel=stylesheet>"
		Response.Write " <br><font color=red>对不起！</font><br><br>数据库连接地址或数据库名称有问题，请确认数据库路径( <font color=red>"&Server.MapPath(Db)&" </font>)是否正确！"
		Response.End
	End If
set rss=server.createobject("adodb.recordset")
rss.open "select * from config",conn,1,1		
if not rss.eof then
companyname=rss("companyname")
end if
%>