📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="func.dat"-->
<%
dim sql, rowcount, page
rowcount=0
page=request.querystring("page")
sql="select * from users order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1,1
rs.pagesize=5
if page="" then page=1
page=int(page)
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
if not (rs.EOF and rs.BOF) then
rs.AbsolutePage =page
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<bgsound src="http://xiaolin.e0594.com/xlzl/beijingmid.mid" loop="-1">
<head>
<title>张军留言簿</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
</head>
<body background="../dgcn/images/bg-solid.gif" onLoad="startclock();">
<div align="center">
<table width="765" border="0" align="left" cellpadding="2" cellspacing="0">
<tr>
<td width="775"> <div align="center"> </div>
<div align="center">
<table style="border-collapse:collapse" width="100%" border="1" cellpadding="2" cellspacing="0" bordercolor="#666666">
<tr>
<td> <div align="center"> </div>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#FFFFFF">
<td width="18%"> <div align="center"><font size="2"><a href="http://xiaolin.e0594.com/yqlj">友情链接</a></font></div></td>
<td width="18%"> <div align="center"><font size="2"><a href="http://xllyb.h444.com">高级连接</a></font></div></td>
<td width="18%"> <div align="center"><a href="search.asp"></a></div></td>
<td width="21%"> <div align="right">
<script language=JavaScript>
var timerID = null;
var timerRunning = false;
function stopclock (){
if(timerRunning)
clearTimeout(timerID);
timerRunning = false;}
function startclock () {
stopclock();
showtime();}
function showtime () {
var now = new Date();
var hours = now.getHours();
var minutes = now.getMinutes();
var seconds = now.getSeconds()
var timeValue = "" +((hours >= 12) ? "下午 " : "上午 " )
timeValue += ((hours >12) ? hours -12 :hours)
timeValue += ((minutes < 10) ? ":0" : ":") + minutes
timeValue += ((seconds < 10) ? ":0" : ":") + seconds
document.clock.thetime.value = timeValue;
timerID = setTimeout("showtime()",1000);
timerRunning = true;}
</script>
<font size="2"><a href="edit.asp">签写留言</a></font> </div></td>
<td width="25%"> <div align="right">
<form name=clock >
<input name=thetime style="font-size: 9pt;font-family:'verdana';color=#555555;border:0" size="13">
</form>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">您正在浏览第<%=page%>页 共有<%=rs.pagecount%>页</td>
</tr>
</table>
<br>
<%do while not rs.eof and rowcount<rs.pagesize %>
<table width="757" border="0" cellspacing="0">
<tr>
<td width="755" bgcolor="#000000"><table style="border-collapse:collapse" width="101%" border="1" cellpadding="2" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td width="20%" rowspan="5" bgcolor="#FFFFFF"> <p align="center"><br>
<%if rs("email")<>"null" then%>
<%if rs("sex")="男" then%>
<img src="image/boy.gif" width="98" height="116" border="0" alt="靓仔哟">
<a href="mailto:<%=rs("email")%>" title="给他写信">
<%else%>
<img src="image/girl.gif" width="98" height="116" border="0" alt="美女呵">
</a><a href="mailto:<%=rs("email")%>" title="给她写信">
<%end if%>
<%else%>
<img src="image/head01.gif" border="0" alt="性别不详">
<%end if%>
<br>
<%=rs("name")%></a></p>
<p><font color="#993300">来自：</font><%=rs("address")%><br>
<%if rs("qq")="真是的，连QQ号没有" then%>
<font color="#993300">QQ：</font>暂无
<%else%>
<font color="#993300">QQ：</font><a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("qq")%>' title='查看<%=rs("name")%>的详细资料' target="_blank"><%=rs("qq")%></a>
<%end if%>
</p></td>
<td width="50%" bgcolor="#FFFFFF"><font color="#993300">发表时间：</font><%=rs("submittime")%>
</td>
<td width="30%" bgcolor="#FFFFFF"> <div align="right">
<%if rs("email")="null" then%>
<img src="image/mailbox.gif" width="16" height="16" alt="没留" style="FILTER: alpha(opacity=30)" >
<%else%>
<img src="image/mailbox.gif" width="16" height="16" alt="<%=rs("email")%>" >
<%end if%>
<%if rs("qq")="真是的，连QQ号没有" then%>
<img src="image/qq.gif" width="16" height="16" alt="<%=rs("qq")%>" style="FILTER: alpha(opacity=30)" >
<%else%>
<img src="image/qq.gif" width="16" height="16" alt="<%=rs("qq")%>" >
<%end if%>
<%if rs("showip")="0.0.0.0" or rs("showip")="" then%>
<img src="image/ip.gif" width="13" height="15" alt="不告诉你！" style="FILTER: alpha(opacity=30)" >
<%else%>
<img src="image/ip.gif" width="13" height="15" alt="<%=rs("ip")%>">
<%end if%>
</div></td>
</tr>
<tr>
<td width="50%" bgcolor="#FFFFFF"><font color="#993300">相关链接：</font><a href="http://<%=rs("link")%>" target="_blank">欢迎光临我的主页</a></td>
<td width="30%" bgcolor="#FFFFFF"> <div align="right"><a href="reply.asp?id=<%=rs("id")%>">回复</a>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -