一聚教程网:一个值得你收藏的教程网站

热门教程

asp参数传递到下一页面

时间:2022-07-02 22:44:28 编辑:袖梨 来源:一聚教程网



  <%
   ''Pass form objects submitted by a form G
   '' ET
   If Request.QueryString.Count>0 Then
   QStr="?"
   For Each x In Request.QueryString
   QStr = QStr & x & "=" ''Write Name of Parameter
   QStr = QStr & Server.URLEncode(request.QueryString(x)) & "&" ''Write value of parameter
   Next
   QStrSz = len(QStr)-1
   QStr = LEFT(QStr,QStrSz)
   else
   QStr=""
   End If
   Response.Redirect("YourURL.asp" & QStr)
   %>
   The Next example shows how To build the submitted parameters from a form POST. The procedure reads all posted objects and builds a querystring parameter.
   <%
   ''Pass form objects submitted by a form G
   '' ET
   If Request.form.Count>0 Then
   QStr="?"
   For Each x In Request.form
   QStr = QStr & x & "=" ''Write Name of Parameter
   QStr = QStr & Server.URLEncode(request.form(x)) & "&" ''Write value of parameter
   Next
   QStrSz = len(QStr)-1
   QStr = LEFT(QStr,QStrSz)
   else
   QStr=""
   End If
   Response.Redirect("YourURL.asp" & QStr)
   %>
   The Next code example may be used as a test ASP page To redirect to. It reads the querystring and builds a table to display the parameter name and value passed.
   <%@ Language=VBScript %>
  
  
   <%
   Response.Write ""
   For Each x In Request.QueryString
   Response.write "" ''Write value of parameter
   Next
   Response.Write "
ParameterValue
" & x & "" ''Write Name of Parameter
   Response.write Request.QueryString(x) & "
"
   %>
  
  
  当然,上面这个东西的改进版本就简洁多了,再看这个
  <%
  If
  Request.QueryString.Count > 0 Then
  
  Response.Redirect("YourURL.asp?" &
  Request.QueryString
  Else
   If
  Request.Form.Count > 0 Then
  
  Response.Redirect("YourURL.asp?" &
  Request.Form)
   Else
  
  Response.Write("No Data Sent")
   End
  If
  End If
  %>
  原来可以整个抓取的,我也是刚刚知道,不敢独吞,拿出来共享。

热门栏目