📄 viewgong.asp
字号:
<%@ LANGUAGE="VBScript"%>
<html>
<head>
<title>查看供应商</title>
<style type="text/css">
<!--
.STYLE2 {font-size: 36px;
font-family: "方正姚体";
color: #0000FF;
}
body { background-image: url(images/1.gif);}
.STYLE6 {font-size: 12px}
-->
</style>
</head>
<body topmargin="0">
<p>
<!--#include file="conn.asp"-->
<!--#include file=function.asp-->
<%
SQL="select * from gongying"
rs.open sql,conn
%>
</p>
<p> </p>
<p><span class="STYLE2">当前供应商信息</span></p>
<p> </p>
<table border='1' width=70% align='center' cellspacing='0' cellpadding='0' bordercolorlight='#000000'bordercolordark='#FFFFFF'>
<tr>
<td align=center bgcolor="#DAF1F0" class="STYLE6"><span class="STYLE6">供应商编号</span></td>
<td align=center bgcolor="#DAF1F0" class="STYLE6"><span class="STYLE6">供应商名称</span></td>
<td align=center bgcolor="#DAF1F0" class="STYLE6"><span class="STYLE6">备注</span></td>
<td align=center bgcolor="#DAF1F0" class="STYLE6"><span class="STYLE6">操作</span></td>
</tr>
<%
rs.movefirst
if not rs.eof then
do while not rs.eof
%>
<tr>
<td align=center class="STYLE6"><%=rs("g_id")%></td>
<td align=center class="STYLE6"><%=rs("gname")%></td>
<td align=center class="STYLE6"><%=rs("memo")%></td>
<td align=center class="STYLE6"><a href=delgong.asp?id=<%=rs("g_id")%>>删除该供应商</a></td>
</tr>
<%
rs.movenext
loop
else
%>
<tr>
<td colspan=4 align=center class="STYLE6">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> </p>
<hr width="800" class="STYLE6">
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -