Counter ' the day before yesterday in Johnny's column saw a counter, suddenly remember before I also did ~ ~ Today turned out to change the embedded into my blog ~ ~ Put on someone else's server ~ ~ Release the source code we have to see if you want to look at it ~ ~ If you do not like to use the picture on the change to the text got! Picture file you can find something nice to put on!
' ************************ call *********************
' * <script language= "javascript" src= "Xxx.asp?max=8" ></script>
'*************************************************
javastr= "<div algin= ' center ' >"
<%
Max=request ("Max") '//Counter digit
If request.cookies ("count") = "Then"//anti-brush
Set fso=server.createobject ("Scripting.FileSystemObject")
Set Fp=fso. OpenTextFile (Server.MapPath ("Count.dat")) '//Counter statistics file
COUNTN=FP. Readline
Countn=countn+1
Fp.close
Set fp=nothing
Set Fp=fso.createtextfile (Server.MapPath ("Count.dat"))
Fp. Writeline COUNTN
Set fp=nothing
Set fso=nothing
Response.Cookies ("Count") =countn
End If
Set fso=server.createobject ("Scripting.FileSystemObject")
Set Fp=fso. OpenTextFile (Server.MapPath ("Count.dat"))
S=FP. Readline
For n= (Max-len (s)) to 1 step-1
%>
javastr=javastr+ "<%
Next
J=0
For I= (Max-len (s)) to Max-1
J=j+1
%>
javastr=javastr+ ".gif ' border=0> '"
<%
Next
Set fp=nothing
Set fso=nothing
javastr=javastr+ "</div>"
%>
document.write (JAVASTR)
