function.asp

来自「结合了某度和AH的个人主页 功能比较完整」· ASP 代码 · 共 50 行

<%
	'功能：向计数器文件写入数据	
	 Sub writeNumber()
		filelink = Server.MapPath("count.txt")
		set fileobject = server.CreateObject("Scripting.FileSystemObject")
		'创建/打开文件
		set outfile = fileobject.OpenTextFile(filelink,2)
		'写入文件
		outfile.WriteLine(Application("Count"))	
		
		outfile.Close
		set outfile=nothing
		set fileobject=nothing	
	End Sub
	
	'功能：从计数据器文件中读取数据	
	Sub readNumber()
	  Application.Lock
		filelink = Server.MapPath("count.txt")
		set fileobject=server.CreateObject("Scripting.FileSystemObject")
		'打开文件
		set outfile = fileobject.OpenTextFile(filelink)
		'读取文件
		Application("Count") = outfile.readline		
		If Application("Count") = "" Then
			Application("Count") = 0
		End If
		outfile.Close	
		set outfile=nothing
		set fileobject=nothing	
	  Application.UnLock
	End Sub

	'将数字转代为显示数字图形的HTML代码 
	Function getCountHtml(number)
		Dim i,strReturn,intLen
		strReturn = ""
		intLen = Len(CStr(number))
		
		For i=1 To (10-intLen)
			strReturn = strReturn & "<Img src='Image\0.GIF'>"
		Next
		
		For i=1 To intLen
			strReturn = strReturn & "<Img src='Image\" & Mid(CStr(number),i,1) & ".GIF'>"
		Next
		
		getCountHtml = strReturn
	End Function	
%>