< % Response.Charset="gb2312" Dim UserName,WebSite If Request.Form("Act")="DoSubmit" Then UserName=Request.Form("UserName") WebSite =Request.Form("WebSite")
'在服务器端解码 UserName=VbsUnEscape(UserName)//解码
'处理数据 '---省略数据处理部分
'数据处理后输出,先用VbsEscape()编码 Response.Write VbsEscape(UserName) End If %>
< % '与javascript中的escape()等效 Function VbsEscape(str) dim i,s,c,a s="" For i=1 to Len(str) c=Mid(str,i,1) a=ASCW(c) If (a>=48 and a< =57) or (a>=65 and a< =90) or (a>=97 and a< =122) Then s = s & c ElseIf InStr("@*_+-./",c)>0 Then s = s & c ElseIf a>0 and a<16 Then s = s & "%0" & Hex(a) ElseIf a>=16 and a<256 Then s = s & "%" & Hex(a) Else s = s & "%u" & Hex(a) End If Next VbsEscape=s End Function '与javascript中的unescape()等效 Function VbsUnEscape(str) Dim x x=InStr(str,"%") Do While x>0 VbsUnEscape=VbsUnEscape&Mid(str,1,x-1) If LCase(Mid(str,x+1,1))="u" Then VbsUnEscape=VbsUnEscape&ChrW(CLng("&H"&Mid(str,x+2,4))) str=Mid(str,x+6) Else VbsUnEscape=VbsUnEscape&Chr(CLng("&H"&Mid(str,x+1,2))) str=Mid(str,x+3) End If x=InStr(str,"%") Loop VbsUnEscape=VbsUnEscape&str End Function %>