yaopincx.asp

后台管理 用户名 admin 密码 admin --------------------------------------------------- 功能说明 系统本着简洁实用

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
ch
%>
<%

	
	dim action
	action = request("action")
	if action = "add" then add
	if action = "del" then del
	if action = "upok" then upok
	
	

	

sub add() 
	
	key = request("id")
	
	
	sqlstr = "select * from [药品信息,库存数据]"
	dbo.getsql = sqlstr
	set rs = dbo.getrs1()
	 'rs.Filter = "编号 = '" &key& "'" 
    If not rs.EOF  then      
	
	rs("库存") = CInt(rs("库存")) + CInt(trim(request.form("inn")))
	rs.update
	
	else
	
	sqlstr = "select * from [药品信息,库存数据]"
	dbo.getsql = sqlstr
	set rs = dbo.getrs1()
	rs.AddNew        
	
	rs("编号") = trim(request.form("name"))
	rs("库存") = trim(request.form("inn"))
	rs.update
	
	end if
	
	response.Redirect("yaopincx.asp")
end sub


sub upok()
	id = request("id")
	sqlstr = "select * from 库存数据 where 编号='"&id&"'"
	dbo.getsql = sqlstr
	set rs = dbo.getrs1()
	

	rs("下限") = trim(request.form("xiaxian"))

	rs.update
	response.Redirect("yaopincx.asp")
end sub
%>



<table border="0" cellspacing="1" cellpadding="0" height="0" align=center width="98%" bgcolor="#183789">
  <tr>
  <td>
   <table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
  <tr>
 <td height=15  align=center colspan=15 class=classtop>　</td>
</tr>
<form name=form2 method=post action=index.asp>
<tr >
<td class="classtd" align="center" colspan=2>库存总额：<strong><font color=red>
<%Set rs=conn.execute("select 库存数据.编号,库存数据.库存,药品信息.进价 from [库存数据,药品信息] where 库存数据.编号=药品信息.编号")
  If rs.eof Then 
        sumprice="0"
  Else
        Do While Not rs.eof 
		sumprice=sumprice+(rs("药品信息进价")*rs("库存数据.库存"))
		rs.movenext
		Loop
		End If 
		rs.close:Set rs=Nothing 
		response.write FormatNumber(sumprice,2)
%>	元</font></strong>
</td>
<td  align="center">
</td>
<td class="classtd" colspan="5" align=right>&nbsp;&nbsp;&nbsp;&nbsp;检索关键词： 
<input name="gjc" size="25" class=form>
&nbsp;&nbsp;&nbsp;&nbsp; 
<input type=submit name=tiaojian value=" 查 询 " class=button>&nbsp;&nbsp;</td>
</tr></form>
</table>
   <table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
<%
zhlei=replace(request("zhlei"),"'","’")
gjc=replace(request("gjc"),"'","’")
set rs=server.CreateObject("adodb.recordset")
sql="select * from 56770_product where p_name<>''"
if zhlei<>"0" And zhlei<>"" then sql=sql&" and p_sort like '%"&zhlei&"%'"
If gjc<>"" Then sql=sql&" and (p_name like '%"&gjc&"%' or p_bianma like '%"&gjc&"%' or p_chandi like '%"&gjc&"%' or p_guige like '%"&gjc&"%' or p_price like '%"&gjc&"%' or p_yaochang like '%"&gjc&"%' or p_jinhuoshang like '%"&gjc&"%')"
sql=sql&" order by p_id desc"
'response.write sql
rs.open sql,conn, 1, 1
%>
<tr class=classtop1>
<td  height="15" align="center" width="15%">编码</td>
<td  height="15" align="center" width="10%">品名</td>
<td  height="15" align="center" width="6%">种类</td>
<td  height="15" align="center" width="6%">库存</td>
<td  height="15" align="center" width="5%">下限</td>
<td  height="15" align="center" width="5%">售价</td>
<td  height="15" align="center" width="6%">进价</td>
<td  height="15" align="center" width="6%">厂家</td>
</tr>
<%if rs.eof and rs.bof then
response.write "还没有数据，请添加！"
Else
if not isempty(request("page")) then   
pagecount=cint(request("page"))   
else   
pagecount=1
end if
rs.pagesize=20
rs.AbsolutePage=pagecount
        do while not rs.eof%>
<tr>
<form name="form1" method="post" action='index.asp?action=update&s_id=<%=rs("p_id")%>'>
<td class="classtd" id=tag<%=rs("p_id")%> style='CURSOR: hand' onclick=turnit(Content<%=rs("p_id")%>,tag<%=rs("p_id")%>);  language=JScript>
<img src=database/images/+.gif>
<%=Replace(rs("p_name"),gjc,"<font color=red>"&gjc&"</font>")%>
</td>
<td class="classtd">
<%=Replace(rs("p_bianma"),gjc,"<font color=red>"&gjc&"</font>")%>
</td>
<td class="classtd" align="center" >
<%=rs("p_sort")%>
</td>
<td class="classtd" align="center">
<%=Replace(rs("p_guige"),gjc,"<font color=red>"&gjc&"</font>")%>
</td>
<td class="classtd" align="center" >
<%=rs("p_danwei")%>
</td>
<td class="classtd" align="center">
<%=Replace(rs("p_chandi"),gjc,"<font color=red>"&gjc&"</font>")%>
</td>
<td class="classtd" align="center">
<%=Replace(FormatNumber(rs("p_price"),2),gjc,"<font color=red>"&gjc&"</font>")%>
</td>
<td class="classtd" align="center">
<strong><%=FormatNumber(rs("p_pfprice"),2)%></strong>
</td>
<td class="classtd" align="center">
<%=FormatNumber(rs("p_cbprice"),2)%>
</td>
<td class="classtd" align="center">
<%=rs("p_count")%>
</td>
<td class="classtd" align="center">
<%=rs("p_kucun")%>
</td>
<td class="classtd" align="center">
<%=Replace(rs("p_jinhuoshang"),gjc,"<font color=red>"&gjc&"</font>")%>
</td>
<td class="classtd"> <%=rs("p_yaochang")%>
</td>

</tr>
</form>
<%
rs.movenext
i=i+1                                                                     
if i>=rs.pagesize then exit do                                                           
loop
%>
<form action="index.asp?gjc=<%=gjc%>&种类=<%=zhlei%>" method="post">
<tr class=classfooter><td height="25" align="center" colspan=15>
        <div align="center"> 共有数据 <b><%=rs.recordcount%></b> 条, 页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>,  
          当前从第  
          <%
           if pagecount<=1 then
           response.write "<font color=red>1</font>"
           else
           response.write "<font color=red>" & pagecount*rs.pagesize-rs.pagesize+1 & "</font>"
           end if
          %>
          条开始。  
          <% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
          <a href="?gjc=<%=gjc%>&种类=<%=zhlei%>&page=<%=cstr(pagecount+1)%>">下一页</a>  
          <% end if %> 
          <% if rs.pagecount>1 and rs.pagecount=pagecount then %> 
          <a href="?gjc=<%=gjc%>&种类=<%=zhlei%>&page=<%=cstr(pagecount-1)%>">上一页</a>  
          <%end if%> 
          <% if pagecount<>1 and rs.pagecount<>pagecount then%> 
          <a href="?gjc=<%=gjc%>&种类=<%=zhlei%>&page=<%=cstr(pagecount-1)%>">上一页</a> <a href="?gjc=<%=gjc%>&种类=<%=zhlei%>&page=<%=cstr(pagecount+1)%>">下一页</a>  
          <% end if%> 
          &nbsp; 直接到第  
          <select name="page">
          <%for i=1 to rs.pagecount%>
          <option value="<%=i%>"><%=i%></option>
          <%next%>
          </select>页  
          <input type="submit" name="go" value="跳转" class=button>
        </div>
      </td>
    </form>
  </tr>
<%
End If 
rs.close
set rs=Nothing
%>
</table>
</td></tr>
</table>
<%'end if%>