|
|
 |
|
| |
<%
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("jishu.txt")
End If
num1=Session("Counter")
num1=right("00000000000"&num1,8)
for i= 1 to len(num1)%>%>.gif) <%next%>
|
|
|
| |
<%
num=conn.execute("select count(id) from member")(0)
num=right("00000000000"&num,8)
for i= 1 to len(num)%>%>.gif) <%next%> |
|
|
 |
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 5 * from [news] order by clicknum desc",conn,1,1
if rs.bof and rs.eof then
response.Write("")
else
i=1
do while not rs.eof
%>
 |
|
<%
rs.movenext
i=i+1
loop
end if
rs.close
set rs=nothing%>
|
 |
|
 |
|
|
