show.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<!--#include file="top1.asp"-->
<!--#include virtual="manage/include/conn.asp"-->
<%
Response.CharSet="GB2312" 
Response.ContentType="text/html" 
function repstr(str)
  if not isNull(str) or len(str)>0 then
   repstr=replace(str,"&nbsp;"," ")
  else
   repstr=str1
  end if
end function
%>
  <script language="javascript">
    function newwin(url){
	  window.open(url,"查看详细","width=400,height=310,left=0,top=0,resizable=yes,scrollbars=yes");
	}
  </script>
<div align="center">
    <table border="0" cellpadding="0" cellspacing="0" width="799" bgcolor="#A4B077">
	    <tr>
		    <td height="20" valign="bottom" bgcolor="#FFFFFF"><img src="images/blue_dian.gif" width="5" height="8"> 当前位置：<a href="index.asp">首页</a> <img src="images/iconarrow3.gif"> 药品展示
		      <%
			if request.QueryString("TypeId")<>"" then
			  set rs=conn.execute("select * from tb_MedicineType where TypeId="&request("TypeId"))
			      response.write " <img src=""images/iconarrow3.gif""> "&rs(1)
			  rs.close
			end if
			%></td>
		</tr>
		<tr>
		   <td height="245" align="center" valign="top" bgcolor="#FFFFFF">
		     <table width="100%" border="0" cellpadding="0" cellspacing="0">
			    <tr>
				    <td width="118" valign="bottom" background="images/title_blue.gif">　　　　<span style="color: #FFFFFF; font-weight: bold;">药品分类</span></td>
					<td width="18" valign="top" background="images/title_blue_1.gif">&nbsp;</td>
					<td width="662" height="26" background="images/title_blue_2.gif">&nbsp;</td>
				</tr>
			    <tr>
			      <td colspan="2" valign="top"><table width="93%"  border="1" cellpadding="0" cellspacing="0" bordercolordark="#A4B077">
                    <tr>
                      <td nowrap>
                        <table width="98%" border="0" cellpadding="4" cellspacing="0">
                          <%
							   set rs=conn.execute("select * from tb_MedicineType order by TypeId")
							   do while not rs.eof
							   %>
                          <tr>
                            <td align="left" height="40"> &nbsp;&nbsp;<IMG src="images/blue_dian.gif"><a href="show.asp?TypeId=<%=rs("TypeId")%>"> <%=rs("TypeName")%></a> </td>
                          </tr>
                          <%
							   rs.movenext
							   loop
							   rs.close
							   %>
                      </table></td>
                    </tr>
                  </table></td>
			      <td valign="top">
				   <%
				   if request("TypeId")<>"" then
				     rs.open "select * from tb_MedicineName where TypeId="&request("TypeId"),conn,3,3
					 if rs.eof then
					    response.write "<br><b><div align=center>该类还没有药品</div></b>"
					 else
					 rs.pagesize=2
					 page=clng(request.QueryString("page"))
					 if page<1 or page="" then page=1
					 if page>rs.pagecount then page=rs.pagecount
					 rs.Absolutepage=page
					  %>
<table border="0" cellpadding="4" cellspacing="4" width="592">
    <tr>
	    <%
		i=1
		for i=1 to rs.pagesize
		%>
		<td width="576">
<table width="95%"  border="0" align="center" cellpadding="1" cellspacing="0">
  <tr>
    <td width="25%" rowspan="4" valign="top">
    <div align="center">
	<%if len(rs("img"))>0 then%>
	    <img src="manage/goods/goodspic/<%=rs("img")%>" width="50" height="50" onClick="newwin('manage/goods/look.asp?Id=<%=rs("Id")%>')"  style="cursor:hand">
	<%else%>
	    <img src="images/nopic.gif" width="50" height="50" onClick="newwin('manage/goods/look.asp?Id=<%=rs("Id")%>')" style="cursor:hand">
	<%end if%>
	</div>
    </td>
    <td width="98%" style="word-break:break_all"><b>[药品名称]</b>&nbsp;<%=rs("yName")%></td>
  </tr>
  <tr>
    <td style="word-break:break_all"><b>[规 格]</b>&nbsp;<%=rs("Mode1")%></td>
  </tr>
  <tr>
    <td style="word-break:break_all"><b>[适应症]</b>&nbsp;<%=repstr(rs("fortill"))%></td>
  </tr>
  <tr>
    <td align="right"><input type="button" value="查看详细" onClick="newwin('manage/goods/look.asp?Id=<%=rs("Id")%>')" style="border:1px solid;border-color:000000;background-color:ffffff;"></td>
  </tr>
</table>
		</td>
		<%
		if i mod 2 <> 0 then
		  response.write "<td width=2 background=""images/xs03.gif""></td>"
		end if
		rs.movenext
		if i Mod 2 = 0 then
		    response.write "</tr><tr>"
		end if
		if rs.eof then exit for
		next
		%>
	</tr>
</table><br><br>
<table border="0" width="100%">
   <tr>
       <td align="right">
	       <%
		   response.write "该类共包含<font color=red>"&rs.recordcount&"</font>个药品　<font color=red>"&rs.pagesize&"</font>个/页　　当前页：<font color=red>"&page&"</font>/"&rs.pagecount
		   if page>1 then
		   %>
			 <a href=show.asp?page=1>首页</a>　<a href=show.asp?page=<%=(page-1)%>>上一页</a>
		   <%
		   end if
		   if page<rs.pagecount then
		    response.write " <a href=show.asp?TypeId="&rs("TypeId")&"&page="&(page+1)&">下一页</a>　<a href=show.asp?TypeId="&rs("TypeId")&"&page="&rs.pagecount&">最后一页</a>" 
		   end if
		   %>
	   </td>
   </tr>
</table>
<%
  end if
else
    set rs1=conn.execute("select min(TypeId) from tb_MedicineName")
	rs.open "select * from tb_MedicineName where TypeId="&rs1(0),conn,3,3
	if rs.eof then
	  response.write "<br><b><div align=center>请选择其他类</div></b>"
	else
	                 rs.pagesize=2
					 page=clng(request.QueryString("page"))
					 if page<1 or page="" then page=1
					 if page>rs.pagecount then page=rs.pagecount
					 rs.Absolutepage=page
%>
<table border="0" cellpadding="4" cellspacing="4" width="592">
    <tr>
	    <%
		i=1
		for i=1 to rs.pagesize
		%>
		<td width="576">
<table width="95%"  border="0" align="center" cellpadding="1" cellspacing="0">
  <tr>
    <td width="25%" rowspan="4" valign="top">
    <div align="center">
	<%if len(rs("img"))>0 then%>
	    <img src="manage/goods/goodspic/<%=rs("img")%>" width="50" height="50" onClick="newwin('manage/goods/look.asp?Id=<%=rs("Id")%>')"  style="cursor:hand">
	<%else%>
	    <img src="images/nopic.gif" width="50" height="50" onClick="newwin('manage/goods/look.asp?Id=<%=rs("Id")%>')" style="cursor:hand">
	<%end if%>
	</div>
    </td>
    <td width="98%" style="word-break:break_all"><b>[药品名称]</b>&nbsp;<%=rs("yName")%></td>
  </tr>
  <tr>
    <td style="word-break:break_all"><b>[规 格]</b>&nbsp;<%=rs("Mode1")%></td>
  </tr>
  <tr>
    <td style="word-break:break_all"><b>[适应症]</b>&nbsp;<%=repstr(rs("fortill"))%></td>
  </tr>
  <tr>
    <td align="right"><input type="button" value="查看详细" onClick="newwin('manage/goods/look.asp?Id=<%=rs("Id")%>')" style="border:1px solid;border-color:000000;background-color:ffffff;padding-top:1px;padding-bottom:1px"></td>
  </tr>
</table>
		</td>
		<%
		if i mod 2 <> 0 then
		  response.write "<td width=2 background=""images/xs03.gif""></td>"
		end if
		rs.movenext
		if i Mod 2 = 0 then
		    response.write "</tr><tr>"
		end if
		if rs.eof then exit for
		next
		%>
	</tr>
</table>
<table border="0" width="100%">
   <tr>
       <td align="right">
	       <%
		   response.write "该类共包含<font color=red>"&rs.recordcount&"</font>个药品　<font color=red>"&rs.pagesize&"</font>个/页　　当前页：<font color=red>"&page&"</font>/"&rs.pagecount
		   if page>1 then
		   %>
			 <a href=show.asp?page=1>首页</a>　<a href=show.asp?page=<%=(page-1)%>>上一页</a>
		   <%
		   end if
		   if page<rs.pagecount then
		    response.write " <a href=show.asp?page="&(page+1)&">下一页</a>　<a href=show.asp?page="&rs.pagecount&">最后一页</a>" 
		   end if
		   %>
	   </td>
   </tr>
</table>
<%
end if
end if
%>				  </td>
		       </tr>
		  </table>	      </td>
		</tr>
  </table>
</div>
<!--#include file="bottom.asp"-->