先把网页的内容定义到一个比如page里面~
也就是说只有而且必须到
<%=page%>才输出网页的全部代码
那么定义unicode函数然后进行编码
<%
function chinese2unicode(Str)
dim i
dim Str_one
dim Str_unicode
if(isnull(Str)) then
exit function
end if
for i=1 to len(Str)
Str_one=Mid(Str,i,1)
Str_unicode=Str_unicode&chr(38)
Str_unicode=Str_unicode&chr(35)
Str_unicode=Str_unicode&chr(120)
Str_unicode=Str_unicode& Hex(ascw(Str_one))
Str_unicode=Str_unicode&chr(59)
next
chinese2unicode=Str_unicode
end function
%>
<%=chinese2unicode(page)%>
内容全部来源于网络收集，如有侵权，请联系网站删除!