Dim e As RequestEventArgs = args(0) '注册第3页,完善资料(从后台填写城市)
Select Case e.Path
Case "quyu_get.htm"
Dim vals As String
If e.PostValues.Count = 1 Then
If e.PostValues.ContainsKey("szs")
vals = "|" & DataTables("城市列表").GetComboListString("所在市","所在省='" & e.PostValues("szs") & "'")
Else
vals = "|" & DataTables("城市列表").GetComboListString("所在市","所在省='" & e.PostValues("jxs") & "'")
End If
ElseIf e.PostValues.Count = 2 Then
If e.PostValues.ContainsKey("szs")
Dim Filter1 As String = "所在省='" & e.PostValues("szs") & "' And 所在市='" & e.PostValues("szshi") & "'"
vals = "|" & DataTables("城市列表").GetComboListString("所在区县", Filter1)
Else
Dim Filter2 As String = "所在省='" & e.PostValues("jxs") & "' And 所在市='" & e.PostValues("jxshi") & "'"
vals = "|" & DataTables("城市列表").GetComboListString("所在区县", Filter2)
End If
End If
e.WriteString(vals)
End Select
加好友 
发短信
Post By：2017/3/18 16:09:00 [显示全部帖子]
