util.asp

一个简单ASP+ACCESS博客程序Simple Blog v1.2 。ASP虽然有些老了

<%
' Project Name: Simple Blog
' Version: 1.1
' Author: James Tang
' Email: [e-mail]
' Web site: www.fwso.cn
' Copyright (C) 2008 James Tang. All Rights Reserved.
'
' Note: This program can be used for any purpose for free. 
'       
%>
<%
Function convertDateTime (dataString) 
	convertDateTime = split(dataString)(0) + " " + cStr(FormatDateTime(cDate(dataString), vbShortTime))
End Function

Function encodeHTML (data)

	Dim temp
	data = Replace(data, "<!--more-->", "#!--more--#")
	data = Replace(data, "<pre>", "#pre#")
	data = Replace(data, "</pre>", "#/pre#")
	data = cleanHtml(data)
	data = Replace(data, "#!--more--#", "<!--more-->")
	data = Replace(data, "#pre#", "<pre>")
	data = Replace(data, "#/pre#", "</pre>")
	
	'data = Split (data, vbCr)
	''data = cleanBlankLine(data)
	data = Split (data, vbCrLf)
	temp = ""
	
	For Each d In data
		If d = "<!--more-->" or d = "<pre>" or d = "</pre>" Then
			temp = temp + d + vbNewLine
		ElseIf Len(d) > 0 Then
			temp = temp + "<p>" + d + "</p>" + vbNewLine
		End if
	Next
	
	encodeHTML = temp

End Function

Function cleanHtml(str)
	Dim reg             
	Set reg = new regExp
	reg.pattern = "(\<)(.*?)(\>)" ' . 匹配除\n之外的任何单个字符
	reg.IgnoreCase = false
	reg.Global = True
	str = reg.Replace(str,"&lt;$2&gt;")
	cleanHtml = str
End Function


Function encodeTitle (data)

	'data = Replace(data, " ", "&nbsp;")
	data = Replace(data, "<", "&lt;")
	data = Replace(data, ">", "&gt;")
	
	encodeTitle = data

End Function

Function cleanBlankLine (data) 
	Dim reg, blankLine
	blankLine = "^[\s]*$"
	Set reg = new RegExp
	reg.Pattern = blankLine
	reg.IgnoreCase = false
	reg.Global = True
	data = reg.Replace(data, "")
	cleanBlankLine = data
End Function 
%>