<%@LANGUAGE="VBSCRIPT"%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_count_STRING
Recordset1.Source = "SELECT * FROM dbo.count"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Application.Lock
Application("counter1") = Recordset1.Fields.Item("countnum1").Value
Application("counter2") = Recordset1.Fields.Item("countnum2").Value
if ((request.servervariables("remote_addr") > "202.112.176.0" and request.servervariables("remote_addr") < "202.112.191.255") or (request.servervariables("remote_addr") > "211.71.48.0" and request.servervariables("remote_addr") < "211.71.63.255" ) or (request.servervariables("remote_addr") > "211.82.64.0" and request.servervariables("remote_addr") < "211.82.79.255") or (request.servervariables("remote_addr") > "222.28.96.0" and request.servervariables("remote_addr") < "222.28.111.255" )) Then
Application("counter1") = Recordset1.Fields.Item("countnum1").Value + 1
Recordset1.Fields.Item("countnum1").Value = Application("counter1")
else
Application("counter2") = Recordset1.Fields.Item("countnum2").Value + 1
Recordset1.Fields.Item("countnum2").Value = Application("counter2")
end if
Recordset1.update()
Application.UnLock
Function GCounter( counter )
Dim S, i, G
S = CStr( counter ) '先将数值转换成字符串
'逐个取字符串 S 的每个字节,然后串成 图形标记
For i = 1 to Len(S)
G = G & ""
Next
GCounter = G
End Function
%>
中华健康老年网首页
图形标记
For i = 1 to Len(S)
G = G & "
收藏
首页
联系
留言
