|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。点击数在HTML顶用法
<ahref=counter.asp?save=123&url=http://127.0.0.1/>http://127.0.0.1</a>
共点击次数:<scriptsrc=view.asp?save=123></script>
counter.asp
*************************
<%
path="d:data"
file=request("save")
url=request("url")
Setfs=CreateObject("Scripting.FileSystemObject")
iffs.FileExists(path&file&".txt")then
Setthisfile=fs.OpenTextFile(path&file&".txt",1,False)
number=thisfile.readline+1
thisfile.Close
Setoutfile=fs.CreateTextFile(path&file&".txt")
outfile.WriteLinenumber
outfile.close
setfs=nothing
else
number=1
Setoutfile=fs.CreateTextFile(path&file&".txt")
outfile.WriteLinenumber
outfile.close
setfs=nothing
endif
response.redirecturl
%>
view.asp
***************************
<%
path="d:data"
file=request("save")
Setfs=CreateObject("Scripting.FileSystemObject")
iffs.FileExists(path&file&".txt")then
Setthisfile=fs.OpenTextFile(path&file&".txt",1,False)
number=thisfile.readline
thisfile.Close
setfs=nothing
else
number=0
endif
response.contenttype="application/x-javascript"
response.write"document.write("""&number&""");"
%>
</p>ASP脚本是采用明文(plaintext)方式来编写的。 |
|