⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 gys.asp

📁 系统包括采购管理、销售管理、分销管理、库存管理、财务管理、统计报表、编码管理等功能模块。
💻 ASP
字号:
<%
if request.Cookies("shiwei_username")="" then
%>
<script language="javascript">
top.location.href="../index.asp"
</script>
<%  
  response.end
end if
%>
<!-- #include file="../conn2.asp" -->
<!-- #include file="../const.asp" -->

<html>
<head>
<title><%=dianming%> - 供应商管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
<style>
body {
	background-color:#FFFFFF;
}
</style>
<script>
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
</script>
</HEAD>

<BODY>
<%
if fla10="0" and request.Cookies("shiwei_id")<>"1" then
%>
<br><center><img src="../images/note.gif" align="absmiddle">&nbsp;<font color="#FF0000">你不具备此权限,请与管理员联系!</font></center>
<%  
  response.end
end if
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#C4D8ED">
<tr>
<td><img src="../images/r_1.gif" alt="" /></td>
<td width="100%" background="../images/r_0.gif">
  <table cellpadding="0" cellspacing="0" width="100%">
    <tr>
      <td>&nbsp;供应商管理</td>
	  <td align="right"><%if fla9="1" or request.Cookies("shiwei_id")="1" then%><input type="button" value="添加供应商" onClick="window.location.href='gys_add.asp'" class="button"><%end if%>&nbsp;</td>
    </tr>
  </table>
</td>
<td><img src="../images/r_2.gif" alt="" /></td>
</tr>
<tr>
<td></td>
<td>
<form name="form1" action="gys_del.asp">
<table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1">
  <tr align="center">
    <td class="category" height="30">供应商名称</td>
	<td class="category">联系人</td>
	<td class="category">电话</td>
	<td class="category">地址</td>
	<td class="category">详细交易</td>
    <td class="category">修改</td>
    <td class="category">删除</td>
  </tr>
  <%
  sql="select * from gys order by id desc"
  set rs_gys=conn.execute(sql)
  do while rs_gys.eof=false
  %>
  <tr onMouseOver="this.className='highlight'" onMouseOut="this.className=''" onDblClick="javascript:var win=window.open('gys_show.asp?id=<%=rs_gys("id")%>','详细信息','width=853,height=470,top=176,left=161,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,scrollbars=yes'); win.focus()">
    <td align="center" height="25"><%=rs_gys("company")%></td>
	<td align="center"><%=rs_gys("name")%></td>
	<td align="center"><%=rs_gys("tel")%></td>
	<td align="center"><%=rs_gys("address")%></td>
	<td align="center"><input type="button" value="详细交易" onClick="javascript:var win=window.open('gys_buy.asp?id=<%=rs_gys("id")%>','详细交易','width=853,height=470,top=176,left=161,toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,scrollbars=yes'); win.focus()" class="button"></td>
	<%if fla11="1" or request.Cookies("shiwei_id")="1" then%>
	<td align="center"><a href="gys_modi.asp?id=<%=rs_gys("id")%>"><img src="../images/res.gif" border="0" hspace="2" align="absmiddle">修改</a></td>
	<%end if%>
	<%if fla12="1" or request.Cookies("shiwei_id")="1" then%>
    <td align="center"><input type="checkbox" name="ID" value="<%=rs_gys("id")%>" style="border:0"></td>
	<%end if%>
  </tr>
  <%
    rs_gys.movenext
  loop
  %>
  <tr>
    <td colspan="7" height="30" class="category">
	<table cellpadding=0 cellspacing=0 width="100%">
	<tr>
	<td align="left" style="color:#FF0000;">&nbsp;双击查看详细信息</td>  
	<td align="right">
	<%if fla12="1" or request.Cookies("shiwei_id")="1" then%>
    <input name="chkall" type="checkbox" id="chkall" value="select" onClick="CheckAll(this.form)" style="border:0"> 全选
	<input type="submit" value="删 除" class="button" onClick="return confirm('此操作无法恢复!!!请慎重!!!\n\n确定要删除此供应商吗?')">
	<%end if%>
  </td>
  </tr></table></td></tr>  
</table>
</form>
</td>
<td></td>
</tr>
<tr>
<td><img src="../images/r_4.gif" alt="" /></td>
<td></td>
<td><img src="../images/r_3.gif" alt="" /></td>
</tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -