📄 ywcx.asp
字号:
<!--#include file="conn1.asp"-->
<%
yname=request("yname")
rdate=request("rdate")
lb=request("lb")
if lb<>"" then
if yname<>"" then
sql="select * from yw where yname='"& yname &"'order by rdate"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
else
if rdate<>"" then
sql="select * from yw where rdate='"& rdate &"'and lb='"& lb &"'order by rdate"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
else
sql="select * from yw where lb='"& lb &"'order by rdate"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
end if
end if
else
sql="select * from yw where lb='针剂'order by rdate"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css">
<title>病历查询</title>
<style type="text/css">
<!--
body {
background-color: #d6dff7;
}
.style1 {color: #CC0000}
-->
</style>
</head>
<body>
<table width="806" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="806" height="24"> </td>
</tr>
<tr>
<td height="24"> ----》药物查询 </td>
</tr>
<tr>
<td height="24"><hr size=1></td>
</tr>
<tr>
<td align="center"><form name="form1" method="post" action="ywcx.asp?page=1">
药物名称
<input name="yname" type="text" id="name" size="12">
入库日期
<input name="rdate" type="text" id="sname" size="12">
类别
<select name="lb" id="select">
<option value="针剂"<%if lb="针剂" then%>selected<%end if%>>针剂</option >
<option value="消毒剂"<%if lb="消毒剂" then%>selected<%end if%>>消毒剂</option>
<option value="辅料类"<%if lb="辅料类" then%>selected<%end if%>>辅料类</option>
<option value="口服药" <%if lb="口服药" then%>selected<%end if%>>口服药</option>
<option value="中成药"<%if lb="中成药" then%>selected<%end if%>>中成药</option>
<option value="器械类"<%if lb="器械类" then%>selected<%end if%>>器械类</option>
</select>
<input type="submit" name="Submit3" value="查找">
</form></td>
</tr>
<%if not rs.eof then
rs.PageSize=10
rs.AbsolutePage=1
AbsolutePage=1
if request("page")<>"" then
rs.AbsolutePage=request("page")
AbsolutePage=request("page")
'response.write(page)
'response.end
end if%>
<%sub showpages()
if rs.PageCount>=1 then%>
共找到<font color="red"><%=rs.recordcount%></font>条记录；每页<font color="red"><%=rs.pagesize%></font>条；
/<a href="<%=request("script_name")%>?page=<%=1%>&yname=<%=yname%>&rdate=<%=rdate%>&lb=<%=lb%>">首页</a>
<%if cint(AbsolutePage)>1 then%>
<a href="<%=request("script_name")%>?page=<%=AbsolutePage-1%>&yname=<%=yname%>&rdate=<%=rdate%>&lb=<%=lb%>">上一页</a>
<%else%>
上一页
<%end if%>
第<%=AbsolutePage%>页
<%if cint(rs.pagecount)>cint(AbsolutePage) then%>
<a href="<%=request("script_name")%>?page=<%=AbsolutePage+1%>&yname=<%=yname%>&rdate=<%=rdate%>&lb=<%=lb%>">下一页</a>
<%else%>
下一页
<%end if%>
<a href="<%=request("script_name")%>?page=<%=rs.pagecount%>&yname=<%=yname%>&rdate=<%=rdate%>&lb=<%=lb%>">末页</a>/
<%for i=1 to rs.PageCount
if trim(i)<>trim(AbsolutePage) then%>
<a href="<%=request("script_name")%>?page=<%=i%>&yname=<%=yname%>&rdate=<%=rdate%>&lb=<%=lb%>">[<%=i%>]</a>
<%else%>
[<font color="#FF0000"><%=i%></font>]
<%end if
next%>
<%end if
end sub%>
<tr>
<td align="left"><%showpages%> </td>
</tr>
<tr>
<td> <table width=830 border=0 align=center cellpadding=6 cellspacing=1 bgcolor=#6595D6>
<tr align="center" bgcolor=#799ae1>
<td height=20>序号 </td>
<td width="139" height=20>药 物 名 称</td>
<td width="56">单 位</td>
<td width="55">总 量</td>
<td width="65">已用</td>
<td width="165">入 库 日 期</td>
<td width="79">进 价</td>
<td width="71">出 价</td>
<td width="66">类别</td>
</tr>
<%for i=1 to rs.PageSize
if rs.EOF then
exit for
end if%>
<tr bgcolor=#D6DFF7 height=20 >
<td width=41 height=20> <%=i%><a href="dely.asp?id=<%=rs("id")%>&lb=<%=lb%>&yname=<%=yname%>&rdate=<%=rdate%>"> <img src="../images/del.gif"alt="** 删 除 **" width="9" height="9" border="0"></a></td>
<td><a href="ywrc.asp?id=<%=rs("id")%>"><%=rs("yname")%></a></td>
<td><%=rs("unit")%></td>
<td><%=rs("cnt")%></td>
<td><%if rs("yy")<>"" then %><%=rs("yy")%><%else%> <%end if%></td>
<td><%=rs("rdate")%></td>
<td><%=rs("jprice")%>元</td>
<td><%=rs("cprice")%>元</td>
<td><%=rs("lb")%></td>
<%rs.movenext
next%>
<%else%>
<tr align="center" valign="middle" bgcolor=#D6DFF7>
<td height=20 colspan="9"><span class="style1"> ^ - ^ 对不起，目前没有此药物的资料，请重试！ ^ - ^</span></td>
</tr><% end if%>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td height="38"> </td>
</tr>
<tr>
<td align="center" valign="middle"><!--#include file="foot.asp"--></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -