Sub showCounter
Dim fs,outfile,filename,count
filename=server.mappath("count.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.fileExists(filename) Then
 Set outfile=fs.openTextFile(filename,1)
 count=outfile.readline
 count=count+1
 Response.write "<center>浏览人次："&count&"<center>"
 outfile.close
 Set outfile=fs.CreateTextFile(filename)
 outfile.writeline(count)
Else
 Set outfile=fs.openTextFile(filename,8,TRUE)
 count=0
 outfile.writeline(count)
END IF
outfile.close
set fs=nothing
End Sub
%>

Array() 
　FUNCTION: 返回一个数组 
　SYNTAX: Array(list) 
　ARGUMENTS: 字符，数字均可 
　EXAMPLE: <%
Dim myArray()
For i = 1 to 7
　 Redim Preserve myArray(i)
　 myArray(i) = WeekdayName(i)
Next
%> 
　RESULT: 建立了一个包含7个元素的数组myArray
myArray("Sunday","Monday", ... ... "Saturday") 
　
CInt() 
　FUNCTION: 将一个表达式转化为数字类型 
　SYNTAX: CInt(expression) 
　ARGUMENTS: 任何有效的字符均可 
　EXAMPLE: <%
f = "234"
response.write cINT(f) + 2
%> 
　RESULT: 236
转化字符"234"为数字"234"，如果字符串为空，则返回0值　 
　
CreateObject() 
　FUNCTION: 建立和返回一个已注册的ACTIVEX组件的实例。 
　SYNTAX: CreateObject(objName) 
　ARGUMENTS: objName 是任何一个有效、已注册的ACTIVEX组件的名字.&nb

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

在google里搜索更多ASP实用函数库

	Web www.51ec.org

上一篇信息学院： 让ASP提高执行速度

下一篇信息学院： 2个通用的ASP分页方法