📄 manage1.asp

📁 一个用vb开发的比较好的聊天系统
💻 ASP
字号:
<!--#include file="db_open.asp"-->
<%if session("manage_login")<>"true" then response.redirect "manage.asp"
 set rs=server.createobject("adodb.recordset")
 rs.open "select * from ly_info order by id desc",conn,1,1
 direction=request("direction")
  go=request("go")
  if isempty(go) then go=0
    select case direction
      case ""
        go=0
      case "up"
        go=go-15
        if go<=0 then go=0
      case "down"
        go=go+15
        if go>=rs.recordcount then go=go-15
    end select
  if not rs.eof then rs.move(go)
%>
<HTML>
<HEAD>
<TITLE>彩虹世界－管理</TITLE> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312"> 
<link rel="stylesheet" href="baresi.css" type="text/css">
</HEAD>

<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<TABLE WIDTH="600" BORDER="1" CELLSPACING="0" CELLPADDING="0" ALIGN="center" HEIGHT="29" BORDERCOLORDARK="#FFFFFF" BORDERCOLOR="#333333" BGCOLOR="#DAE1FA"> 
<TR BGCOLOR="#CCCCCC"> <TD CLASS="td1" HEIGHT="28" BGCOLOR="#DAE1FA"><A HREF="list.asp">查看留言</A> 
| <A HREF="write.asp">发表留言</A> | <A HREF="manage.asp">留言管理</A> 　　　　　　　　　　　　　　　　　　　　　　　<A HREF="manage1.asp?go=<%=go%>&direction=up">上一页</A> 
<A HREF="manage1.asp?go=<%=go%>&direction=down">下一页</A></TD></TR> </TABLE><BR><TABLE WIDTH="600" BORDER="1" CELLSPACING="0" CELLPADDING="0" ALIGN="center" BORDERCOLOR="#666666" BORDERCOLORDARK="#FFFFFF" HEIGHT="41"><TR><TD CLASS="td2" ALIGN="center" BGCOLOR="#DAE1FA" WIDTH="94" HEIGHT="28">留言人</TD><TD CLASS="td2" ALIGN="center" BGCOLOR="#DAE1FA" WIDTH="195" HEIGHT="28">主题</TD><TD CLASS="td2" ALIGN="center" BGCOLOR="#DAE1FA" WIDTH="173" HEIGHT="28">时间</TD><TD CLASS="td2" ALIGN="center" BGCOLOR="#DAE1FA" WIDTH="128" HEIGHT="28">操作</TD></TR> 
<%do while not rs.eof and i<15
  i=i+1%> <TR><TD CLASS="td2" ALIGN="center" BGCOLOR="#DAE1FA" WIDTH="94" HEIGHT="35"><%=rs("user_name")%></TD><TD  ALIGN="center" BGCOLOR="#DAE1FA" WIDTH="195" HEIGHT="35"><%=rs("user_title")%></TD><TD CLASS="td2" ALIGN="center" BGCOLOR="#DAE1FA" WIDTH="173" HEIGHT="35"><%=rs("pub_time")%></TD><TD CLASS="td2" ALIGN="center" BGCOLOR="#DAE1FA" WIDTH="128" HEIGHT="35"><A HREF="detail.asp?id=<%=rs("id")%>">查看</A> 
<A HREF="del.asp?id=<%=rs("id")%>">删除</A> </TD></TR> <%rs.movenext
loop
call db_close()
set rs=nothing%> </TABLE> 
</BODY>
</HTML>
⌨️ 快捷键说明

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