conn.asp

内含全国3621个火车站,2204次列车时刻表

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<%
Option Explicit
Response.Buffer = True
Session.CodePage = 936
Dim powerid
Dim Comeurl
dim conn
Dim SqlNowString
Dim nowtit,action
Dim rs,id,sql
Dim totalput,pagedw,CurrentPage,page,PurviewChecked
Dim strFileName,sql_tables,Sql_Conditions,Sql_Condition,Sql_Lists,Sql_Sortings,Sql_Orders,Sql_Additional
Dim rs_web,rs_edit,dels,user_check
Dim fun_cel,nos_i,fun_get
Dim types,keyword
Dim formaction
Dim i
Dim webtit,sitename
Dim HTMLother
Dim domain : domain = Request.ServerVariables("server_name")
Const sys_Version = "25175学校聚合管理系统"
'定义数据库类别，1为SQL数据库，0为Access数据库
Const IsSqlDataBase = 0		
'=====================================================================
If IsSqlDataBase = 1 Then
	'SQL数据库设置
	'数据库名(SqlDatabaseName)
	Const SqlDatabaseName = "cj_2007"
	'用户密码(SqlPassword)
	Const SqlPassword = ""
	'用户名(SqlUsername)
	Const SqlUsername = "sa"
	'连接名(SqlLocalName)（本地用local，外地用IP）
	Const SqlLocalName = "(local)"	
'=====================================================================
Else
	'Access数据库设置
	'用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称
	'相对当前目录下绝对路径
	Const DataPath = "data/#123zh.mdb"
'===================================================================
End If
ConnectionDatabase
Dim siteinfo : siteinfo = getcache("web_config",0,1,3600)
%>