asp vbscript

基于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作用是检查空格，忽略