开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
query.asp
资源名称：56770yaopin.rar　[点击查看]
上传用户：feitengda
上传日期：2022-07-20
资源大小：73k
文件大小：10k
源码类别：

企业管理

开发平台：

ASP/ASPX

query.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <%
  3. On Error Resume next
  4. response.charset="GB2312"
  5. session.codepage=936
  6. call admintop()
  7. %>
  8. <SCRIPT LANGUAGE=javascript>
  9. var tt='start';
  10. var ii='start';
  11. function turnit(ss,bb) {
  13.   if (ss.style.display=="none") {
  14.     if(tt!='start') tt.style.display="none";
  15.     if(ii!='start') ii.src="";
  16.     ss.style.display="";
  17.     tt=ss;
  18.     ii=bb;
  19.     bb.src="";
  20.   }
  21.   else {
  22.     ss.style.display="none"; 
  23.     bb.src="";
  24.   }
  25. }
  26. </SCRIPT>
  27. <table border="0" cellspacing="1" cellpadding="0" height="0" align=center width="98%" bgcolor="#183789">
  28.   <tr>
  29.   <td>
  30.    <table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
  31.   <tr>
  32.  <td height=15  align=center colspan=15 class=classtop>56770 药品管理系统</td>
  33. </tr>
  34. <form name=form2 method=post action=query.asp>
  35. <tr >
  36. <td class="classtd" align="center" colspan=2>库存总额：<strong><font color=red>
  37. <%Set rs=conn.execute("select p_cbprice,p_kucun from [56770_product]")
  38.   If rs.eof Then 
  39.         sumprice="0"
  40.   Else
  41.         Do While Not rs.eof 
  42. sumprice=sumprice+(rs("p_cbprice")*rs("p_kucun"))
  43. rs.movenext
  44. Loop
  45. End If 
  46. rs.close:Set rs=Nothing 
  47. response.write FormatNumber(sumprice,2)
  48. %> 元</font></strong>
  49. </td>
  50. <td class="classtd" align="center">
  51. <select name="anclassid" onChange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
  52.           <option selected>--快速跳转--</option>
  53.   <option value=index.asp>返回首页</option>
  54.   <option value=query.asp>查看全部销售药品</option>
  55.   <option value=?s_type=1>查看今日销售药品</option>
  56.           <%set rs=conn.execute("select s_id,s_name from [56770_sort] order by s_paixu desc")
  57.            if not rs.eof then
  58.            do while not rs.eof 
  59.           %>
  60.           <!--<option value="?s_name=<%=server.urlencode(Trim(rs("s_name")))%>"><%=rs("s_name")%></option>-->
  61.           <%rs.movenext
  62.             loop
  63.             end if 
  64.             rs.close:set rs=nothing
  65.          %>
  66.         </select></td>
  67. <td class="classtd" colspan="5" align=right>分类：  
  68. <select name=s_name style="height:18px;">
  69. <option value="0">全部分类</option>
  70. <%set rs=conn.execute("select s_id,s_name from [56770_sort] order by s_paixu desc")
  71.            if not rs.eof then
  72.            do while not rs.eof 
  73.           %>
  74.           <option value="<%=Trim(rs("s_name"))%>"><%=rs("s_name")%></option>
  75.           <%rs.movenext
  76.             loop
  77.             end if 
  78.             rs.close:set rs=nothing
  79.          %></select>&nbsp;&nbsp;
  80.  <select name="p_year"><option value="2006">2006</option><option value="2007">2007</option><option value="2008">2008</option></select>年
  81. <select name="p_mon"><option value="1">1</option><option value="2">2</option><option value="3">3</option><option value="4">4</option><option value="5">5</option><option value="6">6</option><option value="7">7</option><option value="8">8</option><option value="9">9</option><option value="10">10</option><option value="11">11</option><option value="12">12</option></select>月
  82. <select name="p_day"><option value="1">1</option><option value="2">2</option><option value="3">3</option><option value="4">4</option><option value="5">5</option><option value="6">6</option><option value="7">7</option><option value="8">8</option><option value="9">9</option><option value="10">10</option><option value="11">11</option><option value="12">12</option><option value="13">13</option><option value="14">14</option><option value="15">15</option><option value="16">16</option><option value="17">17</option><option value="18">18</option><option value="19">19</option><option value="20">20</option><option value="21">21</option><option value="22">22</option><option value="23">23</option><option value="24">24</option><option value="25">25</option><option value="26">26</option><option value="27">27</option><option value="28">28</option><option value="29">29</option><option value="30">30</option><option value="31">31</option></select>日--
  83. <select name="p_year_1"><option value="2006">2006</option><option value="2007">2007</option><option value="2008">2008</option></select>年
  84. <select name="p_mon_1"><option value="1">1</option><option value="2">2</option><option value="3">3</option><option value="4">4</option><option value="5">5</option><option value="6">6</option><option value="7">7</option><option value="8">8</option><option value="9">9</option><option value="10">10</option><option value="11">11</option><option value="12">12</option></select>月
  85. <select name="p_day_1"><option value="1">1</option><option value="2">2</option><option value="3">3</option><option value="4">4</option><option value="5">5</option><option value="6">6</option><option value="7">7</option><option value="8">8</option><option value="9">9</option><option value="10">10</option><option value="11">11</option><option value="12">12</option><option value="13">13</option><option value="14">14</option><option value="15">15</option><option value="16">16</option><option value="17">17</option><option value="18">18</option><option value="19">19</option><option value="20">20</option><option value="21">21</option><option value="22">22</option><option value="23">23</option><option value="24">24</option><option value="25">25</option><option value="26">26</option><option value="27">27</option><option value="28">28</option><option value="29">29</option><option value="30">30</option><option value="31">31</option></select>日
  86. 关键词：<input name="gjc" size="15" class=form>
  87. <input type="hidden" name="s_type1" value="1">
  88. <input type=submit name=tiaojian value=" 查 询 " class=button>&nbsp;&nbsp;</td>
  89. </tr></form>
  90. </table>
  91.    <table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
  92. <%
  93. p_year=request("p_year")
  94. p_mon=request("p_mon")
  95. p_day=request("p_day")
  96. p_year_1=request("p_year_1")
  97. p_mon_1=request("p_mon_1")
  98. p_day_1=request("p_day_1")
  99. qishi="0:00:00"
  100. p_day1=p_year&"-"&p_mon&"-"&p_day&" "&qishi
  101. p_day2=p_year_1&"-"&p_mon_1&"-"&p_day_1&" "&qishi
  102. s_sj=replace(request("s_sj"),"'","’")
  103. gjc=replace(request("gjc"),"'","’")
  104. s_type=request("s_type")
  105. s_type1=request("s_type1")
  106. day1=now()
  107. set rs=server.CreateObject("adodb.recordset")
  108. sql="select * from [56770_pro_log] where p_name<>''"
  109. If gjc<>"" Then sql=sql&" and p_name like '%"&gjc&"%'"
  110. If s_type="" And s_type1<>"" Then sql=sql&" and "&p_day1&">p_sj and p_sj<"&p_day2&""
  111. If s_type<>"" Then sql=sql&" and datediff('h',day1,p_sj)<24"
  112. sql=sql&" order by p_l_id desc"
  113. 'response.write sql
  114. rs.open sql,conn, 1, 1
  115. %>
  116. <tr class=classtop1>
  117. <td  height="15" align="center" width="40%"><img src=database/images/t1.gif>品名</td>
  118. <td  height="15" align="center" width="15%">类别</td>
  119. <td  height="15" align="center" width="10%">销售价</td>
  120. <td  height="15" align="center" width="5%">成本价</td>
  121. <td  height="15" align="center" width="5%">数量</td>
  122. <td  height="15" align="center" width="15%">日期</td>
  124. </tr>
  125. <%if rs.eof and rs.bof then
  126. response.write "还没有数据，请添加！"
  127. Else
  128. if not isempty(request("page")) then   
  129. pagecount=cint(request("page"))   
  130. else   
  131. pagecount=1
  132. end if
  133. rs.pagesize=10
  134. rs.AbsolutePage=pagecount
  135.         do while not rs.eof%>
  136. <tr>
  137. <td class="classtd" id=tag<%=rs("p_l_id")%> style='CURSOR: hand' onclick=turnit(Content<%=rs("p_l_id")%>,tag<%=rs("p_l_id")%>);  language=JScript>
  138. <img src=database/images/+.gif>
  139. <%=Replace(rs("p_name"),gjc,"<font color=red>"&gjc&"</font>")%>
  140. </td>
  141. <td class="classtd" align="center" >
  142. <%=rs("p_sort")%>
  143. </td>
  144. <td class="classtd" align="center">
  145. <%=Replace(FormatNumber(rs("p_price"),2),gjc,"<font color=red>"&gjc&"</font>")%>
  146. </td>
  147. <td class="classtd" align="center">
  148. <%=FormatNumber(rs("p_cbprice"),2)%>
  149. </td>
  150. <td class="classtd" align="center">
  151. <%=rs("p_count")%>
  152. </td>
  153. <td class="classtd"> <%=rs("p_sj")%>
  154. </td>
  156. </tr>
  157. <tr>
  158. <td colspan="6" align="right" height="25" id=Content<%=rs("p_l_id")%> style='DISPLAY: none'>
  159. <table>
  160. <tr><td width="60%">销售总额：<%=formatnumber(rs("p_cbprice"),2)%>×<%=rs("p_count")%>=<%=formatnumber(rs("p_cbprice")*rs("p_count"),2)%></td>
  161. <td width="40%" align="center">
  162. 利润：<%=formatnumber((rs("p_cbprice")-rs("p_price"))*rs("p_count"),2)%>
  163. </td></tr>
  164. </table>
  165. </td>
  166. </tr>
  167. <%
  168. rs.movenext
  169. i=i+1                                                                     
  170. if i>=rs.pagesize then exit do                                                           
  171. loop
  172. %>
  173. <form action="index.asp" method="post">
  174. <tr class=classfooter><td height="25" align="center" colspan=6>
  175.         <div align="center"> 共有数据 <b><%=rs.recordcount%></b> 条, 页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>, 
  176.           当前从第 
  177.           <%
  178.            if pagecount<=1 then
  179.            response.write "<font color=red>1</font>"
  180.            else
  181.            response.write "<font color=red>" & pagecount*rs.pagesize-rs.pagesize+1 & "</font>"
  182.            end if
  183.           %>
  184.           条开始。 
  185.           <% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
  186.           <a href="?page=<%=cstr(pagecount+1)%>">下一页</a> 
  187.           <% end if %>
  188.           <% if rs.pagecount>1 and rs.pagecount=pagecount then %>
  189.           <a href="?page=<%=cstr(pagecount-1)%>">上一页</a> 
  190.           <%end if%>
  191.           <% if pagecount<>1 and rs.pagecount<>pagecount then%>
  192.           <a href="?page=<%=cstr(pagecount-1)%>">上一页</a> <a href="?page=<%=cstr(pagecount+1)%>">下一页</a> 
  193.           <% end if%>
  194.           &nbsp; 直接到第 
  195.           <select name="page">
  196.           <%for i=1 to rs.pagecount%>
  197.           <option value="<%=i%>"><%=i%></option>
  198.           <%next%>
  199.           </select>页 
  200.           <input type="submit" name="go" value="跳转" class=button>
  201.         </div>
  202.       </td>
  203.     </form>
  204.   </tr>
  205. <%
  206. End If 
  207. rs.close
  208. set rs=Nothing
  209. %>
  210. <tr><td align=center height=25 colspan=15>[<a href="admin/default.asp">系统管理</a>]</td></tr>
  211. </table>
  212. </td></tr>
  213. </table>