📄 menu.asp
字号:
<SCRIPT LANGUAGE="VBScript">
sub change() ' 组合查询条件的子过程
i1=frm1.select1.selectedindex
p1=frm1.select1.options(i1).Text
i2=frm1.select2.selectedindex
p2=frm1.select2.options(i2).value
if i1=0 then
i3=frm1.select3.selectedindex
p3=frm1.select3.options(i3).Text
else
p3=frm1.select3.value
end if
if i1<=2 then
if p2="LIKE" then p3=" '" & p3 & "%'" else p3=" '" & p3 & "'"
end if
p=p1 & " " & p2 & p3
if i1=0 and i3=0 then p= "true"
frm1.h1.value=p
end sub
sub aa() ' 判断查询条件是否合法的子过程
i1=frm1.select1.selectedindex
if i1=0 then
i3=frm1.select3.selectedindex
p3=frm1.select3.options(i3).Text
else
p3=frm1.select3.value
end if
If p3="" Then
Msgbox "值不能为空"
frm1.Clearattributes
End If
end sub
</SCRIPT>
<HTML>
<BODY BGCOLOR="#9CCDCD">
<form name=frm1 action=list1.asp target=Bottom onsubmit=aa>
<P align=center><FONT face=隶书 size=6>职工工资查询</FONT>
<TABLE ALIGN="Center" WIDTH="100%" BORDER="0">
<TR HEIGHT="30" BGCOLOR="#EDF5F5" ALIGN="Center">
<TD><SELECT id=select1 style="width:100px" name=select1>
<OPTION value="1">部门</OPTION>
<OPTION value="2">编号</OPTION>
<OPTION value="3">姓名</OPTION>
<OPTION value="4">基本工资</OPTION>
<OPTION value="5">岗位津贴</OPTION>
<OPTION value="6">职务补贴</OPTION>
<OPTION value="7">奖金</OPTION>
<OPTION value="8">房租</OPTION>
<OPTION value="9">水电</OPTION>
<OPTION value="10">实发工资</OPTION>
</SELECT>
<SCRIPT FOR=select1 EVENT=onchange LANGUAGE="VBScript">
op="<SELECT style='width:100px' name=select2 onchange=change> "
op=op & "<OPTION value='='>等于<OPTION value='<>'>不等于"
if frm1.select1.selectedindex>2 then
op=op & "<OPTION value='<'>小于<OPTION value='<='>不大于"
op=op & "<OPTION value='>'>大于<OPTION value='>='>不小于"
txt="<input type = text name=select3 Size=10 onBlur=change>"
elseif frm1.select1.selectedindex>0 then
op=op & "<OPTION value='LIKE'>含字符</OPTION>"
txt="<input type = text name=select3 Size=10 onBlur=change>"
elseif frm1.select1.selectedindex=0 then
txt="<SELECT style='width:100px' name=select3 onBlur=change> "
txt=txt & "<OPTION>全部<OPTION>财务<OPTION>保卫"
txt=txt & "<OPTION>供销<OPTION>技术<OPTION>生产"
txt=txt & "</SELECT>"
end if
op=op & "</SELECT>"
frm1.select2.outerhtml=op
frm1.select3.outerhtml=txt
change()
</SCRIPT>
<SELECT style="width:100px" onchange=change name=select2>
<OPTION value='='>等于<OPTION value='<>'>不等于
</SELECT>
<SELECT style="width:100px" onchange=change name=select3>
<OPTION>全部<OPTION>财务<OPTION>保卫
<OPTION>供销<OPTION>技术<OPTION>生产
</SELECT>
<INPUT type=Hidden name=h1 value="部门='财务'">
<INPUT type=submit value="开始查找">
</TABLE>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -