email.asp
来自「1、全面展示宾馆的自然情况和服务内容； 2、介绍宾馆信息,帮助客人了解宾馆相」· ASP 代码 · 共 124 行
ASP
124 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%
if session("admin_name")="" then
response.redirect "../index.asp"
end if
%>
<%
if request("del")<>"" then
call del
end if
function del
sql3="delete from email where id="&request("del")
conn.Execute(sql3)
sql4="delete from dd where huifu='"&request("del")&"'"
conn.execute(sql4)
end function
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from email order by id desc"
rs.open sql,conn,1,1
%>
<html>
<style type="text/css">
<!--
.style2 {font-size: 9pt}
-->
</style>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<TABLE width="71%" border="0" align="center" cellpadding="0" cellspacing="0">
<TR>
<TD width="64%" height=25 align=left bgcolor="#FFCC00"> <a href=../news/addemail.asp>添加<img src="../images/add.gif" border=0 align="absbottom"></a></TD>
<TD width="36%" align=left bgcolor="#FFCC00"><div align="right"><a href="JMail44_free.exe">下载Jmail组件</a> </div></TD>
</TR>
</TABLE>
<br>
<TABLE cellSpacing=1 cellPadding=0 width="540" align=center bgColor=#999999
border=0>
<TBODY>
<TR>
<TD width="735" bgcolor="#f0f0f0" id=maintitleback>
<TABLE cellSpacing=0 cellPadding=3 width="100%" border=0>
<TBODY>
<TR>
<TD><IMG height=8 src="../images/pics/nav_m.gif" width=8
border=0></TD>
<TD width="100%" height="30" valign="bottom" class="t" id=maintitle><span class="style2">回复订单管理 -> <strong>回复管理</strong></span></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD id=mainbg>
<TABLE cellSpacing=1 cellPadding=4 width="100%" border=0 height="125">
<TBODY>
<TR>
<TD width="28%" height="30" noWrap
background=../images/pics/tile_sub.gif id=titlemedium><div align="center"> </div> <div align="center"><font color="#FFFFFF"> </font></div></TD>
<TD width="45%" height="30" align=middle noWrap
background=../images/pics/tile_sub.gif id=titlemedium> <div align="center"><font color="#FFFFFF"> 标题</font></div></TD>
<TD height="30" colspan="2" align=middle noWrap
background=../images/pics/tile_sub.gif id=titlemedium>
<div align="center"><font color="#FFFFFF"> 管理</font></div></TD>
</TR>
<% If not rs.eof Then
tol=rs.recordcount
shownum=10
rs.pagesize=shownum
maxpage=rs.pagecount
requestpage=clng(request("p"))
if requestpage="" or requestpage<1 then
requestpage=1
end if
if requestpage>maxpage then
requestpage=maxpage
end if
if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.eof
%>
<TR>
<TD width=28% height="30" align=middle bgColor=#ffffff><div align="center"><%= rs("id") %></div></TD>
<TD height="30" align=middle bgColor=#ffffff><div align="center"><%= rs("title") %></div></TD>
<TD width=14% height="30" align=middle bgColor=#ffffff> <div align="center"><a href=../news/edemail.asp?id=<%=rs("id")%>>修改</a></div></TD>
<TD width=13% align=middle bgColor=#ffffff><div align="center"><a href=email.asp?del=<%=rs("id")%>&p=<%=requestpage%>>删除</a></div></TD>
</TR>
<%
rs.movenext
if rs.eof then exit for
next
else
response.Write("<font color=white>没有设置回复</font>")
end if
Rs.Close
Set Rs=Nothing
%>
<TR>
<TD height="30" colspan="5" bgColor=#ffffff><div align="center"><img src="../../IMAGES/pics/seperator.gif" width="359" height="1"></div></TD>
</TR>
<TR>
<TD id=mainfoot
colSpan=5 height="30"> <div align="right">共 <%= maxpage %> 页 当前页：<%= requestpage %> <a href=email.asp?p=<%=requestpage-1%>>上一页</a> <a href=email.asp?p=<%=requestpage+1%>>下一页</a> </div></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?