📄 -+-
字号:
<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl(mkmc)
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>图书库存查询 欢迎使用欣科软件</title>
</head>
<body background="Bkg35.jpg" topmargin="0">
<p><img src="soft.gif" width="45" height="30"><font size="6" color="#0000ff">图书库存查询
<object id="RDS1" classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="7" height="14">
<param name="AllowAddnew" value="true">
<param name="AllowDelete" value="true">
<param name="AllowUpdate" value="true">
<param name="allowarrows" value="true">
</object>
<object id="RDS2" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" align="baseline"
border="0" width="14" height="14">
<param name="AllowAddnew" value="true">
<param name="AllowDelete" value="true">
<param name="AllowUpdate" value="true">
<param name="allowarrows" value="true">
</object>
</font>
<hr color="#0000ff">
<div align="center"><center>
<table border="1" cellspacing="1" width="744" height="336">
<tr>
<td width="595" valign="top" height="166">
<OBJECT align=baseline classid="clsid:00028CD1-0000-0000-0000-000000000046"
CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
dataSrc=#rds1 height=168 id=grid1 style="LEFT: 0px; TOP: 0px" width=594 border = 0 VIEWASTEXT></OBJECT>
</td>
<td width="149" valign="middle" height="366" rowspan="2" bgcolor="#003366" align="center"> <p><font color="#ffffff">输入分类编号:</font></p>
<p><input type="text" name="flbh" size="11" style="font-family: 宋体; font-size: 15"> <br>
<br>
</p>
<p align="center"><input type="button" value="查询数据" name="find"
onclick="find_click()" style="font-family: 宋体; font-size: 15"> </p>
<p align="center"><input type="button" value="退出返回" name="return"
onclick="returning()" style="font-family: 宋体; font-size: 15"> </td>
</tr>
<tr>
<td width="595" valign="top" height="191">
<OBJECT align=baseline classid="clsid:00028CD1-0000-0000-0000-000000000046"
CODEBASE="http://<%=Request.ServerVariables("SERVER_NAME")%>/school/public/tdbg6.ocx"
dataSrc=#rds2 height=176 id=grid2 style="LEFT: 0px; TOP: 0px" width=597 border = 0 caption = ttt VIEWASTEXT></OBJECT>
</td>
</tr>
<script language="vbscript">
RDS1.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
rds1.connect="database=school;uid=sa;pwd=;dsn=school"
rds1.sql="select 分类编号,分类名称 from tfl where 类别编号='"&trim(<%=session("lbbh")%>)&"' "
RDS1.EXECUTEOPTIONS=1
rds1.refresh
RDS2.server="http://<%=Request.ServerVariables("SERVER_NAME")%>"
rds2.connect="database=school;uid=sa;pwd=;dsn=school"
sub grid1_click()
rds2.sql="select 书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+次序号,书名,作者,库存数量,出版社名称,单价,译者,页数 from ttsml where 分类编号='"&trim(grid1.columns.item(0))&"' and 类别编号='"&trim(<%=session("lbbh")%>)&"' "
rds2.executeoptions=1
rds2.refresh
end sub
sub find_click()
if len(trim(flbh.value))=0 or trim(flbh.value)="" then
msgbox "请输入查询条件!",,"提示窗口"
EXIT SUB
ELSEif len(trim(flbh.value))<>0 or trim(flbh.value)<>"" then
rds2.sql="select 书号=ltrim(rtrim(分类编号))+'/'+ltrim(rtrim(主序号))+'-'+次序号,书名,作者,库存数量,出版社名称,单价,译者,页数 from ttsml where LTRIM(RTRIM(分类编号))='"&trim(FLBH.VALUE)&"' and 类别编号='"&trim(<%=session("lbbh")%>)&"' "
rds2.executeoptions=1
rds2.refresh
if RDS2.Recordset.recordcount <=0 then
msgbox "没有找到满足条件的记录",,"提示窗口"
end if
end if
end sub
sub returning()
history.go(-1)
end sub
</script>
</table>
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -