明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

頁面之間傳遞元素的方法

發(fā)表時間：2024-01-10 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]在第三方頁面?zhèn)鬟f參數(shù)這個思路倒是的確可以省下一些代碼，至少我以前是從沒這樣子傳過。<% 'Pass form objects submitted by a form G ' ET If Request.QueryString.Count>0 T...
在第三方頁面?zhèn)鬟f參數(shù)這個思路倒是的確可以省下一些代碼，至少我以前是從沒這樣子傳過。
<%
    '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 %>
    <HTML>
    <BODY>
    <%
    Response.Write "<TABLE BORDER=1><TR><TH>Parameter</TH><TH>Value</TH></TR>"
    For Each x In Request.QueryString
    Response.write "<TR><TD>" & x & "</TD><TD>" 'Write Name of Parameter
    Response.write Request.QueryString(x) & "</TD></TR>" 'Write value of parameter
    Next
    Response.Write "</TABLE>"
    %>
    </BODY>
    </HTML>
當然，上面這個東西的改進版本就簡潔多了，再看這個
<%
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
%>
原來可以整個抓取的，我也是剛剛知道，不敢獨吞，拿出來共享