请问如何实现选择下拉菜单，另一文本框为不可编辑

hengsf2008 2015-03-25 02:44:02
<%
j = 1

set rs=createobject("adodb.recordset")
set rs.activeConnection=conn
if session("right") = 2 then
' str ="select user1,flag,dept from V_users where dept<>'派驻机构' "
str ="select user1,flag,dept from V_users "
else
str ="select * from tb_user where dept='"&dept&"'"&"order by id "
end if
set rs=conn.execute(str)
do while not rs.Eof
var = "A"&j
var2 = "SD"&j //开始时间
var4 = "ED"&j //结束时间
var5 = "T"&j //时间段
var6 = "R"&j
var7 = "DP"&j
%>
<tr>
<td height="20" align="center"><%=rs("user1")%></td>
<% if session("right") = 2 then %>
<td align="center"><%=trim(rs("dept"))%></td>
<% end if %>
<td align="center"><input type="hidden" name=<%=var7%> value="<%=trim(rs("dept"))%>">
<select name=<%=var%> size="1">
<option value="0">无</option>
<option value="1">在岗</option>
<option value="2">本市出差</option>
<option value="3">市外出差</option>
<option value="4">迟到</option>
<option value="5">早退</option>
<option value="6">旷工</option>
<option value="7">补休</option>
<option value="8">公休假</option>
<option value="9">事假</option>
<option value="10">病假</option>
</select>
</td>
<td align="center"><input name=<%=var2%> type="text" value="<%=getdate%>" size="10" maxlength="10"></td>
<td align="center"><input name=<%=var4%> type="text" value="<%=getdate%>" size="10" maxlength="10"></td>
<td align="center">
<select name=<%=var5%> size="1">
<option value="0" selected>上午</option>
<option value="1">下午</option>
<option value="2">全天</option>
</select></td>
<td align="center"><input name=<%=var6%> type="text" size="16"></td>
</tr>
<%
j = j + 1
rs.movenext
loop
person = j - 1
rs.close
set rs=nothing
%>


即当选择“在岗”时，“开始时间”、“结束时间”和“时间段”均为不可编辑状态。因没有接触过VB，请大神写完整代码，谢谢！
...全文
406 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
highnewrain 2015-03-26
  • 打赏
  • 举报
 回复
这个不用vbs就可以来，在web前段用javascript来实现比较简单，给段代码参考，你照葫芦画瓢就可以了应该！
<html>

	<title></title>

		<head>

			</head>

			<body>

				<table>

					<tr><td><select name="select_a" size="1" onchange="MySelect(this.value)">

            <option value="0">无</option>

            <option value="1">在岗</option>

            <option value="2">本市出差</option>

            <option value="3">市外出差</option>

            <option value="4">迟到</option>

            <option value="5">早退</option>

            <option value="6">旷工</option>

            <option value="7">补休</option>

            <option value="8">公休假</option>

            <option value="9">事假</option>

            <option value="10">病假</option>

          </select></td></tr>

					<tr><td>开始时间<input type="text" name="time" id="beginTime"/></td></tr>

					</table>

			</body>

			<script>

				function MySelect(val)

				{

					if(val==1)

					{

						document.getElementById("beginTime").disabled=true;

					}

					else

					{

						document.getElementById("beginTime").disabled=false;

					}

				}

				</script>

	</html>
hengsf2008 2015-03-26
  • 打赏
  • 举报
 回复
哦，用document.getElementById(sd).value赋值，谢谢两位大神了！
hengsf2008 2015-03-26
  • 打赏
  • 举报
 回复
引用 2 楼 showbo 的回复:
<script> function setReadOnly(v, sd, ed) { ---------------------------------------------------------------------------------这里让sd和ed自动读取当前日期 document.getElementById(sd).readOnly = v == '1'; document.getElementById(ed).readOnly = v == '1'; } </script>
谢谢两位大神，我测试了，确实实现了我的目的，请问我想在选择在岗时，sd和ed自动读取当前日期，防止先更改日期，再选择在岗，跳过了只读设置，请问这里该怎么写呢？
斯洛文尼亚旅游 2015-03-26
  • 打赏
  • 举报
 回复
增加红色的代码 <% j = 1 set rs=createobject("adodb.recordset") set rs.activeConnection=conn if session("right") = 2 then ' str ="select user1,flag,dept from V_users where dept<>'派驻机构' " str ="select user1,flag,dept from V_users " else str ="select * from tb_user where dept='"&dept&"'"&"order by id " end if set rs=conn.execute(str) do while not rs.Eof var = "A"&j var2 = "SD"&j //开始时间 var4 = "ED"&j //结束时间 var5 = "T"&j //时间段 var6 = "R"&j var7 = "DP"&j %> <tr> <td height="20" align="center"><%=rs("user1")%></td> <% if session("right") = 2 then %> <td align="center"><%=trim(rs("dept"))%></td> <% end if %> <td align="center"><input type="hidden" name=<%=var7%> value="<%=trim(rs("dept"))%>"> <select name=<%=var%> size="1" onchange="setReadOnly(this.value,'<%=var2%>','<%=var4%>')"> <option value="0">无</option> <option value="1">在岗</option> <option value="2">本市出差</option> <option value="3">市外出差</option> <option value="4">迟到</option> <option value="5">早退</option> <option value="6">旷工</option> <option value="7">补休</option> <option value="8">公休假</option> <option value="9">事假</option> <option value="10">病假</option> </select> </td> <td align="center"><input id=<%=var2%> name=<%=var2%> type="text" value="<%=getdate%>" size="10" maxlength="10"></td> <td align="center"><input id=<%=var4%> name=<%=var4%> type="text" value="<%=getdate%>" size="10" maxlength="10"></td> <td align="center"> <select name=<%=var5%> size="1"> <option value="0" selected>上午</option> <option value="1">下午</option> <option value="2">全天</option> </select></td> <td align="center"><input name=<%=var6%> type="text" size="16"></td> </tr> <% j = j + 1 rs.movenext loop person = j - 1 rs.close set rs=nothing %> <script> function setReadOnly(v, sd, ed) { document.getElementById(sd).readOnly = v == '1'; document.getElementById(ed).readOnly = v == '1'; } </script>
酒店管理系统JAVA源代码
（3）在“台号”下拉列表中选择台号、在商品文本框中输入商品助记码或编号及商品数量，然后单击“开台”按钮。可添加多个商品。 （4）顾完单完菜后，单击“签单”按钮，表示确认该订单，此时可以执行结账操作，否则...
Android实现可编辑下拉菜单
在Android里，直接提供的Spinner控件虽然可以实现下拉菜单的效果，但其效果并不理想，很多时候我们需要类似手机QQ那样既可以在文本框中直接输入编辑文字，可以在下拉菜单中选中或者删除菜单选项，并且下拉菜单并不是...
Python GUI入门——tkinter编辑框、复选框、下拉菜单和按钮文本框的使用
接上一次的tkinter编写界面相关内容，丰富点常用控件的方法，学会了这些控件布局和相关方法属性，能够满足日常小工具的制作需求了。搭建的界面框架如下图所示，功能可以自己添加。
html设置下拉菜单文本框隐藏,JS控制文本框下方的 下拉框显示/隐藏的问题
情况是这样，有一个文本框，下边有一下拉框 类似日历选取那样，下拉框里有按钮可点击，当鼠标点击(或聚焦)文本框时，下拉框显示， 点击下拉框内时也不隐藏， 点击下拉框外边时(也就是任意空白地方 不包含下拉框) ...
计算机为文本框的应用,卷名称:20春《计算机应用基础》作业11.在Word编辑状态下，绘制一文本框，应使用下拉菜单是。A.“插入”B.“表格”C.“编辑”D.“工具”答案:-2.Word文档中，每个段...
在Word编辑状态下，绘制一文本框，应使用下拉菜单是 。A.“插入”B.“表格”C.“编辑”D.“工具”答案:-2.Word文档中，每个段落都有自己的段落标记，段落标记的位置在 。A.段落的首部B.段落的结尾处C.段落的中间位置...
ASP

28,401

社区成员

357,054

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章