<% set conn=server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("calendar.mdb") Set rs=Server.CreateObject("ADODB.Recordset") %> <% dim a(11) dim b(9) v_y=year(date) v_m=month(date) v_d=day(date) function translate(mydate) select case weekday(date) case 1: translate="日" case 2: translate="一" case 3: translate="二" case 4: translate="三" case 5: translate="四" case 6: translate="五" case 7: translate="六" end select end function sql="select date_2,date_3 from "& year(date) &" where date_1=#"&v_y&"-"&v_m&"-"&v_d&"#" rs.open sql ,conn,adOpenStatic %> <% Function Counts(CounterFile) Dim objFSO, objTS Application.Lock Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True) If Not objTS.AtEndOfStream Then '检查是否到达文件结尾 Counts = CLng(objTS.ReadLine) End If Counts = Counts + 1 objTS.Close Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True) objTS.WriteLine(Counts) objTS.Close Application.Unlock End Function If Session("Counter") = Empty Then Session("Counter") = Counts("Counter.txt") End If %> 博顿咨询

北京博顿良弓企业管理咨询有限公司版权所有!

地址:北京金融街平安大厦12层

E-mail:pdca@pdca.com.cn

 

 

 

 

 

 

 

 

北京博顿良弓企业管理咨询有限公司

 

 

 

 

 

北京金融街平安大厦12层

pdca@pdca.com.cn