js中选择多个多选框

关注

原创最新推荐文章于 2026-06-24 10:25:29 发布 2.0k 阅读 AI 写同款· GEO 优化 ›

泛微E9开发添加多个多选框，实现单选框的效果如下图所示，在表单中新增四个“选择框-复选框”类型的字段，并且设置其中的选项，每个多选框都只有一个选项，通过代码块实现单选框的效果。如果该问题没有选择选项，系统将弹出提示提醒用户，并且流程无法提交。多个多选框实现单选框效果。阅读详情

<%
server.ScriptTimeout=99999
id=Request("tid")
webname=request("WebName")
language=request("language")
userid=Request("userid")
session("username")=userid
session.timeout=2*60
sql="select * from LanMu where lmName<>'首页' order by id"
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<script language="javascript">

/*function CheckAll()
{

//document.write (num);
for (var i=1;i<num;i++)
{
        form1.lm+i.toString().checked = form1.chkall.checked;

}

}
function CheckAll()
{
    var length = document.form1.lm.length;
document.form1.chkall.checked = document.form1.chkall.checked|0;

    if (length == 0 ){
          return;
    }
    if (length ==1 )
    {
       document.form1.lm.checked=document.form1.chkall.checked ;
    }

    if (length>1)
    {
      for (var i = 0; i < length; i++)
       {
    document.form1.lm[i].checked = document.form1.chkall.checked;
       }
    }

}*/
</script>
</head>

<body leftmargin="0" topmargin="0">
<div align="left">
<table width="100%">
    <tr>
      <td bgcolor="#59ACFF">自助建站第二步--请选择网站栏目</td>
    </tr>
</table>
</div>
<hr>
<div align="center">
<form name="form1" method="post" action="?act=ok">
    <table width="580" cellspacing="1" bgcolor="#FFFFFF">
      <tr bgcolor="#59ACFF">
        <td width="82"><input type="checkbox" name="chkall" value="on" onclick="var num=form1.checknum.value;for(var i=0;i<num;i++){window.execScript('document.form1.lm'+i+'.checked='+this.checked +';');}" title="全选">全选</td>
        <td width="246">栏目名称</td>
  <td width="108">栏目位置</td>
  <td width="129">设置下导航</td>
      </tr>
  <%
if not rs.eof then
      m=0
      do while not rs.eof
   lmCount=rs.recordCount
%>
      <tr bgcolor="#C8E3FF">
        <td>
        <input name="lm<%=m%>" type="checkbox" value="true"></td>
        <td>
          <input type="text" name="name<%=m%>" value="<%=rs("LMName")%>">
    <input type="hidden" name="egname<%=m%>" value="<%=rs("LMNameEG")%>">
    <input type="hidden" name="ftname<%=m%>" value="<%=rs("LMNameFT")%>">

  </td>
        <td>
        <select name="pos<%=m%>">
            <%
   for i=1 to rs.recordCount
       Response.write "<option>"&i&"</option>"
   next
   %>
        </select>
          <input type="hidden" name="dName<%=m%>" value="<%=rs("lmName")%>">
     </td>
  <td><input name="bnav<%=m%>" type="checkbox" value="true"></td>
      </tr>
   <%
       m=m+1
       rs.moveNext
       loop
    'rs.close
   end if
   %>
    </table>
    <p>
      <input type="submit" name="Submit3" value="下一步">
      <input type="hidden" name="tid" value="<%=id%>">
      <input type="hidden" name="lmCount" value="<%=lmCount%>">
   <input type="hidden" name="lg" value="<%=language%>">
   <input type="hidden" name="WebName" value="<%=webname%>">
      <input type="hidden" name="userid" value="<%=userid%>">
   <input type="hidden" name="checknum" value="<%=rs.recordcount%>">
</p>
</form>
</div>
<%=rs.close%>
</body>
</html>
<%
if Request("act")="ok" then
    userid=trim(Request("userid"))
'checkall=trim(request("IsAll"))
'response.write checkall
'response.End()
showcover="false"
webname=request("WebName")
webname=webname & "|目前还没有标题|目前还没有标题"
session("language")=request("lg")
if request("lg")="cn" then
  TLanguage="cn|ft|en"

elseif request("lg")="ft" then
  TLanguage="ft|cn|en"
elseif request("lg")="en" then
  TLanguage="en|cn|ft"
end if
    sql="select tid from userinfo where userid='"&userid&"'"
rs.open sql,conn,1,1
if not rs.eof then
     conn.execute("delete from userinfo where userid='"&userid&"'")
        conn.execute("delete from userLM where userid='"&userid&"'")
end if
rs.close
    lmcount=Request("lmCount")
    tid=Request("tid")
lmNum=0
sql="select id from userLM where userid='"&userid&"' and lmName='首页'"
rs.open sql,conn,1,1

if rs.eof then
     set rs1=server.createObject("adodb.recordSet")
  sql="select LMNameEG,LMNameFT from LanMu where LMName='首页'"
  rs1.open sql,conn,1,1
  lmnameeg=rs1("LMNameEG")
  lmnameft=rs1("LMNameFT")
  rs1.close
     sql="select ymName,ymType,Content,ContentEG,ContentFT from tlanmu where tid="&tid&" and tlmName='首页'"
  rs1.open sql,conn,1,1
  if not rs1.eof then
         ymName2=rs1("ymName")
         ymType2=rs1("ymType")
   lmContent=rs1("content")
   lmContentEG=rs1("ContentEG")
   lmContentFT=rs1("ContentFT")
         sql="insert into userLM (userid,TID,lmName,lmnameeg,lmnameft,dlmName,ymName,lmContent,LMContentEG,LMContentFT,ymType,lmPos,bnav) values ('"&userid&"',"&tid&",'首页','"&lmnameeg&"','"&lmnameft&"','首页','"&ymName2&"','"&lmContent&"','"&lmContentEG&"','"&lmContentFT&"','"&ymType2&"',0,'false')"
            conn.execute(sql)
  else
      showMsg "系统出错!","err.htm?kind=1"
  end if
  rs1.close
  set rs1=nothing
end if
rs.close

for i=0 to lmcount
        if Request("lm"&i)="true" and request("bnav"&i)="true" then
         name2=trim(Request("name"&i))
   egname=trim(request("egname"&i))
   ftname=trim(request("ftname"&i))
      pos2=Request("pos"&i)
   bnav=request("bnav"&i)
      dName2=Request("dName"&i)
   sql="select ymName,ymType,content,contenteg,contentft from tlanmu where tid="&tid&"and tlmName='"&dName2&"'"
   rs.open sql,conn,1,1
   if not rs.eof then
       ymName=rs("ymName")
          ymType=rs("ymType")
    content=rs("content")
    contenteg=rs("contenteg")
    'contentft=rs("contentft")
          sql="insert into userLM (userid,TID,lmName,lmnameeg,lmnameft,dlmName,ymName,lmContent,LMContentEG,LMContentFT,ymType,lmPos,bnav) values ('"&userid&"',"&tid&",'"&name2&"','"&egname&"','"&ftname&"','"&dName2&"','"&ymName&"','"&content&"','"&contenteg&"','"&contentft&"','"&ymType&"',"&pos2&",'"&bnav&"')"
          conn.execute(sql)
   else
       showMsg "系统出错!","err.htm?kind=2"
   end if
   lmNum=lmNum+1
   rs.close
  elseif request("lm"&i)="true" then
   name2=trim(Request("name"&i))
   egname=trim(request("egname"&i))
   ftname=trim(request("ftname"&i))
      pos2=Request("pos"&i)
   bnav="false"
      dName2=Request("dName"&i)
   sql="select ymName,ymType,content,contenteg,contentft from tlanmu where tid="&tid&"and tlmName='"&dName2&"'"
   rs.open sql,conn,1,1
   if not rs.eof then
       ymName=rs("ymName")
          ymType=rs("ymType")
    content=rs("content")
    contenteg=rs("contenteg")
    contentft=rs("contentft")
          sql="insert into userLM (userid,TID,lmName,lmnameeg,lmnameft,dlmName,ymName,lmContent,LMContentEG,LMContentFT,ymType,lmPos,bnav) values ('"&userid&"',"&tid&",'"&name2&"','"&egname&"','"&ftname&"','"&dName2&"','"&ymName&"','"&content&"','"&contenteg&"','"&contentft&"','"&ymType&"',"&pos2&",'"&bnav&"')"
          conn.execute(sql)
   else
       showMsg "系统出错!","err.htm?kind=2"
   end if
   lmNum=lmNum+1
   rs.close
     end if
next
if lmNum=0 then
      showMsg "请选择栏目!","select2.asp?tid="&tid
    else
     sql="select THead,THeadEG,THeadFT,TBottom,TBottomEG,TBottomFT from template where id="&tid
  rs.open sql,conn,1,1
  thead=rs("thead")
  theadeg=rs("theadeg")
  theadft=rs("theadft")
  tbottom=rs("tbottom")
  tbottomeg=rs("tbottomeg")
  tbottomft=rs("tbottomft")
  rs.close
     sql="insert into userinfo (userid,tid,THead,THeadEG,THeadFT,TBottom,TBottomEG,TBottomFT,TLanguage,UWeb_Title,userCover) values ('"&userid&"',"&tid&",'"&thead&"','"&theadeg&"','"&theadft&"','"&tbottom&"','"&tbottomeg&"','"&tbottomft&"','"&TLanguage&"','"&webname&"','"&showcover&"')"
     conn.execute(sql)
  call closeConn
     Response.redirect("select3.asp?userid="&userid&"&lmcount="&lmNum)
end if
end if
%>