conn1.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 " Error......"
		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
%>