<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.codePage=65001
Response.ContentType = "text/html"
Response.CharSet = "utf-8"
%>
<!--#include file="db_database_name.asp" -->
<!--#include file="inc/cn.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/const.asp"-->
<%
'Server.ScriptTimeOut = 900			'脚本超时时间(单位:秒)
session.timeout=1440				'Session过期时间(单位:分钟)
dim conn,connstr,db
db="../db/"&dataname&""
'On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr

If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错!"
Response.End
End If
'include file="inc/nosql.asp

action=request.QueryString("action")

%>