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