conn.asp

windowsCE 串口

<!--#include file="function.asp"-->
<%
Response.Buffer = True
	Session.TimeOut=20     '设置会话时间为20分钟
	Dim db,conn,connstr
		db = "datebase/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.write "<p align=center><font color=red><b>留言程序初始化失败!</b></font></p>"
	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")
%>