📄 admin.asp

📁 一套很早的多用户电子商务程序
💻 ASP
字号:
<!--#include file="bkconn.asp"-->
<!--#include file="pwd.asp" -->
<!--#include file="inc/char.inc"-->
<html>

<head>
<style type="text/css">
<!-
td{font-size:12px;}
body{font-size:12px;line-height:17px;}
a:link{text-decoration:none;color:#008040}
a:visited{text-decoration:none;color:#008040}
a:active{text-decoration:none}
a:hover {  color:#FF8040; text-decoration: underline}
->
</style>
<%
   const MaxPerPage=10 '分页显示的纪录个数
   dim sql 
   dim rs
   dim gstBookID
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
%>
<title>管理员</title>
</head>

<body class="aa" style="color: rgb(0,128,128)" background="002.gif">

<p align="center"><font color="#000000"><font size="6"><img src="guestbook.gif" WIDTH="283" HEIGHT="60"></font> </font></p>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from book order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
   response.write "<p align='center'> 还 没 有 任 何 留 言</p>"
else
   totalPut=rs.recordcount '记录总数
   if currentPage=1 then
      showpages
      showContent
      showpages
   else
      if (currentPage-1)*MaxPerPage<totalPut then
         rs.move  (currentPage-1)*MaxPerPage
         dim bookmark
         bookmark=rs.bookmark '移动到开始显示的记录位置
         showpages
         showContent
         showpages
      else
         currentPage=1
         showContent
      end if
   end if
      rs.close
end if
set rs=nothing  
conn.close
set conn=nothing  

sub showContent
    dim i
    i=0
%>
<%
       do while not (rs.eof or err)
%>
<div align="center"><center>

<table border="0" width="600" cellspacing="1" cellpadding="20">
  <tr>
    <td width="100%"><p align="center"><font color="#000080"><strong>　<br>
    <img src="g13.gif" WIDTH="15" HEIGHT="15"> <%
if rs("contenttop")<>"" then
   if rs("content")<>"" then
    contop=rs("contenttop")
    Response.Write contop
    else
    contop=rs("contenttop") & "<span  style='font-size: 9pt'><font color='#408080'></strong>(无内容)</span>"
    Response.Write contop
    end if
else
    contop=rs("name") & "留言说<span  style='font-size: 9pt'><font color='#408080'></strong>(无主题)</span>"
    Response.Write contop
end if
%> <br>
    </strong></font></td>
  </tr>
</table>
</center></div><div align="center"><center>

<table border="0" cellspacing="1" height="1" width="600" bgcolor="#0000FF">
  <tr>
    <td nowrap valign="middle" class="aa" bgcolor="#EED18E" width="78"><p align="left"><font color="#000000"><img src="r.gif" WIDTH="15" HEIGHT="13"> 大 名</font></td>
    <td nowrap valign="middle" class="aa" bgcolor="#FFFFFF" width="514"><p align="left"><font color="#000000"><%
    if rs("sex")<>"不想说" then
    name=rs("name") & "<span  style='font-size: 9pt'>(" & rs("sex") & ")</span>"
    else
    name=rs("name")
    end if
    Response.Write name  
%> </font></td>
  </tr>
<%    if rs("fromwhere")<>""  then  %>
  <tr>
    <td nowrap valign="middle" class="aa" bgcolor="#EED18E" width="78"><p align="left"><font color="#000000"><img src="r.gif" WIDTH="15" HEIGHT="13"> 来 自</font></td>
    <td nowrap valign="middle" class="aa" bgcolor="#FFFFFF" width="514"><p align="left"><font color="#000000"><%    display rs("fromwhere")  %> </font></td>
  </tr>
<%
    end if
    if rs("email")<>"" then
%>
  <tr>
    <td nowrap valign="middle" class="aa" bgcolor="#EED18E" width="78"><p align="left"><font color="#000000"><img src="r.gif" WIDTH="15" HEIGHT="13"> 邮 箱</font></td>
    <td nowrap valign="middle" class="aa" bgcolor="#FFFFFF" width="514"><p align="left"><font color="#000000"><span style="font-size: 9pt"><a href="mailto:<% display rs("email") %>"><% display rs("email") %> </a></span></font></td>
  </tr>
<%
end if
if rs("homepage")<>"" and  rs("homepage")<>"http://" then
%>
  <tr>
    <td nowrap valign="middle" class="aa" bgcolor="#EED18E" width="78"><p align="left"><font color="#000000"><img src="r.gif" WIDTH="15" HEIGHT="13"> 主 页</font></td>
    <td nowrap valign="middle" class="aa" bgcolor="#FFFFFF" width="514"><p align="left"><font color="#000000"><span style="font-size: 9pt"><a href="<% display rs("homepage") %>" target="_blank"><% display rs("homepage") %> </a></span></font></td>
  </tr>
<%
end if
%>
  <tr>
    <td nowrap valign="middle" class="aa" bgcolor="#EED18E" width="78"><p align="left"><font color="#000000"><img src="r.gif" WIDTH="15" HEIGHT="13"> 时 间</font></td>
    <td nowrap valign="middle" class="aa" bgcolor="#FFFFFF" width="514"><p align="left"><font color="#000000"><span style="font-size: 9pt"><%
    =rs("dateandtime")
%> </span></font></td>
  </tr>
<%
if rs("content")<>"" then
%>
  <tr>
    <td nowrap valign="top" class="aa" bgcolor="#EED18E" width="78"><p align="left"><font color="#000000"><img src="r.gif" WIDTH="15" HEIGHT="13"> 留 言</font></td>
    <td nowrap class="aa" bgcolor="#FFFFFF" width="514"><p align="left"><font color="#000000"><%
display rs("content")
'	Response.Write rs("content")  
	%></font></td>
  </tr>
<%
end if
if rs("anser")<>"" then%>
<%sss=cstr(rs("id"))+"abc"%>
  <tr>
    <td align="right" bgcolor="#F8EACB" width="78"><p align="center"><font color="#8080FF"><span style="font-size: 9pt">回复留言</span></font></td>
    <td valign="top" align="right" bgcolor="#FFFFFF" width="510"><p align="left"><font color="#8080FF"><span style="font-size: 9pt">[<%Response.Write rs("ansertime")%>]<br>
<%
display rs("anser")
'Response.Write rs("anser")
%>    </span></font></td>
  </tr>
<%end if%>
  <tr>
    <td width="70" height="0" align="right" bgcolor="#F8EACB"></td>
    <td width="627" height="0" bgcolor="#FFFFFF"><p align="right"><font color="#8080FF"><span style="font-size: 9pt"><%Response.Write "<A HREF=reply.asp?userid=" & cstr(rs("id")) & "&cpage=" & cstr(currentpage) & ">[输入（修改）回言]</A>
⌨️ 快捷键说明

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