📄 warehouse_list.asp
字号:
<%@ Language=VBScript %>
<%
if Session("Gs_StaffID")="" then
Response.Write "网页已过期，请重试！"
Response.End
end if
'数据库连接
dim DBconn
set DBconn=server.CreateObject("ADODB.Connection")
DBconn.Open Application("Connection2_ConnectionString")
if Session("Gs_StafferType")="区域职工" then
Response.Write "错误的登录用户，请以总部职工帐号登录."
Response.End
end if
'取得数据
set Rswhs=server.CreateObject ("ADODB.Recordset")
rswhs.CursorLocation=3
Sql="select whs_id,whs_name,whs_addr,whs_telephone,whs_zipcode from Basic_warehouse order by whs_id DESC "
Rswhs.Open Sql,DBconn,2
%>
<HTML>
<HEAD>
<TITLE>库房维护</TITLE>
</HEAD>
<BODY>
<form action="warehouse_del.asp" method=post id=form1 name=frm_del>
<FONT size=5>仓库维护>>已有仓库列表</FONT>
<table width=700 border="0" height="300">
<tr height="280" >
<td valign="top" align="left">
<%
' 输出表头
Response.Write "<table border=1><tr>"
Response.Write "<td> </td>"
Response.Write "<td>仓库代码</td>"
Response.Write "<td>仓库名称</td>"
Response.Write "<td>仓库地址</td>"
Response.Write "<td>联系电话</td>"
Response.Write "<td>邮政编码</td>"
Response.Write "<td>修改</td>"
Response.Write "</tr>"
if Rswhs.EOF then
Response.Write ("没有任何数据！")
%>
<INPUT type="button" value="增加" id=button1 name=button1 onclick='window.location="warehouse_new.asp"'>
<%else
'获得要查询的页码
rswhs.PageSize =2
Page = CLng(Request("Page")) 'string型转化为long型
If Page < 1 Then Page = 1
'显示数据
Rswhs.AbsolutePage=page
for Lpage=1 to rswhs.PageSize
Response.Write "<tr><td><INPUT type=checkbox id=checkbox1 name=tstr_whs_id value="&Rswhs("whs_id")&"></td>"
Response.Write "<td> " & Rswhs("whs_id") & "</td>"
Response.Write "<td> " & Rswhs("whs_name") & "</td>"
Response.Write "<td> " & Rswhs("whs_addr") & "</td>"
Response.Write "<td> " & Rswhs("whs_telephone") & "</td>"
Response.Write "<td> " & Rswhs("whs_zipcode") & "</td>"
Response.Write "<td>" & "<a href=warehouse_modify.asp?tedit_whs_id="& rswhs("whs_id") &">修改</a>" & "</td>"
Response.Write "</tr>"
Rswhs.MoveNext
if Rswhs.EOF then exit for
next
Response.Write "</table>"
%></td>
</tr>
<tr height="20">
<td >
<INPUT type="button" value="增加" id=button1 name=button1 onclick='window.location="warehouse_new.asp"'>
<INPUT type="submit" value="删除" id=button2 onsubmit='return frm_check'>
<%
If Page <> 1 and rswhs.PageCount<>0 Then
If Page <> Rswhs.PageCount Then%>
<a href="warehouse_list.asp?page=1">首页</a>
<a href="warehouse_list.asp?page=<%=page-1%>">上一页</a>
<a href="warehouse_list.asp?page=<%=page+1%>">下一页</a>
<a href="warehouse_list.asp?page=<%=Rswhs.pagecount%>">末页</a>
<%else%>
<a href="warehouse_list.asp?page=1">首页</a>
<a href="warehouse_list.asp?page=<%=page-1%>">上一页</a>
下一页
末页
<%End If
else%>
<%
If Rswhs.PageCount = 1 or Rswhs.PageCount=0 Then
%>
首页 上一页 下一页 末页
<%else%>
首页 上一页
<a href="warehouse_list.asp?page=<%=page+1%>">下一页</a>
<a href="warehouse_list.asp?page=<%=Rswhs.pagecount%>">末页</a>
<%
End If
End If
%>
<%if rswhs.PageCount=0 then%>
第一页，共一页
<%else%>
第<%=page%>页,共<%=Rswhs.PageCount%>页
<%end if %>
<%end if%>
</td>
</tr>
</table>
</form>
<%
DBconn.Close
set DBconn=nothing
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -