|
<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir) & "\hits.txt"
HitsFile1 = Server.MapPath(Dir) & "\h.asp"
On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
if NewHits >999999999 then NewHits = 0
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
a= int((NewHits)/100000000)
if a>=1 then
NewHits=NewHits-a*100000000
end if
b=int((NewHits)/10000000)
if b>=1 then
NewHits=NewHits-b*10000000
end if
c=int((NewHits)/1000000)
if c>=1 then
NewHits=NewHits-c*1000000
end if
d=int((NewHits)/100000)
if d>=1 then
NewHits=NewHits-d*100000
end if
e=int((NewHits)/10000)
if e>=1 then
NewHits=NewHits-e*10000
end if
f=int((NewHits)/1000)
if f>=1 then
NewHits=NewHits-f*1000
end if
g=int((NewHits)/100)
if g>=1 then
NewHits=NewHits-g*100
end if
h=int((NewHits)/10)
if h>=1 then
NewHits=NewHits-h*10
end if
i=int((NewHits)/1)
if i>=1 then
NewHits=NewHits-i*1
end if
Set OutStream= FileObject.CreateTextFile (HitsFile1, True)
OutStream.WriteLine("&a="&a+1&"&b="&b+1&"&c="&c+1&"&d="&d+1&"&e="&e+1&"&f="&f+1&"&g="&g+1&"&h="&h+1&"&i="&i+1&"&")
%> |
|
|
许仕博，男， 1949 年 10 月出生，山东省莒南县人，中国共产党员，中学高级教师，现任莒南县第五中学校长兼党支部书记。作为改革时代的先行者，先后荣获“振兴沂蒙劳动奖章”“临沂市文明市民标兵”“山东省优秀教师”“2004 年世界知名人士”、“中国百位优秀基层领导”等荣誉称号. |
|
|
