asp 数据合并 排序 提取 批量查询 超级实用小工具

<%

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>
<!--
 ' ★推荐★1:即时开通免费查询:
 ' 无需域名 无需空间 无需代码 无需技术人员 无需备案 即开即用
 ' 开通后会将网址、用户名、密码以及使用教程发送到你留的邮箱。

 ' ★通用查询网页直查版(1-3查询条件版)
 ' 免费自助开通:http://add.12391.net/ 

 ' ★通用查询公众号多选一直查版(聊天式)
 ' 免费自助开通:http://new.12391.net/ 

 ' ★通用查询公众号绑定查己版(聊天式)
 ' 免费自助开通:http://add.96cha.com/ 

 ' ★通用查询登录精准查询本人版(可自助改密)
 ' 免费自助开通:http://add.dbcha.com/ 

 ' ★通用查询登录精准查询公共版(可自助改密)
 ' 免费自助开通:http://ada.echafen.com/ 

 ' ★通用查询登录模糊搜索公共版(可自助改密)
 ' 免费自助开通:http://ade.echafen.com/ 

 ' ★通用查询模糊搜索公共版(多查询模式合一)
 ' 免费自助开通:http://add.xuelikai.com:1111/ 

 ' ★通用防伪溯源查询系统(网页+扫码+公众号)
 ' 免费自助开通:http://add.mabida.cn/ 

 ' ★通用发货查询系统(网页+公众号)
 ' 免费自助开通:http://add.mabida.cn:1111/

 ' ★通用进度查询系统(网页+公众号)
 ' 免费自助开通:http://add.mabida.cn:2222/

 ' ★通用证书查询系统(网页+公众号)
 ' 免费自助开通:http://add.mabida.cn:3333/
 
 另外有上百款源码版供选购:http://aiyaha.taobao.com
-->
<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="" οnsubmit="return startRequest(0);">

   <tr>   <td colspan="2">
   <span>功能:将表1按表2顺序合并到表2(两表均以第一列为关联)。相当于执行了按表2排序,合并到表2,根据表2首列提取表1等功能</span>
   <span></span>
   </td>
</tr>
<tr  class="tt">
  <td >
   <span>第一步:</span>复制Excel表1二维表(单元格无回车制表符,关联列放第一列后)复制得下边。
   </td> <td >
   <span>第二步:</span>复制Excel表2二维表(单元格无回车制表符,关联列放第一列后)复制得下边。
   </td>
</tr>

<tr>
  <td >
<textarea name="yuan" cols="20" rows="15" id="sfzh"  style="width:100%;">
学号	科目1	科目2	科目3	科目4	科目5	科目.	科目N
90001005	60	64	61	71	73	85	61
90001006	62	69	77	73	96	67	82
90001010	72	59	86	88	63	85	89
90001009	76	88	91	93	87	65	77
90001004	82	80	75	90	87	64	81
90001001	87	84	75	91	83	76	87
90001008	91	95	83	77	83	66	76
90001002	95	81	81	71	60	82	99
90001007	98	72	68	59	84	92	92
</textarea>
   </td> <td >
<textarea name="idid" cols="20" rows="15" id="idid"  style="width:100%;">
学号	姓名
90001001	李一
90001002	李二
90001003	李三
90001004	李四
90001005	李五
90001007	李七
90001008	李八
90001009	李九
90001010	李一零
</textarea>
   </td>
</tr>

   <tr>   <td colspan="2">
<p align="center"><input type="submit" name="button" id="sub" value="   合并:排序:提取  " /></p>
<span>1.示范数据说明:左边无90001003,右边无90001006,注意结果只根据右侧首列提取,提取不到首列会显示0。</span><br>
<span>2.注意只放1列且是第1列为关联字段哦,不然会有错误;适合不重复字段作为关联,比如名字会有重名则合并结果首列会大于1。</span>。<br>
<span>3.用途举例:多科成绩合并。表1学号+语文,表2学号+数学,合并后学号+数学+语文,并按表2学号顺序排列。</span>。<br>
<span>4.用途举例:按指定表排序。表1按试卷顺序录入的表格(学号+语文),表2按顺序的(学号+姓名),合并后按表2学号顺序排列。</span>。<br>
<span>5.用途举例:按指定表提取。表1按试卷顺序录入的全年级表格(学号+语文),要得到班级1的成绩表,只需复制该班级的学号列提交。</span><br>
<span>6.用途举例:批量查询功能。原理同上:表1是首列为学号的全年级成绩表格,表2只有想要查询学号列(一行一个)。</span><br>
   </td>
</tr>
</form>
<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>

<%else%>

<table border="0" cellpadding="0" cellspacing="0" >
   <tr class="tt" οnclick="location.href='?t='+new Date();">   <td colspan="2">
<p align="center"><a href="" id="sube" title="返回继续">返回继续</a></p>
<p ><span>结果说明:</span> 第一列为1正常,小于1则没有提取到,大于1则提取到多条请判断。 </p>
<p ><span>结果说明:</span> 得到的内容复制回Excel新表标记即可。处理好表格后可以将第一列多余的内容删除。 </p>
   </td>
</tr>

<tr><td colspan="2">
<%
newlist=""
if len(sfzhs)>5 and len(idids)>1 then
mystr=split(idids,vbcrlf)
for ii=0 to ubound(mystr) 
linea = mystr(ii)
if instr(linea,vbtab)>0 then
linex = split(linea,vbtab)(0)
else
linex = linea
end if
'newlist=newlist&linex&vbcrlf
if len(linex)>0 then
if instr(sfzhs,linex&""&vbtab)>0 then
de1dao = split(sfzhs,linex&""&vbtab)

'照顾多条符合:第一列>1请留意
for ij=1 to ubound(de1dao) 
de2dao = de1dao(ij)
de3dao = split(de2dao&vbcrlf,vbcrlf)(0)
newlist=newlist&ij&vbtab&linea&vbtab&de3dao&vbcrlf
next

else
'照顾表2不能从表1找到信息:第一列<1请留意
newlist=newlist&"0"&vbtab&linea&vbtab&strzhu&"没有提取到表1信息"&vbcrlf
end if

end if
next

if len(newlist)>0 then
'newlist=replace(newlist,"admin@ewuyi.net","")
response.Write "<textarea cols='130' rows='25' style=""width:99%;"">"&newlist&"</textarea><br><hr>"
end if
end if

%></td>
</tr>
   <tr class="tt" οnclick="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())%>  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>


合并、排序、提取、批量查询 超级实用小工具

asp超级小巧实用的小工具,会计类、办公人员必备、程序员、小数据分析必备。主功能只有11KB大小。

如何使用:

1. 放asp虚拟主机即可执行,也可以本地电脑运行(双击netbox,这样无需网络无需服务器空间)。

如何操作:

访问功能页面后:

第一步:复制Excel表1二维表(单元格无回车制表符,关联列放第一列后)复制得下边。

第二步:复制Excel表2二维表(单元格无回车制表符,关联列放第一列后)复制得下边。

第三步:点查询页面的按钮(合并、排序、提取)。

第四步:得到的结果复制到Excel新表编辑,比如第一列内容不是1的行,分析处理。

处理异常行完成后,可以删除新加的辅助列:第一列。

注意事项:

得是二维表:Excel首行列标题,以后一行一条数据。

单元格无回车换行,无制表符。如果有想办法先替换。

首列是关联字段,建议不重复的内容比如学号,准考证号,身份证号等。

关联字段只放第一列。

得到的结果你的特别关注第一列不等于1的行,分析其可靠性。

用途举例:

用途举例:多科成绩合并。表1学号+语文,表2学号+数学,合并后学号+数学+语文,并按表2学号顺序排列。。

用途举例:按指定表排序。表1按试卷顺序录入的表格(学号+语文),表2按顺序的(学号+姓名),合并后按表2学号顺序排列。。

用途举例:按指定表提取。表1按试卷顺序录入的全年级表格(学号+语文),要得到班级1的成绩表,只需复制该班级的学号列提交。

用途举例:批量查询功能。原理同上:表1是首列为学号的全年级成绩表格,表2只有想要查询学号列(一行一个)。

其他很多用途。特别是网站技术员/管理员对数据的管理与分析:合并、排序、提取、批量查询。

其他很多用途。会计人员、办公室人力资源管理员也是必备。

更多好易用的小工具软件:

1. 请访问:http://test.96448.cn/



  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

YUJIANYUE

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值