% if request.ServerVariables("HTTP_HOST")<>"www.stpac.gov.cn" then action = "http://www.stpac.gov.cn" & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next if temp<>"" then response.redirect action&"?"&temp else response.redirect action end if end if %>
![]() |