📄 select.asp
字号:
<!--
===================================================================================
功能：通用组合查询
姓名：冯兴杰，李会军
日期：2003-10-2
=====================================================================================
-->
<!--#include file="conn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/oa.css" rel=stylesheet>
<title></title>
<script language="Javascript">
function ChkSubmit()
{
if(document.form1.FieldName.value==0)
{
alert("请选择字段名！");
return false;
}
if(document.form1.op.value==0)
{
alert("请选择操作符！");
return false;
}
}
</script>
</head>
<body bgcolor=<%=small_color%>>
<center>
<table width="100%" border=0 cellPadding=4 cellSpacing=4 style="BORDER-COLLAPSE: collapse">
<tr><td align="center">
<fieldset>
<legend><font class="fy">组合条件选择</font></legend>
<form method="post" name="form1" action="../%D0%C2%BD%A8%CE%C4%BC%FE%BC%D0/search/condInsertCond.asp?table_id=<%=lnTable_id%>" onsubmit="return ChkSubmit();">
<table width="100%" border="0" cellspacing="4" cellpadding="4">
<tr>
<td> 字段名： <select name="FieldName" class="SELECT"><option value="0">请选择</option>
<option value=""></option>
</select></td>
<td> 操作符： <select name="op" class="SELECT">
<option value="0">请选择</option>
<option value="=">等于(=)</option>
<option value="<>">不等于(<>)</option>
<option value=">=">大于等于(>=)</option>
<option value="<=">小于等于(<=)</option>
<option value="$">包含于($)</option>
</select></td>
<td> 值： <input type="text" name="Val" class="mys1" size="30"></td>
<td> 逻辑： <select class="SELECT" name="Logic">
<option value="and">并且</option>
<option value="or">或者</option>
</select></td>
</tr>
<tr>
<td colspan="4" align="center"> <input type="submit" name="zj" class="button" value="添 加" action></td>
</tr>
</table>
</Form>
</fieldset>
</td>
</tr>
<tr><td align="center">
<fieldset>
<legend><font class="fy">组合条件生成</font></legend>
<br>
<table border=1 width="90%" borderColor=<%=tb_color%> cellPadding=5 cellSpacing=0 style="BORDER-COLLAPSE: collapse">
<tr>
<td height="30" align="center">编号</td>
<td height="30" align="center" >字段名</td>
<td height="30" align="center">操作符</td>
<td height="30" align="center" >值</td>
<td height="30" align="center">逻辑</td>
<td height="30" align="center">操作</td>
</tr>
<%
'调用存储过程，生成结果集
adParaminput = 1
adParamOutput = 2
adInteger = 3
adVarChar = 200
Uname=session("Uname")
Set CmdSP = Server.CreateObject("ADODB.Command")
'Recordset、Command对象都可以通过ActiveConnection属性来连接Connection对象
CmdSP.ActiveConnection = Conn
CmdSP.CommandText = "smp_cond_field" '存储过程名
CmdSP.CommandType = 4
CmdSP.Parameters.Append CmdSP.CreateParameter("lnT_ID", adInteger, adParamInput, ,lnTable_id)
CmdSP.Parameters.Append CmdSP.CreateParameter("@lcUname", adVarChar, adParamInput,16,Uname)
CmdSP.Parameters.Append CmdSP.CreateParameter("@lcflag", adVarChar, adParamInput,2,"")
Set c_rs = Server.CreateObject("ADODB.Recordset")
%>
</table>
<br>
</fieldset>
</td>
</tr>
<tr><td align="center">
<table>
<tr >
<Form method="post" name="CreateCondQuety" action="../%D0%C2%BD%A8%CE%C4%BC%FE%BC%D0/search/condCreateCond.asp?table_id=<%=lnTable_id%>&table_name=<%=lcTable_name%>&OP_Type=Query">
<td height="40" align="center" >
<input type="submit" value="生成查询" class="button" >
</td>
</form>
<Form method="post" name="CreateCondEdit" action="../%D0%C2%BD%A8%CE%C4%BC%FE%BC%D0/search/condCreateCond.asp?table_id=<%=lnTable_id%>&table_name=<%=lcTable_name%>&OP_Type=Edit">
<td height="40" align="center">
<input type="submit" value="生成列表" class="button" >
</td>
</form>
</tr>
</table>
</tr></td>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -