您所在的位置:小祥子 » 编程 » ASP » 正文

ASP html转js函数

时间:2015-02-27 编辑:本站 来源:本站原创

HTML转JS,本站也有对应的工具,这个函数主要使用在插广告JS的时候,转JS一般两个步骤,加document.write与转义符\

'==============================
'函 数 名:HtmlToJs
'作    用:HTML转JS
'参    数:字符串CStrs
'==============================
Public Function HtmlToJs(CStrs)
 Dim ToJs
 CStrs=Replace(CStrs,Chr(10),"")
 CStrs=Replace(CStrs,Chr(32)&Chr(32),"")
 CStrs=Split(CStrs,Chr(13))
 ToJs=""
 For i=0 To UBound(CStrs)
 If Trim(CStrs(i)) <> "" Then
  CStrs(i)= Replace(CStrs(i),Chr(34),Chr(39))
  ToJs=ToJs&"document.write("&Chr(34)&CStrs(i)&Chr(34)&");"&Chr(10)
 End If
 Next
 HtmlToJs=ToJs
End Function
 

关键词:ASP 函数