manage1.asp

来自「一个VB做的语音系统控件」· ASP 代码 · 共 39 行

ASP
39 行
字号 
<!--#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>

manage1.asp - 源码说明

本页面展示了「一个VB做的语音系统控件」中的 manage1.asp 源码文件，采用 ASP 编程语言编写，共 39 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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