网络上找的

								'#################################
				'
				'
				'┌──────────Cihn───┐
				'│　　  淮南设计    版权所有　　│
				'└─────────────.NET┘
				'#################################
				function DateTimeFormat(DateTime,Format) 
				select case Format
				case "1"
				 DateTimeFormat=""&year(DateTime)&"年"&month(DateTime)&"月"&day(DateTime)&"日"
				case "2"
				 DateTimeFormat=""&month(DateTime)&"月"&day(DateTime)&"日"
				case "3" 
				 DateTimeFormat=""&year(DateTime)&"/"&month(DateTime)&"/"&day(DateTime)&""
				case "4"
				 DateTimeFormat=""&month(DateTime)&"/"&day(DateTime)&""
				case "5"
				 DateTimeFormat=""&month(DateTime)&"月"&day(DateTime)&"日 "&FormatDateTime(DateTime,4)&""
				case "6"
				   temp="周日,周一,周二,周三,周四,周五,周六"
				   temp=split(temp,",") 
				   DateTimeFormat=temp(Weekday(DateTime)-1)
				case else
				 DateTimeFormat=DateTime
				end select
				end function
				
				'******************************************************************
				'非法字符过滤函数
				
				function checkStr(str)
					if isnull(str) then
						checkStr = ""
						exit function 
					end if
					checkStr=replace(str,"'","’")
				end function
				
				
				function browser(info)
				    if Instr(info,"NetCaptor 6.5.0")>0 then
				        browser="NetCaptor 6.5.0"
				    elseif Instr(info,"MyIe 3.1")>0 then
				        browser="MyIe 3.1"
				    elseif Instr(info,"NetCaptor 6.5.0RC1")>0 then
				        browser="NetCaptor 6.5.0RC1"
				    elseif Instr(info,"NetCaptor 6.5.PB1")>0 then
				        browser="NetCaptor 6.5.PB1"
				    elseif Instr(info,"MSIE 5.5")>0 then
				        browser="Internet Explorer 5.5"
				    elseif Instr(info,"MSIE 6.0")>0 then
				        browser="Internet Explorer 6.0"
				    elseif Instr(info,"MSIE 6.0b")>0 then
				        browser="Internet Explorer 6.0b"
				    elseif Instr(info,"MSIE 5.01")>0 then
				        browser="Internet Explorer 5.01"
				    elseif Instr(info,"MSIE 5.0")>0 then
				        browser="Internet Explorer 5.00"
				    elseif Instr(info,"MSIE 4.0")>0 then
				        browser="Internet Explorer 4.01"
				    else
				        browser="其它"
				    end if
				end function
				function system(info)
				    if Instr(info,"NT 5.1")>0 then
				        system=system+"Windows XP"
				    elseif Instr(info,"Tel")>0 then
				        system=system+"Telport"
					elseif Instr(info,"webzip")>0 then
				        system=system+"webzip"
					elseif Instr(info,"flashget")>0 then
				        system=system+"flashget"
					elseif Instr(info,"offline")>0 then
				        system=system+"offline"
				    elseif Instr(info,"NT 5")>0 then
				        system=system+"Windows 2000"
				    elseif Instr(info,"NT 4")>0 then
				        system=system+"Windows NT4"
				    elseif Instr(info,"98")>0 then
				        system=system+"Windows 98"
				    elseif Instr(info,"95")>0 then
				        system=system+"Windows 95"
					elseif instr(info,"unix") or instr(info,"linux") or instr(info,"SunOS") or instr(info,"BSD") then
					    system=system+"类Unix"
				    elseif instr(thesoft,"Mac") then
					    system=system+"Mac"
				    else
				        system=system+"其它"
				    end if
				end function
				function CloseDatabase()
					Conn.close
					Set conn = Nothing
				End Function
				Copyright = Copyright & "				Copyright = Copyright & "=================================================" & vbcrlf
				Copyright = Copyright & "=     (c)Copyright 2004 ScorpioNet              =" & vbcrlf
				Copyright = Copyright & "=	Design		: 太阳风暴		 =" & vbcrlf
				Copyright = Copyright & "=	HomePage	: www.cihn.net           =" & vbcrlf
				Copyright = Copyright & "=	OICQ		: 198694		 =" & vbcrlf
				Copyright = Copyright & "=	Email	        : djtonys@msn.com        =" & vbcrlf
				Copyright = Copyright & "=================================================" & vbcrlf
				Copyright = Copyright & " -->"
				%>