<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="./ajaxinc/asoftLangAsp.asp"-->
<%Response.CodePage="65001" 
 Response.Charset="UTF-8" 
 Response.Buffer = True 
 Response.ExpiresAbsolute = Now() - 1 
 Response.Expires = -1000 
 Response.CacheControl = "no-cache" 
 Response.AddHeader "Pragma", "No-Cache"
'##############################
'# 程序名：Asoft 签到管理系统
'# 版本：V3.5 正式�?build20110110 发布 2011-01-10        
'# 
'#############################
'#    作者提供有偿修改服�? ##
'#############################
'# 作者：野马      
'# QQ?643148
'# E-mail：plrsoft@qq.com
'# 开发方网站：http://www.plrsoft.cn/       
'#                   
'#############################
'#   数据库连接和通用过程#
'#############################
 
Response.Buffer=True
Response.Expires=0

'________________________________________________________________________________________________
'_________________________________________________________________________________________________
datapath    ="data/"      '数据库目录的相对路径
datafile    ="asofttykq35.asp"      '数据库文件名
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&datapath&""&datafile&"")
'Connstr="DBQ="&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};"
SqlNowString="Now()"
SqlChar="'"
'_________________________________________________________________________________________________

On Error Resume Next 
Set cn=Server.CreateObject("ADODB.Connection")
cn.open ConnStr
Set cn1=Server.CreateObject("ADODB.Connection")
cn1.open ConnStr
set asoft_rs=Server.CreateObject("ADODB.Recordset")
set rs=Server.CreateObject("ADODB.Recordset")
set rs1=Server.CreateObject("ADODB.Recordset")
set rs2=Server.CreateObject("ADODB.Recordset")
set rs3=Server.CreateObject("ADODB.Recordset")
set rs4=Server.CreateObject("ADODB.Recordset")
set initrs=Server.CreateObject("ADODB.Recordset")
set mrs=Server.CreateObject("ADODB.Recordset")
set rsa=Server.CreateObject("ADODB.Recordset")
set rsb=Server.CreateObject("ADODB.Recordset")
If Err Then
err.Clear
Set Cn = Nothing
Response.Write "<html><head><META HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; charset=utf-8"" /></head>"
Response.Write "<body>"&asoftLang(4000)&"</body></html>"
Response.End
End If

%>
<!--#include file="./ajaxinc/webinfo.asp"-->
<!--#include file="./ajaxinc/function.asp"-->
<!--#include file="./ajaxinc/MD5.asp"-->
