📄 newly.asp
字号:
<!--#include file="filetou.asp"-->
<!--#include file="fun.asp"-->
<%
if session("username")<>"" then
MYID=""
MYIP=REQUEST.SERVERVARIABLES("REMOTE_ADDR")
MYIP=IP2N(MYIP)
sql="SELECT TOP 30 阅读者,ID,主题,发信者 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
DO WHILE NOT RS.EOF
' Response.Write rs("主题")&"<BR>"
IF INSTR(RS("阅读者")&",",SESSION("USERNAME")&",")=0 THEN
MYID=RS("ID")
MYTITLE=RS("主题")
MYNAME=RS("发信者")
EXIT DO
END IF
RS.MOVENEXT
LOOP
RS.CLOSE
SET CONN=NOTHING
else
set conn=nothing
end if
%>
<html>
<head>
<meta http-equiv='refresh' content='60;URL=newly.asp'>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
</HEAD>
<%IF MYID<>"" and int(session("newie"))<>myid THEN%>
<body onLoad="window.open('NEWLY1.ASP?ID=<%=MYID%>&TIT=<%=MYTITLE%>&NAME=<%=MYNAME%>','','TOP=10,LEFT=10,width=700,height=500')" >
<%END IF%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -