📄 left.asp

📁 这是我个人用ASP制作的一个动态网页,也是我的主页,谢谢大家的使用~~~`

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="5; URL=left.asp">
<title>菜单</title>
<style type="text/css">
<!--
.style2 {	color: #0033FF;
	font-family: "华文新魏";
	font-size: 17px;
}
body {
	margin-top: 0px;
}
.style8 {
	font-family: "新宋体";
	font-size: 16px;
	color: #0033CC;
	font-weight: bold;
}
.style9 {
	font-family: "华文新魏";
	font-size: 18px;
	color: #000099;
}
.style10 {
	font-family: "新宋体";
	font-size: 16px;
	color: #0099FF;
}
-->
</style>
</head>

<body bgcolor="#FFFFCC">
<table width="215" height="497" border="0">
    <%
	  set rs=server.CreateObject("adodb.recordset")
	  rs.open "select name,head,adddate from temporary",conn,1,1
	  %>
  <tr>
    <td height="22"><span class="style9">【欢迎】加入聊天室</span></td>
  </tr>
  <tr>
    <td height="386" valign="top">
      <table width="208" border="0">
	   <tr>
          <td width="42" align="center" height="36"><img src="images/Image1.gif" width="27" height="35"></td>
          <td width="156"><a href="bottom.asp?C_username=大家" target="bottomFrame" class="style2"  >大家</a></td>
        </tr>
        <%if not rs.eof and not rs.bof then
	         do while not rs.eof
			 namen=rs("name")
			 times=rs("adddate")
			 interval=DateDiff("s",times,now())
			 if interval<600 then
		%>
        <tr>
          <td width="42">&nbsp;<img src="<%=rs("head")%>" width="27" height="35"></td>
          <td width="156"><a href="bottom.asp?C_username=<%=rs("name")%>" target="bottomFrame" class="style2"  ><%=rs("name")%></a></td>
        </tr>
        <%
		      else
			     conn.execute ("delete from temporary where name='"&namen&"'")
		      end if
		     rs.movenext
		    loop
		end if
		%>
    </table>
      <span class="style10">目前有</span><span class="style8"> <%=rs.recordcount%></span> <span class="style10">人在线</span></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -