www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\gtbook\conn.asp

    <%@LANGUAGE="VBSCRIPT"%>
<%

	dim dbfile, strconn, conn, rs, iadmin, ipass, iurl, ititle, isitename, ipagesize, iaff, imax, idesc, iauthor, ikey
	dbfile = server.mappath("data/gtbook.mdb")
	set conn = server.createobject("adodb.connection")
	On Error Resume Next
	conn.open "provider=microsoft.jet.oledb.4.0; data source=" & dbfile	
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"
		Response.End
	End If




	strconn = "select * from site_info"
	set rs = conn.execute(strconn)

	iadmin = rs("fadmin")
	ipass = rs("fpass")
	iurl = rs("furl")
	ititle = rs("ftitle")
	isitename = rs("fsitename")
	iaff = rs("faff")
	imax = rs("fmax")
	ipagesize = rs("fpagesize")
	idesc = rs("fdesc")
	iauthor = rs("fauthor")
	ikey = rs("fkey")
	rs.close
	set rs = nothing
%>