ASP-经典：组织一个Query.String如果字符串是空

Question

我送一个字符串到一个页面，看起来像这样：

CalMiles_MS.asp?s0=Chicago,IL&s1=Akron,OH&s2=,EMPTY&s3=,EMPTY&s4=,EMPTY&s5=,EMPTY&s6=,EMPTY&s7=,EMPTY&s8=,EMPTY&s9=,EMPTY&s10=,EMPTY&s11=,EMPTY&s12=,EMPTY&s13=Des Moines,IA&s14=,EMPTY&s15=,EMPTY&s16=,EMPTY&s17=,EMPTY&s18=,EMPTY&s19=,EMPTY&s20=,EMPTY&s21=,EMPTY&s22=Miami,FL&s23=Dallas,TX 

但在"CalMiles_MS.asp"页我想删除所有的在",EMPTY"和重新排序"&s" + Number(s)所以完成后上面的例子是这样的：

CalMiles_MS.asp?s0=Chicago,IL&s1=Akron,OH&s2=Des Moines,IA&s3=Miami,FL&s4=Dallas,TX 

我怎么能这样做？

请帮忙，谢谢。

编辑：

<% 
Dim key 
Dim qstr 
Dim count: count = 0 

Response.Write "<p>Input:<br />" & Request.Querystring & "</p>" 

for each key in Request.Querystring 
    If Request.Querystring(key) <> ",EMPTY" Then 
     qstr = qstr & "&s" & count & "=" & Request.Querystring(key) 
     count = count + 1 
    End If 
Next 

If qstr <> "" Then 
    qstr = Right(qstr, Len(qstr) - 1) 
End If 

Response.Write "<p>Output:<br />" & qstr & "</p>" 
%> 

但现在的问题是不，它不保持在S的以（S＃），现在工作得很好，但城市，国家不能正确的顺序：

&s1......,.......&s2......,.......&s3......,....... 

如何对它们进行数字排序并保持顺序相同（城市，州）？

我的测试查询输入：

s0=Columbus,OH&s1=,EMPTY&s2=,EMPTY&s3=Chicago,IL&s4=,EMPTY&s5=,EMPTY&s6=,EMPTY&s7=,EMPTY&s8=Akron,OH&s9=,EMPTY&s10=,EMPTY&s11=Plainfield,IN&s12=,EMPTY&s13=Miami,FL&s14=,EMPTY&s15=,EMPTY&s16=,EMPTY&s17=,EMPTY&s18=,EMPTY&s19=,EMPTY&s20=,EMPTY&s21=Memphis,TN&s22=Denver,CO&s23=Dallas,TX 

输出：

s0=Columbus,OH&s1=Chicago,IL&s2=Miami,FL&s3=Plainfield,IN&s4=Dallas,TX&s5=Memphis,TN&s6=Akron,OH&s7=Denver,CO 

但输出应该是：

s0=Columbus,OH&s1=Chicago,IL&s2=Akron,OH&s3=Plainfield,IN&s4=Miami,FL&s5=Memphis,TN&s6=Denver,CO&s7=Dallas,TX 

Answer 1

而不是for each，您需要使用数字索引器来访问集合。后者保留输入字符串的顺序。

<% 
Dim qstr 
Dim count: count = 0 
Dim x 

Dim value 

for x = 1 To Request.Querystring.Count 
    value = Request.Querystring.Item(x) 

    If value <> ",EMPTY" Then 
     qstr = qstr & "&s" & count & "=" & value 
     count = count + 1 
    End If 
Next 

If qstr <> "" Then 
    qstr = Right(qstr, Len(qstr) - 1) 
End If 

Response.Write "<p>Input:<br />" & Request.Querystring & "</p>" 
Response.Write "<p>Output:<br />" & qstr & "</p>" 
%> 

输入：

S0 =哥伦布，俄亥俄州& S1 =，EMPTY & S2 =，EMPTY & S3 =芝加哥，IL & S4 =，EMPTY & S5 =，EMPTY & S6 =， EMPTY & S7 =，EMPTY & S8 =俄亥俄州阿克伦& S9 =，EMPTY & S10 =，EMPTY & S11 =普兰菲尔德，IN & S12 =，EMPTY & S13 =迈阿密，FL &和S14 =，EMPTY & S15 =，EMPTY & S16 =，EMPTY & S17 =，EMPTY & S18 =，EMPTY & S19 =，EMPTY & S20 =，EMPTY & S21 =孟菲斯，田纳西& S22 =丹佛，CO & S23 =达拉斯，德克萨斯

输出：

S0 =哥伦布，俄亥俄州& S1 =芝加哥，IL & S2 =俄亥俄州阿克伦& S3 =普兰菲尔德，IN &小号4 =迈阿密，佛罗里达& S5 =田纳西州孟菲斯& S6 =科罗拉多州丹佛市& S7 =达拉斯，德克萨斯

Answer 2

为什么空你不循环的查询字符串检查然后再次建立字符串？

编辑： 我测试了我的代码和参数问世有序1,2,3，...

<% 
Dim key 
Dim qstr 
Dim count: count = 0 

Response.Write "<p>Input:<br />" & Request.Querystring & "</p>" 

for each key in Request.Querystring 
    If Request.Querystring(key) <> ",EMPTY" Then 
     qstr = qstr & "&s" & count & "=" & Request.Querystring(key) 
     count = count + 1 
    End If 
Next 

If qstr <> "" Then 
    qstr = Right(qstr, Len(qstr) - 1) 
End If 

Response.Write "<p>Output:<br />" & qstr & "</p>" 
%> 

输入：

s0=Chicago,IL&s1=Akron,OH&s2=,EMPTY&s3=,EMPTY&s4=,EMPTY&s5=,EMPTY&s6=,EMPTY&s7=,EMPTY&s8=,EMPTY&s9=,EMPTY&s10=,EMPTY&s11=,EMPTY&s12=,EMPTY&s13=Des%20Moines,IA&s14=,EMPTY&s15=,EMPTY&s16=,EMPTY&s17=,EMPTY&s18=,EMPTY&s19=,EMPTY&s20=,EMPTY&s21=,EMPTY&s22=Miami,FL&s23=Dallas,TX

输出：

s0=Chicago,IL&s1=Akron,OH&s2=Des Moines,IA&s3=Dallas,TX&s4=Miami,FL