kexue.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,"<br>","<br>")
   repstr=replace(repstr,"&nbsp;"," ")
  else
   repstr=str1
  end if
end function
%>
  <script language="javascript">
    function newwin(url){
	  window.open(url,"查看详细","width=480,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"> 科学养生</td>
		</tr>
		<tr>
		   <td height="245" align="center" valign="top" bgcolor="#FFFFFF">
		     <table width="100%" border="0" cellpadding="0" cellspacing="0">
             <tr>
               <td width="149" 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="630" height="26" background="images/title_blue_2.gif">&nbsp;</td>
             </tr>
			 <%
				     set rs=conn.execute("select * from tb_Kexue order by idx desc")
					 if rs.eof then
					    response.write "<tr><td colspan=3><br><b><div align=center>暂时还没有相关文章！</div></b></td></tr>"
					 else
					  i=1
					  do while not rs.eof
			 %>
             <tr>
               <td valign="top" height="20" colspan="3" <%if i mod 2 =0 then response.write "bgcolor=#E0F8DE"%>>
				<br>&nbsp;&nbsp;<%=i%>.<a href="#" onclick="return newwin('manage/kexue/kexuelist.asp?idx=<%=rs("idx")%>')"><%=rs("title")%></a>
		       </td>
		     </tr>
			 <%
				rs.movenext
				i=i+1
				loop
				end if
			 %>
			</table>
       </td>
	</tr>
</table>
</div>
<!--#include file="bottom.asp"-->