📄 carrier_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("Findcarrier")
If Key="" Then
Sql="Select * From Carrier"
Else
Sql="Select * From Carrier 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="addcarrier.asp">添加新的配送商</a></b></font></p>
<%
Response.Write"<Br><Br>"
%>
<p align="center"><span lang="zh-cn"><b><a href="carrier_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 border="0" cellpadding="0" cellspacing="0" width="902" 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='carrier_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=Carrier_Manage.Asp?Page=1&Key="+Key+"><Font Class=Ver>首页</Font></A> "
Response.Write "<A Href=Carrier_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=Carrier_Manage.Asp?Page="+Cstr(PageCount+1)+"&Key="+Key+"><Font Class=Ver>下一页</Font></A> "
Response.Write "<A Href=Carrier_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"><b><span lang="zh-cn"><a href="carrier_find.asp">查询</a></span></b><a href="carrier_find.asp"><span lang="zh-cn"><b>配送商</b></span></a><font color="#008000"><b><span lang="zh-cn">
<a href="addcarrier.asp">添加新的配送商</a></span></b></font></p>
<table border="1" cellspacing="1" width="100%" id="AutoNumber1">
<tr>
<td width="9%"><font face="Impact">ID</font></td>
<td width="9%"><font face="Impact">Name</font></td>
<td width="9%"><font face="Impact">Address</font></td>
<td width="9%"><font face="Impact">City</font></td>
<td width="9%"><span lang="zh-cn"><font face="Impact">Regin</font></span></td>
<td width="9%"><font face="Impact">PostalCode</font></td>
<td width="9%"><font face="Impact">Country</font></td>
<td width="9%"><font face="Impact">Phone</font></td>
<td width="9%"><font face="Impact">Fax</font></td>
<td width="9%"><font face="Impact">Email</font></td>
<td width="10%"><b><span lang="zh-cn">编辑/删除</span></b></td>
</tr>
<% Do While Not Rs.Eof %>
<tr>
<td width="9%"><%=Rs("Carrierid")%> </td>
<td width="9%"><%=Rs("CompanyName")%> </td>
<td width="9%"><%=Rs("Address")%> </td>
<td width="9%"><%=Rs("City")%> </td>
<td width="9%"> </td>
<td width="9%"><%=Rs("Postalcode")%> </td>
<td width="9%"><%=Rs("Country")%> </td>
<td width="9%"><%=Rs("Phone")%> </td>
<td width="9%"><%=Rs("Fax")%> </td>
<td width="9%"><%=Rs("Email")%> </td>
<td width="10%"><span lang="zh-cn"></font>【<a href="carrier_edit.asp?searchcarrier=<%=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 align="right"> </p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -