帮忙把这段ASP代码格式化一下。

运行是正确的，但总感觉格式太乱。

请帮我把这段代码整理规范一下。

<%Dim str

Dim strSplit

Dim strRet

str=request.querystring("qq")
strSplit = "|"

For i = 1 To Len(str)
strRet = strRet & Mid(str, i, 1) & strSplit
Next

strRet = Left(strRet, Len(strRet) - 1)

strs=strRet
a=split(strs,"|")
%>

igame.qq.com/q<%For i = LBound(a) To UBound(a)%><%ok=a(i)%><%if ok="2" then ok="k"%><%if ok="3" then ok="p"%><%if ok="4" then ok="a"%><%if ok="5" then ok="g"%><%if ok="8" then ok="yyy"%><%if ok="9" then ok="cc"%><%=ok%><%Next%>

追问：这样是可以了，但是运行后显示出来的效果不是我想要的。
整理后显示的字串字面有空格，而之前是没有的。
QQ参数:345561204测试，之前：pagg61k0a，之后：p a g g 6 1 k 0 a 
 
这个程式实现的效果想必你已经知道了，或者重新帮我写段代码实现也可以，谢谢了。

答案：<%
Dim str
Dim strSplit
Dim strRet
str=request.querystring("qq")
strSplit = "|"
For i = 1 To Len(str)
strRet = strRet & Mid(str, i, 1) & strSplit
Next
strRet = Left(strRet, Len(strRet) - 1)
strs=strRet
a=split(strs,"|")
%>
igame.qq.com/q
<%
For i = LBound(a) To UBound(a)
ok=a(i)
if ok="2" then ok="k"
if ok="3" then ok="p"
if ok="4" then ok="a"
if ok="5" then ok="g"
if ok="8" then ok="yyy"
if ok="9" then ok="cc"
%>
<%=ok%>
<%Next%>

上一个：超奇怪的错误！化境HTTP上传程序upload_5xsoft.inc 第 33 行 无效的类别字符串
下一个：织梦的程序有默认的防CC攻击功能吗