vbs将字符串转换为网页实体符号
 怎么将字符串编码为网页的实体字符,如全角空格实体编码为 ,asp如何实现将字符串转为对应的实体编码,防止出现乱码或者一般用户无法看到源代码

 起到保护内容的作用
vbs

2个回答

 function encode(s)'vbscript unicode字符串编码
  j=len(s)
  r=""
  for i=1 to j'注意aswc可能会返回负值,需要特殊处理下,vbs int类型溢出的问题,具体参考上面的文章
    r=r&"&#"&clng("&H"&(hex(ascw(mid(s,i,1)))))&";"
  next
  encode=r
end function
'DEMO
Response.write encode("中文abc的")

html = "1.html"
asp = "1.asp"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fhtml = fso.OpenTextFile(html, 1)
Set fasp = fso.OpenTextFile(asp, 2, true)
While fhtml.AtEndOfStream <> true
text = fhtml.ReadLine
text = "Response.Write "&""""&Replace(text, """", """""")&""""
fasp.WriteLine(text)
wend
fhtml.close
fasp.close
set fso = nothing
msgbox "success"

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐