viewcangku.asp

来自「仓库管理系统」· ASP 代码 · 共 65 行

<%@ LANGUAGE="VBScript"%>
<html>
<head>
<title>查看仓库信息</title>
<style type="text/css">
<!--
.STYLE2 {font-size: 36px;
	font-family: "方正姚体";
	color: #0000FF;}
.STYLE6 {font-size: 12px}
-->
</style>
</head>
<body background="images/1.gif" topmargin="0">
  <!--#include file="conn.asp"-->
  <!--#include file=function.asp-->
  <%
SQL="select * from cangku order by c_id"
rs.open sql,conn
%>
<p>&nbsp;</p>
<p><span class="STYLE2">当前仓库信息</span></p>
<p>&nbsp;</p>
<table width=70% border='1' align='center' cellpadding='0' cellspacing='0' bordercolor="#999900" bordercolorlight='#000000'bordercolordark='#FFFFFF'>
<tr>
 <td align=center bgcolor="#DAF1F0"><font size="2">仓库编号</font></td>
 <td align=center bgcolor="#DAF1F0"><font size="2">仓库名称</font></td>
 <td align=center bgcolor="#DAF1F0"><font size="2">备注</font></td>
  <td align=center bgcolor="#DAF1F0"><font size="2">操作</font></td>
</tr>
<%
rs.movefirst
if not rs.eof then
do while not rs.eof
%>
<tr>
 <td align=center><font size="2"><%=rs("c_id")%></font></td>
 <td align=center><font size="2"><%=rs("cname")%></font></td>
 <td align=center><font size="2"><%=rs("memo")%></font></td>
 <td align=center><font size="2"><a href=delcangku.asp?id=<%=rs("c_id")%>>删除</a></font></td>
</tr>
<%
rs.movenext
loop
else
%>
<tr>
 <td colspan=4 align=center>no</td>
</tr>
<%
end if
rs.close
%>
</table>
<p>
  <% response.write "<p align=center>[<a href='index.asp'><font size=2>返回</font></a> ]<br>"%>
</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<hr width="800" class="STYLE6">

</body>
</html>