Copyright© 2005 59766.com Inc. All rights reserved. 互联在线公司 所有 <%if h_c_h<>"" then%><%
Dim objBCoo
Set objBCoo=Server.CreateObject("MSWC.BrowserType")
dim objconn,db
dim objconnstr
db="../Hulian_Count.asa" '数据库文件位置
on error resume next
objconnstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set objconn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
objconn.open objconnstr
end if
sqlquery="select count from H_Count where hulian_ban='"&h_c_h&"'"
set rsrecordset=server.createobject("adodb.recordset")
rsrecordset.open sqlquery,objconn,1,3
'注释:打开数据库。
'application.lock
'application("num")=rsrecordset("count")
'application.unlock
'注释:把上一次访问次数赋给Application对象
if request.Cookies("'"&h_c_h&"'")="" and objBCoo.Cookies=true then
'application.lock
'application("num")=application("num")+1
'application.unlock
rsrecordset("count")=rsrecordset("count")+1
rsrecordset.update
end if
count_num=rsrecordset("count")
rsrecordset.close
objconn.close
set rsrecordset=nothing
set objconn=nothing
'注释:关闭数据库,释放对象
'dim nmb1
'dim str()
'nmb1=application("num")
'nmb1=count_num
'redim str(nmb1)
'for i=1 to len(nmb1)
'str(i)=mid(nmb1,i,1)
'注释:对于每一个数得到相应的图形文件
'select case str(i)
'case"0"
'imgF="0.gif"
'case"1"
'imgF="1.gif"
'case"2"
'imgF="2.gif"
'case"3"
'imgF="3.gif"
'case"4"
'imgF="4.gif"
'case"5"
'imgF="5.gif"
'case"6"
'imgF="6.gif"
'case"7"
'imgF="7.gif"
'case"8"
'imgF="8.gif"
'case"9"
'imgF="9.gif"
'end select
'注释:输出图形
'response.write" "
'next
'response.Cookies("'"&h_c_h&"'")=h_c_h
objBCoo.close
Set objBCoo=Nothing
%>
<%end if%> |