如何清除Vbscript惹出来的中文乱码？

如何清除Vbscript惹出来的中文乱码？

＜script language=vbscript runat=server＞ 
Function cut(str) 
length = Len(str) 
count = 1 
Do While count ＜= length 
If strComp(Mid(str,count,1),"Z",1) ＞ 0 Then 
length = length -1 
End If 
count = count + 1 
Loop 
cut = Left(str,Length) 
if Session("Version")＜＞3 then 
' 若为高版本asp则不需处理 
cut = str 
end if 
End Function 
＜/script＞

如何强制用户浏览网站的主页？

<％
if left(Request.ServerVariables("HTTP_REFERER"),24) 
<> "https://www.aspxhome.com/" and _
Request.ServerVariables("HTTP_REFERER") <> "" then
Response.Redirect "http://www.aspxhome.com "
end if
％>