conn.asp

来自「我见过的用ASP写的最好的留言簿程序」· ASP 代码 · 共 28 行

<!--#include file="function.asp"-->
<%
Response.Buffer = True
	Session.TimeOut=20
	Dim db,conn,connstr
		db = "db/data.mdb"      '<<--修改数据库路径
		connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	Set conn = Server.CreateObject("ADODB.Connection")
	On Error Resume Next
	conn.open connstr
	If Err Then
		Err.Clear
		Set Conn = Nothing
	Response.Redirect "error.asp"
	Response.End
	else

Dim Rs,Sql
Set Rs=Server.CreateObject("adodb.recordSet")
Call info
	urlname=change(rs("urlname"))
	names=rs("name")
	perpage=rs("perpage")
	page=rs("page")
	locks=rs("lock")
	Variable=rs("Variable")
	powerby=rs("powerby")
%>