ASP+vbscript写的万能查询表达式生成器
function allFld(fld)
if fld="工具编号" then
allfld="工具请领单.工具编号"
else
allfld=fld
end if
end function</script>
在要查询的列表后面加：<!--＃include file="seeker.asp"－－＞
在sql语句后右加：if request("s1")<>"" then sql=sql&" and "&request("s1")，这一句就是与你的程序连接上的关键。
接下来就是你的调试，轻松就OK！
-->
<form method="POST" name="exprform" action=<%=request.servervariables("document_name")%> >
<p align="right">
<input type="text" name="txtGo" size="3">
<input type="button" name="btnGo" value="转到">
第<input type="text" name="txtpage" size="3" value=<%=request("page")%>>页，
共<input type="text" name="TxtMaxPage" size="3" value=<%=rs.pagecount%>>页
<%if page>1 then%>
<input type="button" name="firstpage" value="第一页">
<input type="button" name="prepage" value="上一页">
<%end if%>
<%if page<>rs.pagecount then%>
<input type="button" name="nextpage" value="下一页">
<input type="button" name="lastpage" value="最后一页">
<%end if%>
<table height="91" ><tr><td>
<script language="vbscript">
<!----脚本：表达式生成器
dim f,exp
set f=document.exprform
if trim(f.txtpage.value)="" then f.txtpage.value=1 '---预置页号，当第一次访问页面时用
if cint(f.txtpage.value)>cint(f.txtmaxpage.value) then f.txtpage.value=f.txtmaxpage.value'---当条件改变时，由于页数可能更改，强行改变页号
sub btnGo_onclick '---转到指定的页面事件
if f.txtGo.value="" then msgbox "没有指定页数":exit sub
if not isNumeric(f.txtGo.value) then msgbox "不是数值":exit sub
if cint(f.txtGo.value)>cint(f.txtmaxpage.value) or cint(f.txtGo.value)<1 then msgbox "页号超出范围":exit sub
f.action=f.action&"?page="&f.txtGo.value
f.submit
end sub
sub firstpage_onclick '---第一页按钮事件
f.action=f.action&"?page=1"
f.submit
end sub
sub prepage_onclick '---上一页按钮事件
f.action=f.action&"?page="&(f.txtpage.value-1)
f.submit
end sub
sub nextpage_onclick '---下一页按钮事件
f.action=f.action&"?page="&(f.txtpage.value+1)
f.submit
end sub
sub lastpage_onclick '---最后一页按钮事件
f.action=f.action&"?page="&(f.txtmaxpage.value)
f.submit
end sub
sub fld_onchange'---------字段改变事件
f.sx.value=f.fld.options(f.fld.selectedIndex).name'---将字段的类型存入文本框sx(name里是从服务器获得的）
' f.s1.value=f.fld.options(f.fld.selectedIndex).value
f.opt.style.display=""
f.valu.style.display=""
f.BtnAnd.style.display=""
f.BtnOr.style.display=""
f.BtnEnd.style.display=""
end sub
sub fld_onBlur
call fld_onchange
end sub
sub opt_onchange '---*作符改变事件
end sub
sub valu_onBlur '---失去焦点事件
if f.sx.value=135 and (not isdate(f.valu.value)) then
msgbox "取值框输入的日期格式不正确，请重新输入",vbExclamation,"*作错误！！！"
end if
if (f.sx.value=2 or f.sx.value=3 or f.sx.value=4 or f.sx.value=5) and (not IsNumeric(f.valu.value)) then
msgbox "取值框输入的不是数值，请重新输入",vbExclamation,"*作错误！！！"
exit sub
end if
end sub
sub s1_onchange'---文本条件框改变事件
f.tj.style.display=""
end sub
sub BtnAnd_onclick
if valid()=true then
exp=exp&exp0()&" and "
call viewExpr
end if
end sub
sub BtnOr_onclick
if valid()=true then
exp=exp&exp0()&" or "
call viewExpr
end if
end sub
sub BtnEnd_onclick
if valid()=true then
exp=exp&exp0()&SortExpr()
f.fld.style.display="none"
f.opt.style.display="none"
f.valu.style.display="none"
f.btnand.style.display="none"
f.btnor.style.display="none"
f.btnend.style.display="none"
f.tj.style.display=""
call viewExpr
end if
end sub
function valid() '-------验证输入值的正确性
if f.sx.value=135 and (not isdate(f.valu.value)) then
msgbox "取值框输入的日期格式不正确，请重新输入",vbExclamation,"*作错误！！！"
valid=false
exit function
end if
if (f.sx.value=2 or f.sx.value=3 or f.sx.value=4 or f.sx.value=5) and (not IsNumeric(f.valu.value)) then
msgbox "取值框输入的不是数值，请重新输入",vbExclamation,"*作错误！！！"
valid=false
exit function
end if
if trim(f.valu.value)="" then
msgbox "取值框不能为空!",vbInformation,"*作错误！！！"
valid=false
exit function
end if
valid=true
end function
function exp0()'---生成表达式段落
select case f.sx.value '---根据字段属性选择生成表达式
case 202'---字符型字段
exp0=allFld(f.fld.value)&f.opt.value&"'"&f.valu.value&"'" '---allFld()为自定义函数，以获得完整字段名
case 2,3,4,5'---数值型字段
exp0=allFld(f.fld.value)&f.opt.value&f.valu.value
case 135'---日期型字段
exp0=allFld(f.fld.value)&f.opt.value&"#"&f.valu.value&"#"
case else
exp0=allFld(f.fld.value)&f.opt.value&"'"&f.valu.value&"'"
end select
end function
function SortExpr()'---排序表达式
if trim(f.fldsort.value)<>"无" then
SortExpr=" order by "&allFld(f.fldsort.value)&" "&f.udSort.value
else
SortExpr=""
end if
end function
sub viewExpr'---在条件框显示表达式
f.s1.value=exp
end sub
sub reset_onClick'---清除查询条件
exp=""
f.s1.value=""
call viewExpr
f.fld.style.display=""
f.tj.style.display="none"
end sub
sub tj_onclick'---提交查询条件
f.submit
end sub
sub allbtn_onClick'---清除条件，显示全部记录
exp=""
f.s1.value=""
f.submit
end sub
sub btnHelp_onClick'---使用说明
content="-----------------------使用说明---------------------"
content=content+vbcrlf+" 查询表达式生成器是按SQL语言规范设计，用户只需按一定的*作程序即可自动生成标准的SQL语句，并能被服务器接受。"
content=content+vbcrlf+"条件表达式*作步骤："
content=content+vbcrlf+"1、从字段下拉框选取字段。这时运算符下拉框、取值框、*作符按钮显示出来；"
content=content+vbcrlf+"2、从运算符下拉框选择恰当的运算符"
content=content+vbcrlf+"3、在取值框输入要查找的字符或数字或日期"
content=content+vbcrlf+"4、若要并列条件请按“而且”，若要任选条件请按“或者”，完成了条件请按“结束”"
content=content+vbcrlf+"5、当按下“结束”按钮后，在条件文本框下部弹出“提交表达式”,若要重写请按“重置”，检查无误后即可按下提交。"
content=content+vbcrlf+"6、当生成的表达式达不到要求时可以直接对条件文本框内的表达式进行修改，改完后按“提交表达式”发送到服务器端"
content=content+vbcrlf+"排序的*作："
content=content+vbcrlf+"1、排序表达式必须接在条件表达式的后面，但在*作时可以在条件表达式设置之前预先设置，生成器会自动将排序表达式放在条件表达式的后面"
content=content+vbcrlf+"2、如果只排序,不要查询条件时，请设一个伪条件：字段不等于一个不可能的值，按下“结束”按钮"
content=content+vbcrlf+"3、按“提交表达式”，完成排序"
content=content+vbcrlf+"4、看完“使用说明”后请按“重置”"
f.s1.value=content
end sub
-->
</script>
查询表达式生成器：</td></tr>
<tr><td>
<table border=1 name="SeeWin" style="display" bordercolorlight="#000000" cellspacing="1" bordercolordark="#FFFFFF"><tr><td bgcolor="#C0C0C0">
<select size="1" name="fld" value=<%=request.form("fld")%>>
<% if request.form("fld")<>"" then response.write "<option selected name=sel>"&request.form("fld")&"</option>"
For Each opt In rs.Fields
zdm=opt.name
zdlx=rs(zdm).type
response.write "<option value="&zdm&" name="&zdlx&">"&zdm&"</option>"
next
%>
</select>
<input type="text" size=5 name="sx" style="display:none">
<select size="1" name="opt" style="display:none" value=<%=request.form("opt")%>>
<option value="=" selected>等于</option>
<option value="=">等于</option>
<option value="<>">不等于</option>
<option value=">">大于</option>
<option value=">=">大于或等于</option>
<option value="<">小于</option>
<option value="<=">小于或等于</option>
<option value=" Like ">匹配</option>
</select>
<input type="text" name="valu" size="26" style="display:none" onFocus="jscript:this.value='';" value=<%=request.form("valu")%> >
<input type="button" name="BtnAnd" style="display:none" value="而且">
<input type="button" name="BtnOr" style="display:none" value="或者">
<input type="button" name="BtnEnd" style="display:none" value="结束">
</td></tr>
<tr><td bgcolor="#E0E8F0"><!--表达式显示区-->
<textarea rows="3" cols="80" name="S1" style="display"><%=request.form("s1")%></textarea><br>
</td>
<tr><td>
<p align="right"><!--排序区--> 排序按<select size="1" name="fldsort">
<option value="无" selected>（无）</option>
<%
For Each opt In rs.Fields
zdm=opt.name
response.write "<option value="&zdm&">"&zdm&"</option>"
next
%>
</select>
<select size="1" name="udSort"><option value="" selected>从小到大</option><option value=" desc">从大到小</option></select>
</td>
<tr><td><!--提交重置区-->
<input type="button" value="使用说明" name="btnhelp">
<input type="button" value="重置" name="reset">
<input type="button" value="全部记录" name="AllBtn">
<input type="button" value="提交表达式" name="tj" style="display:none"><br>
</td></tr>
</table>
</td></tr></form></table>
【日期：2006-8-7】【作者：不祥】【转载自：开店乐】
相关文章：
最好的网上开店系统:凡人网络购物系统免费下载
Rs.open sql,conn,A,B 的A、B各代表什么？ ASP开发中存储过程应用全接触 Oracle大文本在ASP中存取问题的解决 数据分页方法新思路，速度非常快！ ASP+vbscript写的万能查询表达式生成器 常用网站数据库SQL操作语句 ASP程序与SQL存储过程详解 ASP脚本一空间绑定多个域名代码 WEB编程开发常用的代码大全 解决大字段在Form中Post出错的方法 学习ASP之编写安全的ASP代码 ASP程序应用之模板采用 防止别人批量采集功能的ASP代码 网页图片下拉选择控件使用实例 平时写程序的时候出错时的解决方法 “在线访客”的制作方法 ASP中数据库调用时常见错误的现象和解决 ASP 编程中20个非常有用的例子 经典实用的基础asp程序整理 ASP中从数据库读取二进制文件数据代码 ASP动态生成的javascript表单验证代码 在电子商务中实现购物车的方法 ASP利用Google实现在线翻译功能 实现千万级数据分页的存储过程 详细说明用ASP和WML来实现数据库查询 ASP访问INTERBASE数据库 ASP安全配置不完全手册 在ASP中如何访问Novell下的数据库 ASP进阶学习必经之认识数学函数11种 初学者必读 ASP运行环境的搭建 解析asp的脚本语言 学习使用ASP对象和组件 让ASP程序运行于非Windows平台 通过启动脚本来感受ASP的力量 一些不长见的ASP调用存储过程的技巧 使用ASP脚本技术 优化Web数据库页面 Asp限制IP访问代码 ACCESS数据库防下载另类方法 ASP浏览器性能组件 细说ASP中Counters 组件 全面解析Server对象 ASP 内建对象Request和Respones 深入研究Application和Session对象 使用ASP、VB和XML建立运行于互联网上的应用程序 在客户端执行数据库记录的分页显示 对ASP脚本源代码进行加密 用代码打开Access文件的两种方法 使用Visual InterDev进行小组开发 用JScript脚本实现分页的另类办法 ASP中Cookie读写的实现方法 如何使用ASP建立虚拟的FTP服务器 在ASP中自动创建多级文件夹的函数 一个硬盘文件搜索的Asp源码 ASP使用MYSQL数据库全攻略 ASP上传数据流格式分析详解 ASP汉字转换UTF-8及UTF-8转换GB2312 ASP常用数据库连接及操作的方法 ASP编程中常用SQL命令使用方法 ASP查询记录时RecordCount=-1问题 让你的WAP网站有更好的兼容性 如何注册服务器端组件 轻松实现任何程序和动易整合 在服务器端调用winzip命令行对上传的多个文件打包压缩 用ASP制作强大的搜索引擎 ASP彩色校验码的制作 ASP 系列函数大全 ASP程序处理进程进度条 Asp无组件生成缩略图 用ASP实现自动建站.实现虚拟二级目录 删除Access数词库中的空记录 ASP身份证验证代码函数 ASP写的自动生成SELECT表单的函数 几种打开记录集方式的比较 用ASP实现汉字转拼音的功能 ASP分页代码，已经写成类了，值得参考 ASP下载系统防盗链方法 Global.asa文件用法大全 如何防止页面中的敏感信息被提取 Delphi编写组件封装asp代码的基本步骤 制做行背景颜色交替变换的表格 如何用foreach遍历页面上所有的TextBox 将数据库中的信息存储至XML文件中 用Asp写个加密和解密的类 如何固定表格的标题行和标题列 ASP小偷(远程数据获取)程序入门教程 Asp编写不再让人讨厌的自动弹出窗口 用ASP实现在线压缩与解压缩 使用组件封装ASP的数据库操作 ASP中读写注册表 ASP判断函数一览及网页制作常用技术 ASP中Cookie使用指南 随机产生用户密码(good) ASP:如何对身份证的籍贯进行验证 ASP产生随机密码的函数 ASP+ADO实现数据读写简单示例 一个简单的用户登录接口ASP实现 ASP+SQL Server构建网页防火墙 一个通用的保护ASP系统的方法 利用ASP发送和接收XML数据的处理方法
版权所有：Kaidianle.Com 联系方式：Shnxn@Yhaoo.Com.Cn 京ICP备06028743号 在线留言
