单击Classic ASP中的“提交”按钮返回上一页

时间:2014-11-17 20:02:24

标签: asp-classic

我有这个用经典ASP编写的代码。我想点击提交按钮并选择下拉值提交到上一页。我知道我可以在使用Request.ServerVariables("HTTP_REFERER")时转到上一页,但是如何在下面的代码中实现这一点,如何在单击“提交”按钮时使其工作,它转到上一页从变量“PreviousPage”获取值正在使用如下代码:

../ Example.asp:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Project Site</title>
<link rel="stylesheet" href="../css/fnureports.css" type="text/css" />
<style type="text/css">

</style>
</head>

<!--#include file="../sqlConnection.asp" -->
    <!--#include file="../sqlConnection1.asp" -->   
         <%
Dim YearID
Dim SeasonID
Dim myStudentID
          YearID = Request.Form("dYear")
          SeasonID = Request.Form("dSeason")

If Request.ServerVariables("REQUEST_METHOD")= "POST" Then
          myID = Request.QueryString("uniqueid")
          Updatedate myID, YearID, SeasonID
  End If
         %>

<body>
<div align = "center">
    <div>
    <form id="form1" method="post" action="Example.asp<%= request.querystring %>">

    <select class="dropYear" name="dYear">
    <option value="select">2014</option>
    <option value="2015">2015</option>
     </select>

    &nbsp &nbsp &nbsp;

    <select class="dropSeason" name="dSeason">
    <option value="select">FALL</option>
    <option value="Winter">WINTER</option>
       </select>

    <br /><br />

   <%
    Dim PreviousPage
    PreviousPage = Request.ServerVariables("HTTP_REFERER")
    Response.Write PreviousPage
    %>

     <ul class="buttons">
     <input id="save" method="post" class="btTxt" type="submit" value="Submit"; />

     </ul> 
     </form>
    </div>
    <br/>
      </div>
</body>
</html>

关于这个的任何想法?

1 个答案:

答案 0 :(得分:1)

编辑:以前的答案很愚蠢,推荐人将成为当前页面,因为它是一个POST。您需要在提交之前将引荐来源存储在某处;最简单的地方可能是查询字符串(但隐藏字段也可以)。

<form id="form1" method="post" action="Example.asp<%= request.querystring %>&goBackTo=<% =Request.ServerVariables("HTTP_REFERER") %>">

然后

If Request.ServerVariables("REQUEST_METHOD")= "POST" Then
    myID = Request.QueryString("uniqueid")
    Updatedate myID, YearID, SeasonID
    Response.Redirect Request.QueryString("goBackTo")
End If