asp随机分配网站源码随机分班分组分队

最新推荐文章于 2024-07-29 14:47:48 发布

YUJIANYUE

最新推荐文章于 2024-07-29 14:47:48 发布

阅读量1.3k

点赞数

分类专栏：服务器 html asp js 文章标签：随机分班随机分配

本文链接：https://blog.csdn.net/YUJIANYUE/article/details/89555343

版权

html 同时被 3 个专栏收录

20 篇文章 0 订阅

订阅专栏

19 篇文章 0 订阅

订阅专栏

asp

16 篇文章 0 订阅

订阅专栏

源码使用：

本源码为asp版，可以放asp空间使用，也可以本地windows下使用netbox.exe本地使用。
下载请百度netbox。解压后把netbox.exe和index.asp放一起，然后双击运行netbox.exe。

功能使用：

1.左边复制自Excel两列内容，一列类别比如班级，第二列是类别对应数量(无效则1)。
2.右边一列是待分配列，比如姓名，建议使用唯一不重复的内容比如加上学号以区分。。
3.得到内容：详见得到的结果；可复制回Excel查看并可以根据第四列排序回原来顺序。。

相关源码：

<%

strfen=vbcrlf  '制表符切割
strzhu="★☆★"  '制表符切割


 strNow = Now()
 strNow0 = Year(strNow) &"-"& Right(("00" & Month(strNow)),2) &"-"& Right(("00" & Day(strNow)),2)
 strNow1 = Year(strNow) & Right(("00" & Month(strNow)),2) & Right(("00" & Day(strNow)),2)
 strNow2 =  Right(("00" & Hour(strNow)),2) &":"& Right(("00" &  Minute(strNow)),2) &":"& Right(("00" & Second(strNow)),2)
daynowes = strNow0  '&" "&strNow2

sfzhs=request.form("yuan")
idids=request.form("idid")

'替换是为了照顾：关联列增加到首列情况（防止后面还有相等列）。
'sfzhs=replace(sfzhs,vbcrlf,vbcrlf&"admin@ewuyi.net")
'idids=replace(idids,vbcrlf,vbcrlf&"admin@ewuyi.net")
%><html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>合并、排序、提取、批量查询 超级实用小工具</title>
<style>
/*所有*/
*{font-size:14px;margin:0 auto;padding:0;font-family:"microsoft yahei","宋体"; color: #666666;}
a{color:#333333;text-decoration:none;}
a:hover {text-decoration:none;color:#333333;}
.r {text-align:right;}
.l {text-align:left;}
.span,span{color:green;font-weight:600;}
.table {overflow:hidden;width:100%;}
.test {width:55%;border-top:1px red solid;border-left:1px red solid; }
.test td{width:20%;border-right:1px red solid;border-bottom:1px red solid; }
.buts{margin:5px;padding:12px 8px;background-color:#0180CF;color:#FFFFFF;}
.laydate{line-height:36px;height:36px;width:468px;font-size:24px;BORDER:#006AA8 1px solid;}
/*顶部*/
.sub_bod{left:0px;top:38px;position:absolute;height:55px;width:100%;z-index:-100}
.sub_top{height:40px;margin-bottom:12px;background-color:#0180CF;width:100%;position:relative;}
.sub_top .title{text-align:center;color:#FFFFFF;height:40px;line-height:40px;}
.sub_top .back{position:absolute;left:10px;top:10px;width:50px;}
.sub_top .menu{position:absolute;right:0px;top:6px;width:35px;padding-left:10px;}
.sub_top .menu img{ width:28px;}


/*底部*/
.foot{margin:0 auto;height:24px;width:100%;border-top:1px #CACACA solid;background:#ddd;}
.foot .title{width:100%;text-align:center;line-height:22px;}

div {width:100%;margin-right: auto;margin-left: auto;text-align: center;}
input,.grey{font-size: 14px;border: 1px solid #FFF;}
table{ margin:0px auto;border:1px solid #a2c6d3;margin:0 auto;background:#fff;font-size:14px;}
table td{border:1px solid #a2c6d3;padding:5px;min-width:468px;}
.tt{background:#e5f2fa;}
a:link,a:visited,a:hover {color:#000;text-decoration:none;}
h1{line-height:88px;color:#006AA8;font-size:28px;}
#sfzh,#idid{ FONT-SIZE:12px;BORDER:#006AA8 1px solid;}
#sub,#sube{ FONT-SIZE:26px;font-weight:600;color:white;background:#006AA8;BORDER:#006AA8 1px solid;HEIGHT:35px;}
#tishi,#jieguo{ width:100%;font-size:20px;margin:3px 0;}
#footer{ width:100%;font-size:14px;line-height:58px;margin:3px 0;}
</style>

<body>
<div align="center">
<p><h1>随机分配工具(随机分班工具)</h1></p>

<%if len(sfzhs)=0 then%>
<table border="0" cellpadding="0" cellspacing="0" >
<form name="queryForm" method="post" action="" onsubmit="return startRequest(0);">

   <tr>   <td colspan="2">
   <span>功能：可指定类别对应数量的随机分配功能，分配结果可按被分配内容排序。</span>
   <span></span>
   </td>
</tr>
<tr  class="tt">
  <td >
   <span>第一步：</span>将Excel表“班级”和“人数”复制到下边(就复制一列则人数默认为1)。
   </td> <td >
   <span>第二步：</span>复制Excel表被随机分配列内容复制到下边，比如待分配学生的姓名(建议+学号防止重名)。
   </td>
</tr>

<tr>
  <td >
<textarea name="yuan" cols="20" rows="15" id="sfzh"  style="width:100%;">
高三(1)班	10
高三(2)班	11
高三(3)班	12
高三(4)班	13
高三(5)班	14
高三(6)班	15
高三(7)班	16
高三(8)班	17
</textarea>
   </td> <td >
<textarea name="idid" cols="20" rows="15" id="idid"  style="width:100%;">
李一
李二
李三
李四
李五
李六
李七
李八
李九
李一零
李一一
李一二
李一三
李一四
李一五
李一六
李一七
李一八
李一九
李二零
李二一
李二二
李二三
李二四
李二五
李二六
李二七
李二八
李二九
李三零
李三一
李三二
李三三
李三四
李三五
李三六
李三七
李三八
李三九
李四零
李四一
李四二
李四三
李四四
李四五
李四六
李四七
李四八
李四九
李五零
李五一
李五二
李五三
李五四
李五五
李五六
李五七
李五八
李五九
李六零
李六一
李六二
李六三
李六四
李六五
李六六
李六七
李六八
李六九
李七零
李七一
李七二
李七三
李七四
李七五
李七六
李七七
李七八
李七九
李八零
李八一
李八二
李八三
李八四
李八五
李八六
李八七
李八八
李八九
李九零
李九一
李九二
李九三
李九四
李九五
李九六
李九七
李九八
李九九
李零零
李零一
李零二
李零三
李零四
李零五
李零六
李零七
李零八
李零九
</textarea>
   </td>
</tr>

   <tr>   <td colspan="2">
<p align="center"><input type="submit" name="button" id="sub" value="   随机分配  " /></p>
<span>1.左边复制自Excel两列内容，一列类别比如班级，第二列是类别对应数量(无效则1)。</span><br>
<span>2.右边一列是待分配列，比如姓名，建议使用唯一不重复的内容比如加上学号以区分。</span>。<br>
<span>3.得到内容：详见得到的结果；可复制回Excel查看并可以根据第四列排序回原来顺序。</span>。<br>

<span>本源码为asp版，可以放asp空间使用，也可以本地windows下使用netbox.exe本地使用</span>。<br>
<span>下载请百度netbox或访问：http://down.chinaz.com/soft/25153.htm</span>。<br>
<span>解压后把netbox.exe和index.asp放一起，然后双击运行netbox.exe</span>。<br>

   </td>
</tr>
</form>


</table>

<%else%>

<table border="0" cellpadding="0" cellspacing="0" >
   <tr class="tt" onclick="location.href='?t='+new Date();">   <td colspan="2">
<p align="center"><a href="" id="sube" title="返回继续">返回继续</a></p>
<p ><span>结果说明：</span> 可复制回Excel查看并可以根据第四列排序回原来顺序。 </p>
   </td>
</tr>

<tr><td colspan="2">
<%
newlist=""


Function RegExpTest(patrn, strng)
    RetStr ="|"
  Dim regEx, Match, Matches      ' 建立变量。
  Set regEx = New RegExp         ' 建立正则表达式。
  regEx.Pattern = patrn         ' 设置模式。
  regEx.IgnoreCase = True         ' 设置是否区分字符大小写。
  regEx.Global = True         ' 设置全局可用性。
  Set Matches = regEx.Execute(strng)   ' 执行搜索。
  For Each Match in Matches      ' 遍历匹配集合。
    MatchValue=""&Match.Value&""
  if RetStr ="|" and len(MatchValue)>0 then
    RetStr = MatchValue
  end if
  Next
  RegExpTest = RetStr
End Function


if len(sfzhs)>5 and len(idids)>1 then
numbr = 0
txtxr = ""
tytxr = "|"
mystr=split(sfzhs,vbcrlf)
for ii=0 to ubound(mystr) 
linea = mystr(ii)
if instr(linea,vbtab)>0 then
else
linea = linea&vbtab&"1"
end if
linex = split(linea,vbtab)(0)
if len(trim(linex))>0 then
numbs = split(linea,vbtab)(1)
numbt = RegExpTest("[1-9][0-9]{0,3}",numbs) '1+3：4位数
if IsNumeric(numbt)=True then
else
numbt = 1
end if
numbr = numbr+numbt
for ik=1 to numbt
ij = ij+1
txtxr = txtxr & linex & vbtab & ik & vbtab &"<!--"&ij&"-->"&vbcrlf
tytxr = tytxr & ij&"|"
next
end if
next
numbu = numbr
mustr=split(idids,vbcrlf)
iz = 0
for iy=0 to ubound(mustr) 
linec = trim(mustr(iy))
if len(linec)>0 then
iz=iz+1
linec = iz & vbtab & linec &""
Randomize
numbr = numbr -1
intRndNumber = Int(numbr*Rnd)+1

randtihuaner = split(tytxr,"|")
newn = ubound(randtihuaner)
if intRndNumber > newn then
response.Write "<p>错误:"&intRndNumber& " > "&newn&"</p>"& vbcrlf
end if
randtihuaner = split(tytxr,"|")(intRndNumber)

if instr(txtxr,"<!--"&randtihuaner&"-->")>0 then

tytxr = replace(tytxr,"|"&randtihuaner&"|","|")
txtxr = replace(txtxr,"<!--"&randtihuaner&"-->",linec)

response.Write "<!--"&intRndNumber&":"&randtihuaner&"-->"& vbcrlf
else
'不够替换

ix=ix+1
if ix=1 then
linef = linef& ""&linec
else
linef = linef& "、"&linec
end if
end if

end if

next
if ix>0 then
txtxr = txtxr & vbcrlf &vbcrlf &"请注意有"&ix&"个没被分配："& linef
end if
ixx = numbu-iz
if numbu>iz then
txtxr = txtxr & vbcrlf &vbcrlf &"请注意有"&ixx&"个空位。"
else
'txtxr = txtxr & vbcrlf &vbcrlf &"请注意有"&ixx&"个空位。"
end if

if len(txtxr)>0 then
txtxr = "类别"&vbtab&"类别序号"&vbtab&"被分原序"&vbtab&"被分信息"& vbcrlf&txtxr
response.Write "<textarea cols='130' rows='25' style=""width:99%;"">"&txtxr&"</textarea><br><hr>"
end if
end if

%></td>
</tr>
   <tr class="tt" onclick="location.href='?t='+new Date();">   <td colspan="2">
<p align="center"><a href="" id="sube" title="返回继续">返回继续</a></p>
   </td>
</tr>
<tr>
   <td>
  <a href="http://add.12391.net/" target="_blank">通用查询网页直查版(1-3查询条件版)</a>  
   </td>
   <td>
  <a href="http://new.12391.net/" target="_blank">通用查询公众号多选一直查版(聊天式)</a>  
   </td>  </tr>
  <tr>
   <td>
  <a href="http://add.96cha.com/" target="_blank">通用查询公众号绑定查己版(聊天式)</a>  
   </td>
   <td>
  <a href="http://add.dbcha.com/" target="_blank">通用查询登录精准查本人版(可自助改密)</a>  </td>
     </tr>
  <tr><td>
  <a href="http://ada.dbcha.com/" target="_blank">通用查询登录精准查公共版(可自助改密)</a>  </td>
   <td>
  <a href="http://ade.dbcha.com/" target="_blank">通用查询登录模糊搜公共版(可自助改密)</a>  </td>
  </tr>
  <tr>
   <td>
  <a href="http://add.xuelikai.com:1111/" target="_blank">通用查询模糊搜索公共版(多查询模式合一)</a>  </td>
   <td>
  <a href="http://add.mabida.cn:1111/" target="_blank">通用发货查询系统(网页+公众号)</a>  </td>
     </tr>
  <tr><td>
  <a href="http://add.mabida.cn/" target="_blank">通用防伪溯源查询(网页+扫码+公众号)</a>  </td>
 <td>
  <a href="https://aiyaha.taobao.com/" target="_blank">更多简单实用的查询系统解决方案</a>  </td>
  </tr>

</table>

<%end if%>


<div id="footer">&copy;<%=year(now())%>&nbsp;&nbsp;Powered By <a href="http://add.12391.net/" target="_blank">通用查分系统</a>&<a href="http://aiyaha.taobao.com/" target="_blank">aiyaha</a></div>
</div>
</body>
</html>

写的较乱，非喜勿喷，谢谢