📄 main_bcht.asp
字号:
<!--#include file="css.asp"-->
<!--#include file="conn.asp"-->
<%
strUSN=Session("usn")
strPWD=Session("pwd")
strisAdmin=Session("isadmin")
strInfo=Trim(Request.QueryString("id"))
strMP=Trim(Request.QueryString("MP"))
'Response.Write strMP
pageNo=Trim(Request.QueryString("pageNo"))
if pageNo="" then
pageNo=1
else
if isnumeric(pageNo) then
if pageNo<=strMP then
pageNo=Cint(pageNo)
else
pageNo=1
end if
else
pageNo=1
end if
end if
%>
<body bgcolor=#0066FF>
<form action="main_BCHT.asp" ID="Form1">
<table width=100% cellpadding=0 bordercolordark='#FFFFFF' cellspacing=0 cellpadding=1 border=1 bordercolorlight=darkblue ID="Table1">
<tr bgcolor=#000099>
<td align=center><font size=2 color=white>自动编号</font></td>
<td align=center><font size=2 color=white>客户编号</font></td>
<td align=center colspan=2><font size=2 color=white>中心地址</font></td>
<td align=center><font size=2 color=white>申请人</font></td>
<td align=center><font size=2 color=white>申请日期</font></td>
<td align=center><font size=2 color=white>型号</font></td>
<td align=center><font size=2 color=white>特价</font></td>
<td align=center><font size=2 color=white>限量</font></td>
<%
if strisAdmin="T" then
%>
<td align=center colspan=3><font size=2 color=white>操作</font></td>
<%
end if
%>
</tr>
<%
if strUSN<>"" and strPWD<>"" then
'=============================================
strSQL="Select * from BCHT Where KHBH='" & Trim(strInfo) & "'"
'Response.Write strSQL
'=============================================
set ers=Server.CreateObject("ADODB.RECORDSET")
ers.Open strsql,con,1,3
MaxPage=ers.RecordCount\20 + 1
MaxRecordNum=ers.RecordCount
StartRec=20*(pageNo-1)+1 '记录每页开始的记录数
'response.Write startRec
EndRec=StartRec + 19 '记录每页结束的记录数
Icount=0
do while ((not ers.EOF) and (Icount< EndRec))
Icount=Icount+1
if Icount>=StartRec then '计数器如果比允许的开始值大，则显示数据。
'============================================================================
'Response.Write Icount
if Icount mod 2=0 then
%>
<tr bgcolor="#decbff">
<%
else
%>
<tr bgcolor=#e6e6fa>
<%
end if
%>
<td align=center><a href="detail_BCHT.asp?id=<%= ers("ID")%>" title="详细内容点击进入" target=_blank><font size=3 color=red><%= ers("ID")%></font></a></td>
<td colspan=2><%= ers("KHBH")%></td>
<td><%= ers("ZXDZ")%></td>
<td><%= ers("SQR")%></td>
<td><%= ers("SQRQ")%></td>
<td><%= ers("XH")%></td>
<td><%= ers("TJ")%></td>
<td><%= ers("XL")%></td>
<%
if strisAdmin="T" then
%>
<td><a href=modify_BCHT.asp?id=<%=ers("ID")%>>修改</a></td>
<td><a href=delete_BCHT.asp?id=<%=ers("ID")%>>删除</a></td>
<%
end if
%>
</tr>
<%
end if
ers.MoveNext
loop
ers.Close
set ers=Nothing
%>
<tr><td width=100% colspan=11 height=20 align=right>
<%
if pageNo > 1 then
%>
<a href="main_BCHT.asp?pageNo=<%= pageNo - 1 %>&MP=<%=MaxPage%>&id=<%=strInfo%>"><font color=#999900>上一页</font></a>
<%
end if
if pageNo < MaxPage then
%>
<a href="main_BCHT.asp?pageNo=<%= pageNo + 1 %>&MP=<%=MaxPage%>&id=<%=strInfo%>"><font color=#999900>下一页</font></a>
<%
end if
%>
<input type=hidden name=id value=<%= strInfo%> ID="Hidden1">
<%
if strisAdmin="T" then
%>
<a href="new_BCHT.asp?id=<%= strInfo%>"><font size=3 color=white>新增补充合同</font></a>
<%
end if
%>
<input type=hidden value="<%= MaxPage%>" name="MP" ID="Hidden4">
<input type=submit value="GO" ID="Submit1" NAME="Submit1">
<input type=text name="pageNo" size=2 ID="Text1"><font size=2 color=white> 页</font>
<font size=2 color=white>记录总数:</font><font size=2 color=yellow><%= MaxRecordNum%></font><font size=2 color=white>条</font>
<font size=2 color=white>当前为:</font><font size=2 color=yellow><%= pageNo%></font><font size=2 color=white>页</font>
<font size=2 color=white>共</font><font size=2 color=yellow><%= MaxPage %></font><font size=2 color=white>页</font>
</td></tr>
<%
else
Response.Redirect"Error.asp?info=用户没有登陆.或您的IE不支持Cookies！"
end if
%>
</table>
</form>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -