<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"

zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"
%>
<html>
<head>
<title>药材</title>
<link href="../../css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body >
<table width="212" height="94" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <tr> 
    <td height="30" colspan="2" align="center" valign="top"> 现有药材一览 <a href="javascript:this.location.reload()">刷新</a> 
    </td>
  </tr>
  <tr align="center"> 
    <td nowrap width="97" height="16"> <div align="center">物品名</div></td>
    <td nowrap width="84" height="16"> <div align="center">数量 </div></tr>
  <%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
Response.Expires=0
rs.open "SELECT w6 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
if not(isnull(rs("w6"))) then
data1=split(rs("w6"),";")
data2=UBound(data1)
for y=0 to data2-1
	data3=split(data1(y),"|")
%>
  <tr> 
    <td width="97" height="26"> 
      <div align="center"><font color="#FFFFFF" size="-1"><%=data3(0)%> 
    </font> </div></td>
    <td width="84" height="26"> 
      <div align="center"><font color="#FFFFFF" size="-1"><%=data3(1)%> 
    </font> </div></tr>
  <%
erase data3
next 
erase data1
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
