zs.asp

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

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  <script language="javascript">
    function newwin(url){
	  window.open(url,"","width=400,height=380,left=0,top=0,resizable=yes,scrollbars=yes");
	}
  </script>
<%
str1="暂无信息"
str2="药品名称"
set rs=conn.execute("select top 10 * from tb_MedicineName order by Id desc")
if rs.eof then
   response.write str1
else
%>
<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="4">
                <tr>
	            <%
		        i=1
		        do while not rs.eof
		        %>
                   <td><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%><br><br>
	               <%=checklen(rs("yName"))%>
				   </div></td>
		<%
		i=i+1
		if i<>6 and not rs.eof then
		  response.write "<td width=6 background=""images/xs03.gif""></td>"
		end if
		rs.movenext
		if i Mod 6 = 0 then
		    response.write "</tr><tr><td colspan=9><hr size=1 width=100% style=""border:1px;border-color:#A4B077;border-style:dashed""></td></tr><tr>"
		end if
		loop
		rs.close
		%>
	</tr>
</table>
<%end if%>