网络编程
位置：首页>> 网络编程>> Asp编程>> 如何清除Vbscript惹出来的中文乱码？

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

　来源：asp之家　发布时间：2010-01-18 20:50:00　

标签：乱码,中文,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
％>


 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com