忠網廣告系統(tǒng) 用到的幾個函數(shù)

2024-05-04 10:58:48

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:

<%
'///******************************************************************
'  常用公共函數(shù)庫文件名：PubFunction.asp
'******************************************************************///

  Const Go_back="<a href='javascript:history.back(1)'>[返回上頁]</a>"
  Const Closer="<a href='javascript:self.close()'>『關閉窗口』</a>"


'//********************************************************************
'  PubFgdy(Test,Tag,Bh)  根據(jù)分隔符和標號調用指定字符串的指定值函數(shù)，參數(shù)：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) 代碼規(guī)范函數(shù)，參數(shù)：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代碼函數(shù)，參數(shù)：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的神奇功能 - 權限許可

發(fā)表評論

共有條評論