tj.asp

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

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
str1="暂无信息"
str2="药品名称"
str3="规格"
str4="适应症"
str5="详细说明-->"
set rs=conn.execute("select * from tb_MedicineName where Grade=1")
function repstr(str)
  if not isNull(str) or len(str)>0 then
   repstr=replace(str,"<br>","<br>")
   repstr=replace(repstr,"&nbsp;"," ")
  else
   repstr=str1
  end if
end function
function checklen(str)
 if len(str)>10 then
   response.write left(str,10)&"..."
 else
   response.write str
 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>
<table border="0" cellpadding="4" cellspacing="8" width="100%">
    <tr>
	    <%
		i=0
		do while not rs.eof
		%>
		<td>
<table width="96%"  border="0" align="center" cellpadding="2" cellspacing="4">
  <tr>
    <td width="25%" rowspan="4" valign="top"><div align="center"></div>
    <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>
    <div align="left"></div></td>
    <td width="75%" style="word-break:break_all"><%=str2%>：<%=checklen(rs("yName"))%></td>
  </tr>
  <tr>
    <td style="word-break:break_all"><%=str3%>：<%=checklen(rs("Mode1"))%></td>
  </tr>
  <tr>
    <td style="word-break:break_all"><%=str4%>：<%=checklen(repstr(rs("fortill")))%></td>
  </tr>
  <tr>
    <td align="right"><input type="button" value="<%=str5%>" 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
		i=i+1
		if i Mod 2 = 0 then
		    response.write "</tr><tr>"
		end if
		if i>3 then exit do
		loop
		rs.close
		%>
	</tr>
</table>