📄 ywjs.asp
字号:
<!--#include file="conn1.asp"-->
<%
mon=int(request("m"))
yr=request("y")
sql="select * from js where monthy like '%"& mon &"%' and year='"& trim(yr) &"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<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="js.asp">
查找范围
：
<select name="year" id="select5">
<option value="2004" <%if yr=4 then%>selected <%end if%>>2004</option>
<option value="2005"<%if yr=5 then%>selected <%end if%>>2005</option>
<option value="2006"<%if yr=6 then%>selected <%end if%>>2006</option>
</select>
年
<select name="monthy" id="select2">
<option value="" selected>请选择</option>
<option value="">-------</option>
<option value="01"<%if mon=1 then%>selected <%end if%>>01</option>
<option value="02"<%if mon=2 then%>selected <%end if%>>02</option>
<option value="03"<%if mon=3 then%>selected <%end if%>>03</option>
<option value="04"<%if mon=4 then%>selected <%end if%>>04</option>
<option value="05"<%if mon=5 then%>selected <%end if%>>05</option>
<option value="06"<%if mon=6 then%>selected <%end if%>>06</option>
<option value="07"<%if mon=7 then%>selected <%end if%>>07</option>
<option value="08"<%if mon=8 then%>selected <%end if%>>08</option>
<option value="09"<%if mon=9 then%>selected <%end if%>>09</option>
<option value="10"<%if mon=10 then%>selected <%end if%>>10</option>
<option value="11"<%if mon=11 then%>selected <%end if%>>11</option>
<option value="12"<%if mon=12 then%>selected <%end if%>>12</option>
</select>
月
<input type="submit" name="submit1" value="查找">
<input name="submit2" type="submit" 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%>&m=<%=mon%>&y=<%=yr%>">首页</a>
<%if cint(AbsolutePage)>1 then%>
<a href="<%=request("script_name")%>?page=<%=AbsolutePage-1%>&m=<%=mon%>&y=<%=yr%>">上一页</a>
<%else%>
上一页
<%end if%>
第<%=AbsolutePage%>页
<%if cint(rs.pagecount)>cint(AbsolutePage) then%>
<a href="<%=request("script_name")%>?page=<%=AbsolutePage+1%>&m=<%=mon%>&y=<%=yr%>">下一页</a>
<%else%>
下一页
<%end if%>
<a href="<%=request("script_name")%>?page=<%=rs.pagecount%>&m=<%=mon%>&y=<%=yr%>>">末页</a>/
<%for i=1 to rs.PageCount
if trim(i)<>trim(AbsolutePage) then%>
<a href="<%=request("script_name")%>?page=<%=i%>&m=<%=mon%>&y=<%=yr%>">[<%=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=772 border=0 align=center cellpadding=6 cellspacing=1 bgcolor=#6595D6>
<tr align="center" bgcolor=#799ae1>
<td width="43" >序号 </td>
<td width="62">药物名称</td>
<td width="39">单位</td>
<td width="61">上月结算</td>
<td width="61">本月进库</td>
<td width="61">本月出库</td>
<td width="62">本月结算</td>
</tr>
<%for i=1 to rs.PageSize
if rs.EOF then
exit for
end if%>
<tr align="center" bgcolor=#D6DFF7>
<td ><%=i%></td>
<td><%=rs("yname")%></td>
<td><%=rs("unit")%></td>
<td><%=rs("lastjs")%></td>
<td><%=rs("j")%></td>
<td><%=rs("c")%></td>
<td><%=rs("js")%></td>
</tr>
<%
rs.movenext
next%>
<% end if%>
</table>
</td>
</tr>
<tr>
<td height="38" align="center"><%if mon=0 then%><font color="red"> 请选择要结算的年份与月份</font><br><%end if%></td>
</tr>
<tr><td>; </td></tr>
<tr>
<td align="center"><!--#include file="foot.asp"--></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -