contact_edit.asp

来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 233 行

ASP
233 行
字号 
<%@ codepage ="936" %><!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp"-->
<!--#include file="../../inc/check_input.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
id=CheckInput(id,"i","1")
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%">
<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 valign=top height="122" width="100%">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD align=right>
<p align="left"><B><%showpage totalput,MaxPerPage,"contact_edit.asp"%></TD>
</TR>
</TBODY>
</TABLE>
<div align="center">
<center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" 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="100%" 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"> 
<%if session("id")=rs("bookid") then%>
<%if rs("pishi")=1 then%>
     <font color=red><b>管理员重要信息</b></font>
  <%else if rs("Gsid")>"1" then%>
<a href="../../company/contact.asp?id=<%=rs("gsid")%>"><img border="0" src="../../company/images/reply.gif"></a>
  <%end if%>
 <a href="bookdel.asp?ID=<%=rs("bookid")%>">
 <img border="0" src="../../company/images/A_delete.gif"></a>
<%end if%>
<%end if%>
</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="92%">
<TR><TD colspan="2"><%showpage totalput,MaxPerPage,"contact_edit.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
%>

contact_edit.asp - 源码说明

本页面展示了「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」中的 contact_edit.asp 源码文件，采用 ASP 编程语言编写，共 233 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与物流管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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