<%
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("#Date.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select * from Counter"
mRs.open Sql,conn,1,3
%>
| 爱自然膜结构工程有限公司、索膜结构、钢结构、膜、膜布、空间膜、空间膜爱自然膜结构工程有限公司、索膜结构、钢结构、膜、膜布、空间膜、空间膜爱自然膜结构工程有限公司、索膜结构、钢结构、膜、膜布、空间膜、空间膜爱自然膜结构工程有限公司、索膜结构、钢结构、膜、膜布、空间膜、空间膜爱自然膜结构工程有限公司、索膜结构、钢结构、膜、膜布、空间膜、空间膜 |
<%
'连接数据库
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath("freesoho.mdb")
Set conn= Server.CreateObject("ADODB.Connection")
p1=Provider&Path
conn.Open P1
Sub MyCounter(ClassID,IsDispPic)
Dim CountNum
SET Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn,1,3
Select Case ClassID
'刷新不计数
Case 1
if isempty(session("number")) then
application.lock
Rs("TOTAL")=Rs("TOTAL") + 1
application.unlock
session("number")=true
end if
'刷新记数
Case 2
Rs("TOTAL")=Rs("TOTAL") + 1
End Select
Rs.Update
CountNum=Rs("TOTAL")
Rs.close
set Rs=nothing
Conn.Close
Set Conn = Nothing
Call DispNum(CountNum,IsDispPic)
End Sub
Sub DispNum(CountNum,IsDispPic)
If IsDispPic="True" Then
Dim S, i, G
S = CStr(CountNum)
For i = 1 to Len(S)
G = G & "![](../imagesNum/") "
Next
Response.write (G)
Else
response.write("您是进入本站的第 "&CountNum.asp&" 位浏览者")
End If
End Sub
If Request("action")="freesoho" Then
If Request("ClassID")<>"" and Request("IsDispPic")<>"" Then Call MyCounter(Request("ClassID"),Request("IsDispPic")) End If
End If
%>
|
|
|
