个人中心
文章发布
退出
作者热门文章
- html - 出于某种原因，IE8 对我的 Sass 文件中继承的 html5 CSS 不友好？
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景？
25
4
我有一个包含 User_id、名字、姓氏和 Angular 色的用户表。我喜欢创建一个经典的 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 代码:
<form action="" method="post" id="newMenu" name="frmReport" onSubmit="return validateForm(this)">
<table>
<thead>
<tr>
<td>
<strong>New User: </strong>
<select name="UserID">
<option value="">All Users</option>
<% sSQL = "SELECT DISTINCT User_id, Lastname, Firstname FROM User "
objRS.Open sSQL, objConn
Do Until objRS.EOF
Response.Write("<option value='" & objRS("User_id") & "'>" & objRS("Lastname") & ", " & objRS("Firstname") & "</option>")
objRS.MoveNext
Loop
objRS.Close
%>
</select>
<%
If Len("UserID") > 0 Then
sSQL = "SELECT User_id, Role FROM Users WHERE User_id = '" & request.Form("UserID") & "' ; "
objRS.Open sSQL, objConn
Do Until objRS.EOF
%>
<input type="text" name="Role" value="<%= objRS(" Role ") %>">
<% objRS.MoveNext
Loop
objRS.Close
End If
%>
<input type="hidden" name="FormSource" value="SubmitForm">
<input type="submit" value="Submit Form">
</th>
</tr>
</table>
</form>最佳答案
也许这就是你想要的
<%@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
%>
关于javascript - 如何从选定的选项中获取值，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/50491300/
25
4
0
我有十二个指向不同类别的链接。作为用户定位的一种方式，我想强调用户现在所在的类别( - 按钮)。 如何在 CSS 中实现这一点？我读到了 selected和 active ，但我还没能让它发挥作用。
我想通过单击按钮来获取选择框中的所有选项值(选定/未选定)。我怎样才能做到这一点？ 最佳答案 我认为这是使用 Traversing/map 的好机会方法: var valuesArray = $("#
我正在尝试构建一个计算器，其中包含两个数字的两个 TextView 字段。我弄清楚了如何使用“应用程序内”数字键盘输入顶部数字 Operand 1 [textView] 的数字(我知道使用 EditT
我有一个简单的 jQuery $("span.value")，它选择包含文本的节点。此文本保证为整数。如何计算所有选定节点文本的总和，并将总和放入另一个节点？ 3 4 5 ? 最佳答案 你可以这样做:
我从同一台服务器上托管的一堆数据库中备份了 mysql 数据库 db1。现在只需要备份具有访问 db1 权限的选定用户，以便我可以在 db1 还原之前将这些特权用户还原到我的新服务器。 最佳答案 St
我有一个 ListView 。我想添加一个动画，如果我选择一个列表项，它将被删除，并且该项目下方的其余项目将通过向上滑动动画向上移动。我已经通过获取其子位置使用线性布局完成了此操作，但我无法理解如何向
我不明白如何使用 Python 解析来自 Outlook 的突出显示(选定)邮件？ 我有这个代码，但它适用于上一封邮件。 import win32com.client outlook = win32c
在 Xcode 6 中，您现在可以为选项卡项目的选中和未选中状态设置图标。请参阅下图中的说明: 和 唯一的问题是 SELECTED 状态的图像不显示。它只是显示空白。还有其他人有这个问题吗？请看下面的
在我的数据模型中，我有一个实体组和另一个GroupMember实体。一个Group包含一个或多个GroupMembers，但一个GroupMember只能同时位于一个Group中。到目前为止没有问题，
Android Button 在不同状态(正常、按下、选中、禁用)之间移动时会更改其可绘制背景。背景切换是即时的。是否可以使其平滑(动画)？ 最佳答案 是的，这是可能的。您只需为按钮添加 addAni
我使用 emacs 来查看和编辑代码和其他文本文件。我想知道是否有一种方法可以向前或向后搜索当前缓冲区中标记的文本。类似于我在记事本或写字板中可以执行的操作。就像我可以在缓冲区中标记一些文本并执行 C
如何根据状态(选定、禁用)设置自定义选择类？如何根据状态选择(选定、禁用)在自定义下拉列表中设置类？照做了，但什么也没发生。请看我的例子................................
我正在尝试检查下拉菜单中是否存在特定文本值，如果存在，我想将其属性设置为selected。 我成功编写了一个 if 语句来检查文本是否存在: var country = usr.location; i
对于我的应用程序，我想让用户能够在回收器 View 中调整 TextView 项目的文本大小(通过捏缩放或 SeekBar)。默认值应为系统设置中选择的文本大小。最小值应为系统设置中的“非常小”，最大
我正在尝试创建一个 ListBoxItem 模板，该模板在选择时将带有圆角边框。我得到了这个 xaml，它在选择时不起作用:
我正在寻找检索焦点元素的 HTML。查看 webdriver.io 文档，方法 .getActiveElement() 应该可以解决这个问题。但是，我的 IDE (WebStorm) 显示错误，指出它
我创建了一个圆，在我的 onDraw() 方法中围绕圆绘制了一条字符串和一条线(箭头)。 public class Circle extends Activity { public class
对于生产应用程序，我们希望在 Windows 窗体应用程序的 ElementHost 内显示 DatePicker，但我们遇到了 SelectedDate 和 CurrentDate 不可读的问题，因
好的，我在此处和 Google 上的许多网站上搜索了此问题的结果，但找不到针对我的问题的确切解决方案。 我有一个 sql 提取姓名和办公室。所以事情是这样的: $sql = "SELECT m
选中单元格时如何改变灰色？ 最佳答案 当用户点击选中的行 (void)tableView:(UITableView *)tableView didSelectRowAtIndexPath:(NSInd
我是一名优秀的程序员,十分优秀！