📄 supplier_manage.asp
字号:
<!-- #include file="admin_protect.inc" -->
<!-- #include file="../opendb.inc" -->
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta Name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta Name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; chaRset=gb2312">
<title>采购商管理页面</title>
</head>
<body>
<script language="JavaScript">
<!--//
function check()
{
if (isnan(go2to.page.value))
alert("请正确填写转到页数！");
else if (go2to.page.value=="")
{
alert("请输入转到页数！");
}
else
go2to.submit();
}
//-->
</script>
<%
'--------------------------------------
%>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open(sqlOpenDB) '打开数据库
Set Rs=Server.CreateObject("ADODB.RecordSet")
Key=Request("Findsupplier")
If Key="" Then
Sql="Select * From Supplier"
Else
Sql="Select * From Supplier Where CompanyName Like '"&Key&"' "
End If
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Response.Write"<br>"
Response.Write"=== 暂无 ==="
%>
<p align="center"><b><font color="#008000"> <a href="addsupplier.asp">添加新的供应商</a></b></font></p>
<%
Response.Write"<br><br>"
%>
<p align="center"><span lang="zh-cn"><b><a href="supplier_manage.asp">返回</a></b></span></p>
<%
Response.End
End If
%>
<%
Rs.PageSize=10
If Not IsEmpty(Request("Page")) Then
PageCount=Cint(Request("Page"))
Else
PageCount=1
End If
If PageCount>Rs.PageCount Or PageCount<=0 Then
PageCount=1
End If
Rs.AbsolutePage=PageCount %>
<table width="902" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" class=ver>
<tr>
<% If Rs.PageCount=1 Then %>
<td height="25" colspan="4" class="ver" width="902"> <font class=ver>共有[<font color="#ff0000"><%=Rs.RecordCount%></font>]用户帐号
以下是[<font color="red">1～<%=Rs.RecordCount%></font>]个 </a></font></td>
</tr>
<tr>
<td height="7" colspan="4" width="902" ></td>
</tr><%else%>
<tr>
<td height="25" colspan="4" width="902" ><font class=ver> <%
Page_Start=(PageCount-1)*Rs.PageSize
If PageCount=1 Then Page_Start=1
Page_End=Rs.PageSize*PageCount
If PageCount*Rs.PageSize=>Rs.RecordCount Then Page_End=Rs.RecordCount End If%>
共有[<font color="#ff0000"><%=Rs.RecordCount%></font>]用户帐号 以下是[<font color="red"><%=page_start%>～<%=page_end%></font>]</font></a></td>
</tr>
<tr>
<td height="25" colspan="4" width="902" > <% Response.Write"<Form Name=Go2To Form Method=Post Action='supplier_Manage.Asp?Key="+Key+"'>"
Response.Write "<Font Color=Ffffff>◆ </font>"
If PageCount=1 Then
Response.Write "<Font Class=Ver>首页 上一页</font> "
Else
Response.Write "<A Href=Supplier_Manage.Asp?Page=1&Key="+Key+"><Font Class=Ver>首页</Font></A> "
Response.Write "<A Href=Supplier_Manage.Asp?Page="+Cstr(PageCount-1)+"&Key="+Key+"><Font Color='0000Be'>??????</Font></A> "
End If
If Rs.PageCount-PageCount<1 Then
Response.Write "<Font Class=Ver>下一页 末页</Font>"
Else
Response.Write "<A Href=Supplier_Manage.Asp?Page="+Cstr(PageCount+1)+"&Key="+Key+"><Font Class=Ver>下一页</Font></A> "
Response.Write "<A Href=Supplier_Manage.Asp?Page="+Cstr(Rs.PageCount)+"&Key="+Key+"><Font Class=Ver>末页</Font></A>"
End If
Response.Write "<Font Class=Ver> 页次:<Font Class=Ver>"&PageCount&"</Font>/"&Rs.PageCount&"页</Font>"
Response.Write "<Font Class=Ver> 转到第<Input Type='text' Name='page' Size=2 Maxlength=3 Style='font-Size: 9Pt; Color:#00006A; Position: Relative; Height: 18' Value="&PageCount&">页</Font> "
Response.Write "<Input Class=Button1 Type='button' Value='确 定' onclick=check() style='font-family: 宋体; font-size: 9pt; color: #000073; position: relative; height: 19'>"
%>
</td>
</tr>
<%End If%>
</table>
<p align="center"><a href="supplier_find.asp"><b><span lang="zh-cn">查询供应商</span></b></a><font color="#008000"><b><span lang="zh-cn">
<a href="addsupplier.asp">添加新的供应商</a></span></b></font></p>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><font color="#FF0000">注意：如需填写详细信息，请重新编辑！</font></td>
</tr>
</table>
<br>
<table width="90%" border="1" align="center" cellspacing="1" id="AutoNumber1">
<tr>
<td width="7%"><font face="Impact">序号</font></td>
<td width="8%"><font face="Impact">姓名</font></td>
<td width="9%"><font face="Impact">地址</font></td>
<td width="9%"><font face="Impact">城市</font></td>
<td width="8%"><font face="Impact">邮编</font></td>
<td width="8%"><font face="Impact">国家</font></td>
<td width="11%"><font face="Impact">电话</font></td>
<td width="7%"><font face="Impact">城市</font></td>
<td width="14%"><font face="Impact">电子邮件</font></td>
<td width="19%"><b><span lang="zh-cn">编辑/删除</span></b></td>
</tr>
<% do while not Rs.eof %>
<tr>
<td width="7%"><%=Rs("SupplierID")%> </td>
<td width="8%"><%=Rs("CompanyName")%> </td>
<td width="9%"><%=Rs("Address")%> </td>
<td width="9%"><%=Rs("City")%> </td>
<td width="8%"><%=Rs("PostalCode")%> </td>
<td width="8%"><%=Rs("Country")%> </td>
<td width="11%"><%=Rs("Phone")%> </td>
<td width="7%"><%=Rs("Fax")%> </td>
<td width="14%"><%=Rs("Email")%> </td>
<td width="19%"><span lang="zh-cn"></font><a href="supplier_edit.asp?SearchSupplier=<%=Rs("CompanyName")%>">【编辑】【删除】</a></span></td>
</tr>
<% i=i+1
Rs.MoveNext
If i>=Rs.PageSize Then Exit Do
Loop
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</table>
<p> </p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -