|
如何获取包含"&"符号的传值
|
那可不可以用ASCII码来传呢?把要传输的信息变成ASC码再传输。
为此比如
传输分析代码
<%
Dim ASCStr
Dim ASCSend
Dim i
ASCStr="传输&测试"'测试字符串
ASCSend=""
'字符串循环,循环后每个字符的ASCII码用|字符隔开
'循环后的字符串如13|10|25|30
For i=1 To Len(ASCStr)
ASCSend=ASCSend&CStr(ASC(Mid(ASCStr,i,1)))&"|"
Next
ASCSend=Mid(ASCSend,1,Len(ASCSend)-1)
%>
接收分析代码
<%
Dim ASCAry
Dim ASCTxt
Dim j
ASCAry=Split(Request.Form("ASCSend"),"|")'获得传输ASCII码字符串
ASCTxt=""
'循环还原传输的字符串。
For j=0 To UBound(ASCAry)
ASCTxt=ASCTxt&Chr(CInt(ASCAry(i)))
Next
Response.Write ASCTxt
%>