📄 list.asp

📁 一个用vb开发的比较好的聊天系统
💻 ASP
字号:
<!--#include file="db_open.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-6
        if go<=0 then go=0
      case "down"
        go=go+6
        if go>=rs.recordcount then go=go-6
    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="list.asp?go=<%=go%>&direction=up">上一页</A> 
<A HREF="list.asp?go=<%=go%>&direction=down">下一页</A></TD></TR> </TABLE><%do while not rs.eof and i<6
   i=i+1%> <BR><TABLE WIDTH="600" BORDER="1" CELLSPACING="0" CELLPADDING="0" HEIGHT="90" ALIGN="center" BORDERCOLOR="#666666" BORDERCOLORDARK="#FFFFFF"> 
<TR> <TD HEIGHT="131" ROWSPAN="2" CLASS="td2" WIDTH="144" ALIGN="center" BGCOLOR="#DAE1FA"><%=rs("user_name")%><BR> 
<IMG SRC="images/<%=rs("user_touxiang")%>.gif" VSPACE="3" ALT="头像"><BR> 来自-<%=rs("user_from")%></TD><TD HEIGHT="110" CLASS="td2" VALIGN="top" COLSPAN="2"> 
<TABLE WIDTH="453" BORDER="0" CELLSPACING="0" CELLPADDING="0"> <TR> <TD WIDTH="453" CLASS="td2"><IMG SRC="images/post.gif" WIDTH="24" HEIGHT="24" ALIGN="ABSMIDDLE">留言标题:<%=rs("user_title")%><HR SIZE="1" noshade> 
</TD></TR> <TR> <TD WIDTH="453" CLASS="td2" HEIGHT="40" VALIGN="top"><%=rs("user_content")%></TD></TR> 
</TABLE><%if rs("pub_content")<>"" then%> <TABLE WIDTH="453" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="76"> 
<TR> <TD WIDTH="55" CLASS="td2" ROWSPAN="2">&nbsp;</TD><TD WIDTH="398" CLASS="td2" HEIGHT="40"><IMG SRC="images/repost.gif" WIDTH="24" HEIGHT="24" ALIGN="ABSMIDDLE">版主回复: 
<HR SIZE="1" noshade> </TD></TR> <TR> <TD WIDTH="398" CLASS="td2" VALIGN="top" STYLE="color:#990000"><%=rs("pub_content")%></TD></TR> 
</TABLE><%end if%></TD></TR> <TR> <TD HEIGHT="26" WIDTH="284" CLASS="td2" BGCOLOR="#DAE1FA"><%if rs("user_mail")<>"" then%> 
<A HREF="mailto:<%=rs("user_mail")%>" TARGET="_blank"><IMG SRC="images/email.gif" WIDTH="24" HEIGHT="24" VSPACE="2" HSPACE="2" BORDER=0></A> 
<%end if
if rs("user_homepage")<>"http://" then%><A HREF="<%=rs("user_homepage")%>"  TARGET="_blank"><IMG SRC="images/homepage.gif" WIDTH="24" HEIGHT="24" VSPACE="2" HSPACE="2"  BORDER="0"></A> 
<%end if
  if rs("user_oicq")<>"" then%> <A HREF="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("user_oicq")%>"><IMG SRC="images/oicq.gif" WIDTH="24" HEIGHT="24" HSPACE="2" VSPACE="2" BORDER="0"></A> 
<%end if%> 　</TD><TD HEIGHT="26" CLASS="td2" WIDTH="168" ALIGN="center" BGCOLOR="#DAE1FA">发表于:<%=rs("pub_time")%></TD></TR> 
</TABLE><%rs.movenext
loop
call db_close()
set rs=nothing%> 
</BODY>
</HTML>
⌨️ 快捷键说明

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