📄 pishi_look.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
字号:
<%@ codepage ="936" %>
<%
if instr(session("flag_fyadmin"),"09")=0 then
response.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"
response.write"this.location.href='../login.asp';</SCRIPT>" 
response.end
end if
%><!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp"-->
<LINK href="../../css/Style.css" rel=stylesheet type=text/css>
<HTML><HEAD>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<CENTER>
<script language="javascript">
function show_sader(mylink)
{
window.open(mylink,'','top=50,left=150,width=457,height=400,scrollbars=yes')
}
</script>
<%
const MaxPerPage=4
dim totalPut 
dim CurrentPage
dim TotalPages
dim i
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim sql
dim rs
dim rstype
if not isEmpty(request("id")) then
id=request("id")
else
id=1
end if
mysql="select * from qyml where id="+cstr(id)+"" 
Set myrs= Server.CreateObject("ADODB.Recordset") 
myrs.open mysql,conn,1,1 
%> 
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%" id="AutoNumber15">
<tr>
<td width="100%">
<p align="center">
<img border="0" src="../../company/images/contact1.gif"></td>
</tr>
</table>
<HTML><HEAD>
<meta http-equiv="Content-Language" content="zh-cn">
<TITLE><%=myrs("qymc")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
<!--
body { font-family: "宋体"; font-size: 9pt}
p { }
table { font-family: "宋体"; font-size: 9pt}
td { font-family: "宋体"; font-size: 9pt; line-height: 14pt; letter-spacing: 0pt}
a:link { text-decoration: none}
a:visited { text-decoration: none}
.unnamed1 { cursor: hand}
a:hover { color: #FF6600; text-decoration: none}
-->
</style>
<META content="Microsoft FrontPage 6.0" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 >
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width="95%" border=0 style="border-collapse: collapse" bordercolor="#111111" height="120">
<TBODY>
<TR>
<TD vAlign=top height=120>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD vAlign=top width="95%" height=100>
<TABLE height=109 cellSpacing=0 cellPadding=0 width="100%" 
border=0><TBODY>
<TR vAlign=top>
<TD height=1 bgcolor="#FFFFFF">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="99%" id="AutoNumber13">
<tr>
<td width="100%">
<%
sql1="select * from Manage_user"
Set rs1= Server.CreateObject("ADODB.Recordset") 
rs1.open sql,conn,1,1 
sql="select * from book where bookid="+cstr(id)+" order by INFO_ID desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then 
response.write"<SCRIPT language=JavaScript>alert('目前暂无反馈信息...');"
response.write"javascript:history.go(-1)</SCRIPT>"
else 
totalPut=rs.recordcount 
if currentpage<1 then 
currentpage=1 
end if 
if (currentpage-1)*MaxPerPage>totalput then 
if (totalPut mod MaxPerPage)=0 then 
currentpage= totalPut \ MaxPerPage 
else 
currentpage= totalPut \ MaxPerPage + 1 
end if 
end if 
if currentPage=1 then 
showContent
else 
if (currentPage-1)*MaxPerPage<totalPut then 
rs.move (currentPage-1)*MaxPerPage 
dim bookmark 
bookmark=rs.bookmark 
showContent
else 
currentPage=1 
showContent
end if 
end if
end if 
sub showContent 
%> 
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111" height="122"> 
<TBODY> 
<TR> 
<TD width="100%" align=center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="80%" align=center>
<TR><TD colspan="2"><%showpage totalput,MaxPerPage,"pishi_look.asp"%></TD></TR>
</table>
<div align="center">
<center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="80%" style="border-collapse: collapse" bordercolor="#111111">
<TR>
<TD height="10" colspan="2" background="../../company/images/line_gr.gif"></TD></TR>
</TABLE> 
</center>
</div>
<%do while not rs.eof%>
<div align="center">
<center> 
<TABLE border=0 cellPadding=0 cellSpacing=0 width="80%" style="border-collapse: collapse" bordercolor="#111111" height="75">
<TBODY>
<TR height="30">
<TD align=left width="75%" height="18">
<b><img border="0" src="../../company/images/fpost2.gif">
<span style="font-size: 10.5pt">
<a target="_blank" href="../../company/index.asp?id=<%=rs("gsid")%>"><%=rs("linkman")%></a></span></b>
<%if rs("pishi")=1 then%>
<font color=red><b>管理员</b></font>
<%else if rs("Gsid")>"1" then%>
<font color="#fc9603">【会员】</font>
<%else%><font color="#008000">【游客】</font>
<%end if%>
<%end if%>
<%=rs("dateandtime")%>&nbsp; </TD>
<TD align=left width="25%" height="18">
<p align="right"> 
 <a href="bookdel.asp?ID=<%=rs("bookid")%>">
 <img border="0" src="../../company/images/A_delete.gif"></a>
</TD>
</TR>
<TR height="30"> 
<TD width="100%" colspan="2" height="19"><%=mid(rs("content"),1,200)%><a href="javascript:show_sader(&quot;bookinfo.asp?info_id=<%=rs("info_id")%>&quot;)">[<font color="#FF6600">详细信息</font>]</a></TD> 
</TR> 
<TR><TD height="19" width="100%" colspan="2"></TD></TR>
<TR>
<TD height="19" background="../../company/images/line_gr.gif" width="590" colspan="2"></TD></TR>
</TBODY>
</TABLE>
</center>
</div>
<% i=i+1 
if i>=MaxPerPage then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%> 
<TABLE border=0 cellPadding=0 cellSpacing=0 width="80%" align=center>
<TR><TD colspan="2"><%showpage totalput,MaxPerPage,"pishi_look.asp"%></TD></TR>
</table></TD></TR></TABLE>
<%
end sub 
function showpage(totalnumber,maxperpage,filename) 
dim n 
if totalnumber mod maxperpage=0 then 
n= totalnumber \ maxperpage 
else 
n= totalnumber \ maxperpage+1 
end if 
response.write "<form method=Post action="&filename&">" 
if CurrentPage<2 then 
response.write "<font color=red><b>共"&n&"页&nbsp;第"&CurrentPage&"页 " 
response.write "共有"&totalnumber&"条反馈信息</b></font>" 
response.write "</td>"
response.write "<td VALIGN=middle align=right >"
response.write "【最前页】【上一页】" 
else 
response.write "<font color=red><b>共"&n&"页&nbsp;第"&CurrentPage&"页 " 
response.write "共有"&totalnumber&"条反馈信息</b></font>" 
response.write "【<a href="&filename&"?page=1&id="&id&">最前页</a>】" 
response.write "【<a href="&filename&"?page="&CurrentPage-1&"&id="&id&">上一页</a>】" 
end if 
if n-currentpage<1 then 
response.write "【下一页】【最后页】" 
else 
response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&id="&id&">" 
response.write "下一页</a>】【 <a href="&filename&"?page="&n&"&id="&id&">最后页</a>】" 
end if 
response.write "</form>" 
end function
%> </td>
</tr>
</table>
</center>
</div>
</TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE></DIV>
</BODY></HTML>
<%myrs.close 
set myrs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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