📄 admin_leaveword.asp

📁 主要销售电脑和it　具有　购物车　和　留言版　和服务器销售　等具体功能　
💻 ASP
字号:
<%
if session("AdminName")="" then
    response.redirect "index.asp"
end if
%>
<!--#include file="inc/conn.inc"-->
<script language="javascript">
function jsOpen(PageUrl, target, width, height, scrollbar){
	var str = "height=" + height + ",innerHeight=" + height;
	str += ",width=" + width + ",innerWidth=" + width;
	if (window.screen) {
	var ah = screen.availHeight - 30;
	var aw = screen.availWidth - 10;

	var xc = (aw - width) / 2;
	var yc = (ah - height) / 2;

	str += ",left=" + xc + ",screenX=" + xc;
	str += ",top=" + yc + ",screenY=" + yc;
	str += ", scrollbars=" + scrollbar;
	}
	window.open(PageUrl, target, str)
}
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin_style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="95%" border="1" align="center" cellpadding="3" cellspacing="0"  bordercolorlight="#326598" bordercolordark="#ffffff">
  <tr>
    <td colspan="6" background="image/tile_sub.gif">　客户留言</td>
  </tr>
  <tr>
    <td width="5%" align="center" background="image/tile_sub.gif">序号</td>
    <td width="34%" background="image/tile_sub.gif">　主题</td>
    <td width="15%" background="image/tile_sub.gif">　联系人</td>
    <td width="28%" background="image/tile_sub.gif">　E-mail</td>
    <td width="11%" background="image/tile_sub.gif">　留言时间</td>
    <td width="7%" align="center" background="image/tile_sub.gif">操作</td>
  </tr>
  
  <%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from leaveword order by id desc"
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
response.Write("<td colspan=6>没有记录!</td>")
else
rs.PageSize=10
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page  
    
for j=1 to rs.PageSize 
%>
  
  
  <tr>
    <td align="center"><%=rs("id")%></td>
    <td>　<a href="#" onclick="jsOpen('leaveword_list.asp?id=<%=rs("id")%>', '_blank', 420, 372, 'yes');"><%=rs("motif")%></a></td>
    <td>　<%=rs("linkman")%></td>
    <td>　<a href="mailto:<%=rs("email")%>" target="_blank" ><%=rs("email")%></a></td>
    <td>　<%=rs("time")%></td>
    <td align="center"><a href="leaveword_del.asp?id=<%=rs("id")%>">删除</a></td>
  </tr>
  <%
rs.movenext
if rs.eof then exit for
next                                                       
%>
  
</table>
<table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center">&nbsp;</td>
  </tr>
  <tr>
  <form method=Post action="admin_leaveword.asp">  
    <td align="center"><%if Page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=?page=1>首页</a>&nbsp;"
    response.write "<a href=?page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=?page=" & (page+1) & ">"
    response.write "下一页</a> <a href=?page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"     
%></td></form>
  </tr>
</table>
<% 
end if
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明

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