代码之家 › 专栏 › 技术社区 › Jenny Tran

如何将变量从输入框传递到另一个页面[关闭]

asp-classic javascript

-1

Jenny Tran · 技术社区 · 7 年前

我试图从隐藏的输入文本框中获取一个变量到另一个页面。我创建了一个搜索。asp页面,当我从该页面搜索表单时,单击“搜索”按钮,然后单击“查看”。asp页面将以该特定表单ID打开。在视图中。asp页面,我创建了一个链接来打开一个名为view2的新页面。保持相同表单ID的asp。但它不起作用。你能帮忙吗?谢谢

看法asp代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Menus Search</title>

</head>
<body>

<style>
table, td, th {
    border: 1px solid #ddd;
}
th, td {
    padding: 3px;
}
</style>
</head>
<body>
<!--#include file="openConn.asp" -->   

<%
SET objRS = Server.CreateObject("ADODB.Recordset")
SET objRS1 = Server.CreateObject("ADODB.Recordset")
SET objRS2 = Server.CreateObject("ADODB.Recordset")
SET objRS3 = Server.CreateObject("ADODB.Recordset")

If Request.Form("FormSource") = "SubmitForm" Then

    For j = 1 to Request.Form("txtCount")-1
        strReport   = Request.Form("Report[" & j &"]")

        strValue    = split(strReport,"$")
        sMenuID     = strValue(0)
        sCategoryID = strValue(1)
        sStatus     = strValue(2)

'response.write strReport  & "::" & sMenuID & "::"  & sCategoryID & "::"  & sStatus & "<br>"
'response.end       
        sFormID     = Request.Form("FormID")

        sSQL =  "INSERT INTO Report (FormID, MenuID, CategoryID, Status) VALUES " &_
                "('" & sFormID & "', '" & sMenuID & "', '" & sCategoryID & "', '" & sStatus & "');" 
            objConn.Execute(sSQL)
    Next
End If
%>

<form action="" method="post" id="newMenu" name="frmReport"  onsubmit="return validateForm(this)">
<p>
<%
'''' RR added today
nFormID= Request("FormID") ''Request.Form("SearchObj")
response.write "FormID: " & nFormID & "<br>"

sSQL2 = "SELECT * FROM Form WHERE Formid = " & nFormID
''response.write "SQL:::: " & sSQL2 & "<br>"

    objRS2.Open sSQL2, objConn
    'response.Write sSQL2
    Do Until objRS2.EOF
        sFormName = objRS2("Form_Name")
%>
<h2><%= objRS2("Form_Name") %></h2>
<p><a href="#" onclick="openview2.asp();"/>Click me</a></p>
    <input type="hidden" id="idFormName" name="FormID" size="40" maxlength="50" value="<%= objRS2("FormID") %>"><br />
<%
    objRS2.MoveNext
    Loop
    objRS2.Close
%>

<p>
<table>
<thead bgcolor="#336666" style="color:#FFFFFF">
    <tr>

        <td>Trainer Name:</td>
        <td>Pass</td>
        <td>Fail</td>
        <td>NA</td>
        <td>Not taken</td>
    </tr>
</thead>
<%
currMenu = ""
sSQL =  "SELECT MenuID, Menu_Name FROM Menu where MENUID in (SELECT MENUID FROM Category where formid=" & nFormID & ")"

    objRS.Open sSQL, objConn
    i=1
    While Not objRS.EOF
        nMenuID     = objRS("MenuID")
        sMenuName   = objRS("Menu_Name")
        If currMenu <> sMenuName Then
            currMenu = sMenuName
            %>
            <tr>
                <th bgcolor="#CCCCCC"><%= sMenuName %></th>
            </tr>
                <input type="hidden" name="MenuID" value="<%=nMenuID%>">
        <% 
        End If 
        sSQL3 = "SELECT Categoryid, Category_Name FROM Category WHERE MenuID = " & nMenuID & " and FormID=" &  nFormID
            Set objRS3 = Server.CreateObject("ADODB.Recordset")
            objRS3.Open sSQL3, objConn
            While Not objRS3.EOF
                nCategoryID     = objRS3("Categoryid")
                sCategoryName   = objRS3("Category_Name")
        %>
            <tr>
                <td><%= sCategoryName %></td>
                <input type="hidden" name="CategoryID" value="<%=nCategoryID%>">
                <td align="center"><input type="radio" id ="Report<%=i%>"  name="Report[<%=i%>]" value="<%=nMenuID%>$<%=nCategoryID%>$1"></td>
                <td align="center"><input type="radio" id ="Report<%=i%>"  name="Report[<%=i%>]" value="<%=nMenuID%>$<%=nCategoryID%>$2"></td>
                <td align="center"><input type="radio" id ="Report<%=i%>"  name="Report[<%=i%>]" value="<%=nMenuID%>$<%=nCategoryID%>$3"></td>
                <td align="center"><input type="radio" id ="Report<%=i%>"  name="Report[<%=i%>]" value="<%=nMenuID%>$<%=nCategoryID%>$4"></td>
            </tr>
            <%
            objRS3.MoveNext
            i = i + 1
            Wend
            objRS3.Close
        objRS.MoveNext
    Wend
    objRS.Close
%>
</table>
</p>

<p>
<input type="hidden" name="txtCount" value="<%= i %>">
<input type="button" value="Create Menu" onclick="openwin();" />
<input type="hidden" name="FormSource" value="SubmitForm">
<input type="button" value="View2" onclick="openview2();" />
<input type="submit" value="Update">
<a href="search.asp">Go To Search</a>
</p>
</form>
</div>
<script src="https://code.jquery.com/jquery-3.2.1.min.js" type="text/javascript" ></script>   
<script type="text/javascript">
function validateForm(daForm) {
nCount = document.frmReport.txtCount.value;

    // check all rb radio buttons
    for (var i = 1; i < nCount; i++) {
        if (! getCheckedRadioValue(daForm["Report"+i])) {
            alert ("Please select a value for option " + i)
            return false
        }
    }
    // add other checks here...
    return true
}
function getCheckedRadioValue(radio) {
    for (var i=0; i < radio.length; i++) {
        if (radio[i].checked) return radio[i].value
    }
    return false
}
function openwin()
{
    //alert($('#idFormName').val());
    //window.location.href = "Create.asp?FormID=" + $('#idFormName').val();

    window.open("Create.asp?FormID=" + $('#idFormName').val(), "Create New Menu", "menubar=0,width=700,height=450");

}
function openView2()
{
alert($('#idFormName').val());
    window.open("view2.asp?FormID=" + $('#idFormName').val(), "Create New Menu", "menubar=0,width=700,height=450");
}
</script>
</body>
</html>

视图2.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Menus Search</title>

</head>
<body>

<style>
table, td, th {
    border: 1px solid #ddd;
}
th, td {
    padding: 3px;
}
</style>
</head>
<body>
<!--#include file="openConn.asp" -->   

<%
SET objRS = Server.CreateObject("ADODB.Recordset")
SET objRS1 = Server.CreateObject("ADODB.Recordset")
SET objRS2 = Server.CreateObject("ADODB.Recordset")
SET objRS3 = Server.CreateObject("ADODB.Recordset")

If Request("FormID")="" then
    iFormID =0
Else
    iFormID = Request("FormID") ''Request.Form("FormID")
End If

If Request.Form("FormSource") = "SubmitForm" Then

    For j = 1 to Request.Form("txtCount")-1
        strReport   = Request.Form("Report[" & j &"]")

        strValue    = split(strReport,"$")
        sMenuID     = strValue(0)
        sCategoryID = strValue(1)
        sStatus     = strValue(2)

'response.write strReport  & "::" & sMenuID & "::"  & sCategoryID & "::"  & sStatus & "<br>"
'response.end       
        sFormID     = Request.Form("FormID")

        sSQL =  "INSERT INTO Report (FormID, MenuID, CategoryID, Status) VALUES " &_
                "('" & sFormID & "', '" & sMenuID & "', '" & sCategoryID & "', '" & sStatus & "');" 
            objConn.Execute(sSQL)
    Next
End If
%>

<form action="" method="post" id="newMenu" name="frmReport"  onsubmit="return validateForm(this)">
<p>
<%
'''' RR added today
nFormID= Request("FormID") ''Request.Form("SearchObj")
response.write "FormID: " & nFormID & "<br>"

sSQL2 = "SELECT * FROM Form WHERE Formid = " & nFormID
''response.write "SQL:::: " & sSQL2 & "<br>"

    objRS2.Open sSQL2, objConn
    'response.Write sSQL2
    Do Until objRS2.EOF
        sFormName = objRS2("Form_Name")
%>
<h2><%= objRS2("Form_Name") %></h2>
    <input type="hidden" id="idFormName" name="FormID" size="40" maxlength="50" value="<%= objRS2("FormID") %>"><br />
<%
    objRS2.MoveNext
    Loop
    objRS2.Close
%>

<p>
<table>
<thead bgcolor="#336666" style="color:#FFFFFF">
    <tr>

        <td>Trainer Name:</td>
        <td>Pass</td>
        <td>Fail</td>
        <td>NA</td>
        <td>Not taken</td>
    </tr>
</thead>
<%
currMenu = ""
sSQL =  "SELECT MenuID, Menu_Name FROM Menu where MENUID in (SELECT MENUID FROM Category where formid=" & nFormID & ")"

    objRS.Open sSQL, objConn
    i=1
    While Not objRS.EOF
        nMenuID     = objRS("MenuID")
        sMenuName   = objRS("Menu_Name")
        If currMenu <> sMenuName Then
            currMenu = sMenuName
            %>
            <tr>
                <th bgcolor="#CCCCCC"><%= sMenuName %></th>
            </tr>
                <input type="hidden" name="MenuID" value="<%=nMenuID%>">
        <% 
        End If 
        sSQL3 = "SELECT Categoryid, Category_Name FROM Category WHERE MenuID = " & nMenuID & " and FormID=" &  nFormID
            Set objRS3 = Server.CreateObject("ADODB.Recordset")
            objRS3.Open sSQL3, objConn
            While Not objRS3.EOF
                nCategoryID     = objRS3("Categoryid")
                sCategoryName   = objRS3("Category_Name")
        %>
            <tr>
                <td><%= sCategoryName %></td>
                <input type="hidden" name="CategoryID" value="<%=nCategoryID%>">
                <td align="center"><input type="radio" id ="Report<%=i%>"  name="Report[<%=i%>]" value="<%=nMenuID%>$<%=nCategoryID%>$1"></td>
                <td align="center"><input type="radio" id ="Report<%=i%>"  name="Report[<%=i%>]" value="<%=nMenuID%>$<%=nCategoryID%>$2"></td>
                <td align="center"><input type="radio" id ="Report<%=i%>"  name="Report[<%=i%>]" value="<%=nMenuID%>$<%=nCategoryID%>$3"></td>
                <td align="center"><input type="radio" id ="Report<%=i%>"  name="Report[<%=i%>]" value="<%=nMenuID%>$<%=nCategoryID%>$4"></td>
            </tr>
            <%
            objRS3.MoveNext
            i = i + 1
            Wend
            objRS3.Close
        objRS.MoveNext
    Wend
    objRS.Close
%>
</table>
</p>

<p>
<input type="hidden" name="txtCount" value="<%= i %>">
<input type="button" value="Create Menu" onclick="openwin();" />
<input type="hidden" name="FormSource" value="SubmitForm">

<input type="submit" value="Update">
<a href="search.asp">Go To Search</a>
</p>
</form>
</div>
<script src="https://code.jquery.com/jquery-3.2.1.min.js" type="text/javascript" ></script>   
<script type="text/javascript">
function validateForm(daForm) {
nCount = document.frmReport.txtCount.value;

    // check all rb radio buttons
    for (var i = 1; i < nCount; i++) {
        if (! getCheckedRadioValue(daForm["Report"+i])) {
            alert ("Please select a value for option " + i)
            return false
        }
    }
    // add other checks here...
    return true
}
function getCheckedRadioValue(radio) {
    for (var i=0; i < radio.length; i++) {
        if (radio[i].checked) return radio[i].value
    }
    return false
}
</script>
</body>
</html>

1 回复 | 直到 7 年前

sumpen 7 年前

很难理解你想做什么。

但正如我所理解的,您想要打开view2。asp并能够从视图中获得值。asp在那里。

我可以看到你打开了view2。asp与此行

<input type="button" value="View2" onclick="openview2();" />

你想要这个隐藏的输入

<input type="hidden" id="idFormName" name="FormID" size="40" maxlength="50" value="<%= objRS2('FormID') %>">

如果这就是你想要做的。那么,您的命名是错误的javascript。你可能是抄了,忘了改名字。

看这里,你试着打开的地方 视图2.asp

function openwin()
{
    window.openView2("view2.asp?FormID=" + $('#idFormName').val(), "Create New Menu", "menubar=0,width=700,height=450");
}

你需要改变 openwin() 到 openview2()

编辑:

<a href="#" onclick="openview2.asp();"/>Click me</a>

这是它自身的一个链接,因为你有 . 但您也尝试使用此函数调用javascript函数 onclick=“openview2.asp();” .

您没有调用的函数 asp() . 这不是它的工作原理。如果你想打电话 视图2.asp 使用此链接并传递隐藏的输入 idFormName 我必须说这是一个非常糟糕的解决方案,因为这里没有安全保障。但是,您提供的代码表明,您只需要一个函数,而忽略了任何安全方面。

所以改变这个

<h2><%= objRS2("Form_Name") %></h2>
<p><a href="#" onclick="openview2.asp();"/>Click me</a></p>
    <input type="hidden" id="idFormName" name="FormID" size="40" maxlength="50" value="<%= objRS2("FormID") %>"><br />

为了这个

<h2><%= objRS2("Form_Name") %></h2>
<p><a href="view2.asp?idFormName=<%= objRS2("FormID") %>" />Click me</a></p>
    <input type="hidden" id="idFormName" name="FormID" value="<%= objRS2("FormID") %>"><br />

我将隐藏在那里,以防您在代码中的其他地方引用它。

祝你好运,度过愉快的一天!