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

2024-05-04 11:02:28

字体：大中小

来源：转载

供稿：网友

复制代码代码如下:<%
'///******************************************************************
'  常用公共函数库文件名：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

上一篇：在asp中通过getrows实现数据库记录分页的一段代码

下一篇：MusicGet 类