myly.asp

来自「这是一个简单的网站示例,你可以通过管理系统修改版权信息和网站标志,从而成为您自己」· ASP 代码 · 共 113 行

ASP
113 行
字号 
<%
if session("username")="" then      response.redirect "ever.asp?lr=请先登录"
%>
<!--#include file="filetou.asp"-->
<!--#include file="fun.asp"-->
<!--#include file="../fun.asp"-->
<%
   
     MYIP=REQUEST.SERVERVARIABLES("REMOTE_ADDR")
     MYIP=IP2N(MYIP)
     CALL DELLY()
     sql="SELECT *  FROM LYLIST where 收信者 LIKE '%"&SESSION("USERNAME")&"%' OR (起始IP <="&MYIP&" AND 结束IP >="&MYIP&" )   order by  -ID" 
     set rs=server.createobject("ADODB.Recordset")
     rs.Open sql,conn, 1, 1

%><html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>我的留言</title>
<Link Rel="STYLESHEET" Href="../../index.CSS" Type="text/css">
</head>

<body bgcolor="#99CCFF">

<div align="center">
  <center>
  <table border="1" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bgcolor="#D4D0C8">
    <tr>
      <td width="100%">
        <table border="0" width="100%" bgcolor="#000080" cellspacing="1">
          <tr>
            <td width="25%">　<a href="myly.asp"><font color="#FFFFFF">　我的留言</font></a></td>
            <td width="25%"><a href="lyout.asp"><font color="#FFFFFF">发送留言</font></a></td>
          <td width="50%">
            <p align="right"><a href="../../index.asp"><font color="#FFFFFF">返回</font></a>　</td>
        </tr>
      </table>
      
        <table border="1" width="100%" bordercolorlight="#356286" cellspacing="0" cellpadding="2" bordercolordark="#D4D0C8">
          <tr>
            <td width="68%" bgcolor="#B8C2D3" align="center">主题</td>
            <td width="7%" bgcolor="#B8C2D3" align="center">状态</td>
            <td width="10%" bgcolor="#B8C2D3" align="center">发信者</td>
            <td width="15%" bgcolor="#B8C2D3" align="center">日期</td>
          </tr>
<%
IF NOT RS.EOF THEN
DO WHILE NOT RS.EOF
  Response.Write "<tr>"
  Response.Write "<td ><a href='disply.asp?id="&rs("ID")&"'>"&RS("主题")&"</a></td>"
  IF INSTR(RS("阅读者")&"",SESSION("USERNAME")&",")=0 THEN
     Response.Write "<td >新</td>"
  ELSE
     Response.Write "<td >旧</td>"
  END IF

  Response.Write " <td >"&RS("发信者")&"　</td>"
  Response.Write " <td >"&FORMATDATETIME(RS("发送时间"),1)&"</td>"
  Response.Write " </tr>"
  RS.MOVENEXT
LOOP
ELSE
  Response.Write "<TR><TD colspan='4'>没有找到任何留言</TD></TR>"
END IF
rs.close
set conn=nothing
%>
        </table>
      
        &nbsp; 注意: 长期闲置的旧留言 系统将自动删除. 
      </td> 
    </tr> 
  </table> 
  </center> 
</div> 
 
</body> 
 
</html> 
<% 
sub delly() 
     MYIP=REQUEST.SERVERVARIABLES("REMOTE_ADDR") 
     MYIP=IP2N(MYIP) 
     sql="SELECT 收信者,阅读者,附件,接收时间,主题  FROM LYLIST where (收信者 LIKE '%"&SESSION("USERNAME")&"%' OR (起始IP <="&MYIP&" AND 结束IP >="&MYIP&" )) AND 接收时间 < date()-3   order by  -ID"  
     set rsdel=server.createobject("ADODB.Recordset") 
      ' Response.Write SQL 
     rsdel.Open sql,conn, 1, 3 
     do while not rsdel.eof 
       if INSTR(RSDEL("阅读者"),rsDEL("收信者"))<>0 THEN 
          IF RSDEL("附件")&""<>"" THEN 
             CALL DELFILE(RSDEL("附件")) 
          END IF 
          RSDEL.DELETE 
       ELSE 
          IF RSDEL("收信者")&""="" THEN 
             IF INSTR(RSDEL("阅读者"),SESSION("USERNAME"))<>0 THEN 
                IF RSDEL("附件")&""<>"" THEN 
                   CALL DELFILE(RSDEL("附件")) 
                END IF 
                RSDEL.DELETE 
             END IF 
          END IF 
       END IF 
       RSDEL.MOVENEXT 
      loop 
      RSDEL.UPDATEBATCH 
      RSDEL.CLOSE 
end sub 
%>

myly.asp - 源码说明

本页面展示了「这是一个简单的网站示例,你可以通过管理系统修改版权信息和网站标志,从而成为您自己的网站」中的 myly.asp 源码文件，采用 ASP 编程语言编写，共 113 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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