忠网广告忠网广告 系统系统 用到的几个函数用到的几个函数
代码如下:<%
‘///******************************************************************
‘ 常用公共函数库 文件名:PubFunction.asp
‘******************************************************************///
Const Go_back=”<a href=’javascript:history.back(1)’>[返回上页]</a>”
Const Closer=”<a href=’javascript:self.close()’>『关闭窗口』</a>”
‘//********************************************************************
‘ PubFgdy(Test,Tag,Bh) 根据分隔符和标号调用指定字符串的指定值函数,参数:Test 被分隔的字符串,Tag 分隔符,Bh 标号
‘********************************************************************//
Function PubFgdy(Test,Tag,Bh)
PubFgdy=””
if Test<>”” and isnumeric(Bh)=true Then
Dim Tests
Tests=split(Test&Tag,Tag)
if Bh<Ubound(Tests) then
PubFgdy=Tests(Bh)
end if
else
PubFgdy=””
exit function
end if
end function
‘//********************************************************************
‘ PubCodeGF(OldTest) 代码规范函数, 参数:OldTest 原始内容, NewTest 新内容
‘********************************************************************//
Function PubCodeGF(OldTest)
dim NewTest:NewTest=trim(OldTest)
if isnull(NewTest) or NewTest=”” then code_admin=””:exit function
NewTest=replace(NewTest,”‘”,””””)
PubCodeGF=NewTest
end function
‘//********************************************************************
‘ PubCodehtml(OldTest) 屏蔽HTML代码函数, 参数:OldTest 原始内容, NewTest 新内容
‘********************************************************************//
function PubCodehtml(OldTest)
dim NewTest:NewTest=OldTest
if isnull(NewTest) or NewTest=”” then PubCodehtml=””:exit function
NewTest=replace(NewTest,”<“,”<“)
NewTest=replace(NewTest,”>”,”>”)
NewTest=replace(NewTest,chr(39),”'”) ‘单引号
NewTest=replace(NewTest,chr(34),”"”) ‘双引号
NewTest=replace(NewTest,chr(32),” “) ‘空格
NewTest=replace(NewTest,chr(9),” “)’table
NewTest=replace(NewTest,chr(10),”<br>”) ‘回车
NewTest=replace(NewTest,chr(13),”<br>”)
PubCodehtml=NewTest
end function
‘//********************************************************************
‘ PubCtime() 组合系统时间为正常字符串 含 年、月、日、时、分、秒 如:200412172356
‘********************************************************************//
Function PubCtime()
Dim GcChars
GcChars = now()
GcChars = replace(GcChars,”-“,””)
GcChars = replace(GcChars,” “,””)
GcChars = replace(GcChars,”:”,””)
GcChars = replace(GcChars,”PM”,””)
GcChars = replace(GcChars,”AM”,””)
GcChars = replace(GcChars,”上午”,””)
GcChars = replace(GcChars,”下午”,””)
GcChars = int(GcChars) + int((10-1+1)*Rnd + 1)
PubCtime=GcChars
end function
‘//********************************************************************
‘ PubFolderIfcz(Foldername) 判断目录是否存在,需要 fso支持 参数:Foldername
‘********************************************************************//
Function PubFolderIfcz(Foldername)
Dim fso
FolderIfcz=false
if Foldername<>”” then
Foldername=Server.MapPath(Foldername)
Set fso = server.CreateObject(“Scripting.FileSystemObject”)
if fso.FolderExists(Foldername) then
FolderIfcz=true
end if
set fso = nothing
end if
end Function
‘//********************************************************************
‘ PubFileIfcz(Filename) 判断文件是否存在,需要 fso支持 参数:Filename
‘********************************************************************//
Function PubFileIfcz(Filename)
Dim fso
PubFileIfcz=false
if Filename<>”” then
Filename=Server.MapPath(Filename)
Set fso = server.CreateObject(“Scripting.FileSystemObject”)
if fso.FileExist(Filename) then
PubFileIfcz=true
end if
set fso = nothing
end if
end Function
‘//********************************************************************