📄 index.asp
字号:
<!--#include file="conn.asp"-->
<%
set rs2=Server.CreateObject("ADODB.Recordset")
sql2="select * from admin"
rs2.open sql2,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs2("webname")%>日记本
</title>
<style fprolloverstyle>A:hover {color: #FF0000}
</style>
</head>
<body link="#000000" vlink="#666666" bgcolor="#FFCCFF">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="19">
<tr>
<td width="100%" height="19" bgcolor="#A9D46D">
<font size="2">
<a href=<%=rs2("weburl")%>>返回首页</a> |
<a href="admin_login.asp">管理日记本系统</a> |
<a href="login.asp">写新日记</a> |
<a href="diary_new.asp">申请新日记本</a> |
<a href="help.txt">日记本系统帮助</a></font></td>
</tr>
</table>
<p><font size="2">
欢迎使用日记本系统，本日记本系统是使用 <a href="http://wj1320.6168.net"><font color="#ff0000">沭阳学生网</font></a><font color="#ff0000"><a href="http://wj1320.6168.net">日记本</a></font>
的程序。申请到日记本后，您可以随时添加、删除、修改日记，你还可以自由的修改您的注册资料。并且还可以设定您的日记本是否加密——即是否让所有浏览者都可以浏览！</font></p>
<p><font size="2">
本日记本有强大的后台管理功能，可以自由的设置版权信息，修改网站资料等等！</font></p>
<p><font size="2"> 1）您不能发布任何不符合当地法规、国家法律和国际法律的资料；<br>
2）您不得发布任何非法的、骚扰性的、中伤他人的、辱骂性的、恐吓性的、伤害性的、庸俗的，淫秽等信息资料。</font></p>
<p><font size="2"> 日记本由<font color="#ff0000">王江</font>
设计制作。有任何问题请与<font color="#ff0000">王江</font>联系。我会为您解答关于本日记本系统的一切我能解决的问题！我的QQ：15392646！</font></p>
<p><font size="2"> 请保留我的设计信息！</font></p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="56">
<tr>
<td width="100%" align="center" height="18" bgcolor="#A9D46D" colspan="7">
<font size="2">最
新 注 册 的 十 个 用 户</font></td>
</tr>
<tr>
<td width="14%" align="center" height="21" bgcolor="#A9D46D">
<font size="2">
用户名</font></td>
<td width="8%" align="center" height="21" bgcolor="#A9D46D">
<font size="2">
省份</font></td>
<td width="26%" align="center" height="21" bgcolor="#A9D46D">
<font size="2">
E-mail</font></td>
<td width="13%" align="center" height="21" bgcolor="#A9D46D">
<font size="2">
QQ</font></td>
<td width="12%" align="center" height="21" bgcolor="#A9D46D">
<font size="2">
日记总数</font></td>
<td width="12%" align="center" height="21" bgcolor="#A9D46D">
<font size="2">
注册时间</font></td>
<td width="15%" align="center" height="21" bgcolor="#A9D46D">
<font size="2">
注册IP</font></td>
</tr>
<%
dim i
i=1
set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select * from user order by addtime desc"
rs1.open sql1,conn,1,1
do while not (rs1.EOF or i=11)
dim user
user=rs1("user")
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from diary where username='"&user&"'"
rs.open sql,conn,1,1
dim scount
scount=INT(Rs.recordcount)
%>
<tr>
<td width="14%" align="center" height="16" bgcolor="#DDE7CD">
<font size="2">
<a href=diary.asp?user=<%=rs1("user")%>>
<%=rs1("user")%></a></font></td>
<td width="8%" align="center" height="16" bgcolor="#DDE7CD">
<font size="2"><%=rs1("area")%></font></td>
<td width="26%" align="center" height="16" bgcolor="#DDE7CD">
<font size="2"><%=rs1("email")%></font></td>
<td width="13%" align="center" height="16" bgcolor="#DDE7CD">
<font size="2"><%=rs1("qq")%></font></td>
<td width="12%" align="center" height="16" bgcolor="#DDE7CD">
<font size="2"><%=scount%></font></td>
<td width="12%" align="center" height="16" bgcolor="#DDE7CD">
<font size="2"><%=rs1("addtime")%></font></td>
<td width="15%" align="center" height="16" bgcolor="#DDE7CD">
<font size="2"><%=rs1("ip")%></font></td>
</tr>
<%
Rs1.movenext
i=i+1
loop
%>
</table>
<div style=" FONT-SIZE: 10pt; FILTER: dropshadow(color=#cccccc,offx=1,offy=1);
COLOR: #666666; FONT-FAMILY:"宋体"; height:52>
<p><font size="2">
<%
dim usercount,diarycount
usercount=INT(Rs1.recordcount)
set rs3=Server.CreateObject("ADODB.Recordset")
sql3="select * from diary"
rs3.open sql3,conn,1,1
diarycount=INT(Rs3.recordcount)
%>
共有<%=usercount%>个用户使用本系统 | 系统共有<%=diarycount%>篇日记</font></p></div>
<!--#include file="bottom.asp"-->
</body>
</html>
<%
rs3.close
set rs3=nothing
rs2.close
set rs2=nothing
rs.close
set rs=nothing
rs1.close
set rs1=nothing
%><!--#include file="close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -