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

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,请大神写完整代码,谢谢!
...全文
416 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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自动读取当前日期,防止先更改日期,再选择在岗,跳过了只读设置,请问这里该怎么写呢?
  • 打赏
  • 举报
回复
增加红色的代码 <% 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>
酒店管理系统使用说明书 主要功能 本系统中包含如下6大功能模块: q 前台服务:该模块主要包括开台点菜、维护菜品、签单、结账等功能,其中维护菜品功能包括添加和取消菜品,能够取消菜品的前提条件是尚未签单,即处于开单状态,结账时则要求所有商品都要签单,否则不允许结账。 q 后台管理:该模块主要包括台号管理、菜系管理和菜品管理功能,其中菜系用来对菜品进行分类。 q 销售统计:该模块用来分段统计营业额,可以按日、月和年进行统计,其中日统计是按消费单和销售的商品统计销售额,月统计是按日期和每日的销售额统计销售额,年统计是按日期和月份统计销售额。 q 系统安全:该模块主要包括交接班、锁定系统和修改密码功能,其中交接班功能在操作员换岗时使用,锁定系统在操作员临时离开时使用。 q 人员管理:该模块主要包括档案管理、管理员管理和操作权限管理功能,其中管理员管理功能用来管理系统的操作员,权限管理功能用来管理系统操作员具有的操作权限。 q 初始化系统:该功能用来对系统进行初始化,初始化后系统数据将全部被删除。 操作注意事项 用户在使用《酒店管理系统》之前,应注意以下事项: (1)管理员用户名和密码为:mr、mrsoft。 (2)当鼠标经过主界面右下角时,会弹出菜单,在这里可以对本系统的信息进行管理。 业务流程 要想运行本系统,请按照以下流程操作: (1)在“人员管理”中添加操作员及其档案信息。 (2)在“系统维护”中添加台号、菜系及菜品信息。 (3)在“台号”下拉列表中选择台号、在商品文本框中输入商品助记码或编号及商品数量,然后单击“开台”按钮。可添加多个商品。 (4)顾完单完菜后,单击“签单”按钮,表示确认该订单,此时可以执行结账操作,否则不可进行结账。 如果操作临时离开,可单击“锁定系统”按钮,输入登录密码可解锁。 (5)在“销售统计”中可对日销售、月销售及年销售额进行统计。

28,409

社区成员

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

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