Javascript 如何从所选选项中获取值_Javascript_Asp Classic

Javascript 如何从所选选项中获取值

javascript asp-classic

Javascript 如何从所选选项中获取值,javascript,asp-classic,Javascript,Asp Classic,我有一个Users表，其中包含User\u id、Firstname、Lastname和Role。我喜欢创建一个经典的ASP页面，在选择某个选项时显示值。每当我从下拉框中选择用户名时，它都会在下面显示其值。我试过了，但当我在下拉列表中选择用户名时，它没有做任何事情 Here is my code: User_id Firstname Lastname Role ------------------------------------- 1 Jenny Ro

我有一个Users表，其中包含User\u id、Firstname、Lastname和Role。我喜欢创建一个经典的ASP页面，在选择某个选项时显示值。每当我从下拉框中选择用户名时，它都会在下面显示其值。我试过了，但当我在下拉列表中选择用户名时，它没有做任何事情

Here is my code:
User_id   Firstname   Lastname   Role
-------------------------------------
1         Jenny       Rogers     A
2         Jenny2      Rogers2    B
1         Jenny       Rogers     B
2         Jenny2      Rogers2    A
3         Jenny3      Rogers3    C

ASP代码：


新用户：
所有用户
0那么
sSQL=“从用户中选择用户id，角色，其中用户id=”&request.Form（“用户id”）和“；”
打开sSQL，objConn
直到objRS.EOF为止
%>

也许这就是你想要的

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/BUYIN.asp" -->
<%
''''''Recordset with Names
Dim objRS
Dim objRS_cmd
Dim objRS_numRows

Set objRS_cmd = Server.CreateObject ("ADODB.Command")
objRS_cmd.ActiveConnection = MM_BUYIN_STRING
objRS_cmd.CommandText = "SELECT id, FirstName, LastName FROM dbo.BI_Users WHERE firstname like '%test%'" 
objRS_cmd.Prepared = true

Set objRS = objRS_cmd.Execute
objRS_numRows = 0
%>
<!--Results -->
<% If Request.Form("selectID") <> "" Then %>
<%
Dim rsResults__getID
rsResults__getID = "0"
If (Request.Form("selectID") <> "") Then 
  rsResults__getID = Request.Form("selectID")
End If
%>
<%
Dim rsResults
Dim rsResults_cmd
Dim rsResults_numRows

Set rsResults_cmd = Server.CreateObject ("ADODB.Command")
rsResults_cmd.ActiveConnection = MM_BUYIN_STRING
rsResults_cmd.CommandText = "SELECT id, FirstName, LastName, fkRoleID FROM dbo.BI_Users WHERE id = ?" 
rsResults_cmd.Prepared = true
rsResults_cmd.Parameters.Append rsResults_cmd.CreateParameter("param1", 5, 1, -1, rsResults__getID) ' adDouble

Set rsResults = rsResults_cmd.Execute
rsResults_numRows = 0
%>
<% End If %>

<!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>Untitled Document</title>
</head>

<body>
<form id="form1" name="form1" method="post" action="testasp2.asp">
<select name="selectID" id="selectID">
    <%
While (NOT objRS.EOF)
%>
    <option value="<%=(objRS.Fields.Item("id").Value)%>" <%If (Not isNull(Request.Form("selectID"))) Then If (CStr(objRS.Fields.Item("id").Value) = CStr(Request.Form("selectID"))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(objRS.Fields.Item("LastName").Value)%></option>
    <%
  objRS.MoveNext()
Wend
If (objRS.CursorType > 0) Then
  objRS.MoveFirst
Else
  objRS.Requery
End If
%>
  </select>
  <input type="submit" name="button" id="button" value="Submit" />
</form>
<hr />
<% If Request.Form("selectID") <> "" Then %>
<% If Not rsResults.EOF Or Not rsResults.BOF Then %>
<p><%=(rsResults.Fields.Item("id").Value)%> </p>
<p><%=(rsResults.Fields.Item("FirstName").Value)%> </p>
<p><%=(rsResults.Fields.Item("LastName").Value)%> </p>
<p><%=(rsResults.Fields.Item("fkRoleid").Value)%> </p>

<%
rsResults.Close()
Set rsResults = Nothing
%>
<% End If %>
<% Else %>
<%= "No Results Yet" %>
<% End If  %>
</body>
</html>
<%
objRS.Close()
Set objRS = Nothing
%>


请发布asp的结果，而不是发布asp。如果没有其他请求，则无法基于选择更改asp和SQL查询。您可以将所有数据加载到json中并使用select进行筛选，也可以对更改发出ajax请求。如何将所有数据加载到联接中并使用“选择”过滤器？谢谢。我认为@Daniel试图说明的一点是，经典ASP是服务器端代码，即在加载页面时在服务器上执行。在您提交表单之前，页面上的任何内容都不会更改。