忠网广告系统用到的几个函数

复制代码代码如下:

<%
'///******************************************************************
'  常用公共函数库文件名：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

上一篇：安全脚本程序的编写 V1.0第1/3页

下一篇：ASP中FSO的神奇功能 - 权限许可

发表评论

共有条评论