% 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
|