基于vbscript的asp操作
<%set fObj=CreateObject("Scripting.FileSystemObject")
set Out=fObj.OpenTextFile(Server.Mappath("count.txt"))
num=Out.readline
Out.close
set Out=fObj.CreateTextFile(Server.Mappath("count.txt"))
Out.writeline(num+1)
Out.close
set fObj=nothing
%>
<%Response.Expires=10 %>
表示浏览器内容在10分钟后过期,若为0,表示禁止缓存,让其每次都从服务器取,而
不是从缓存中取。
for(i=1;i<len(string);i++)
mid(name,i,1)取字符串中的每一个字符 asc()是取字符的ASCii
userip=Request.ServerVariables("REMOTE_ADDR") '显示ip地址
Redim preserve input(countud)'数组动态增加一项
exit for '退出for循环
<a href='javascript:history.go(-1);'>点击这里进行修改</a>'退到上一个页面
name=Trim(name) 'Trim作用是检查空格,忽略