📄 index.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<link href="styles.css" rel="stylesheet" type="text/css">
<meta name="keywords" content="<%=key%>"
<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><%=website%></title>
</head>
<body bgcolor=#eeeeee leftmargin="0" topmargin="2" marginwidth="0" marginheight="0">
<div align=center>
<table border="0" width="58%" bgcolor="#eeeeee" cellspacing="1" cellpadding="0" height="1">
<tr>
<td width="100%" height="1">
<table border="0" width="612" bgcolor="#FFFFFF" height="272" cellspacing="0" cellpadding="0">
<tr>
<td width="612" height="67" colspan="2">
<img border="0" src="images/top7.gif" width="608" height="80"></td>
</tr>
<tr>
<td width="612" height="29" bgcolor="#EEEEEE" background="images/body_bg2.gif" valign="bottom" colspan="2">
<marquee width="608" height="14" scrollamount="2" onMouseOut="this.start();" onMouseOver="this.stop();" color=#ffffff style="color: #FFFFFF"><%=gonggao%></marquee>
</td>
</tr>
<tr>
<td width="612" height="1" bgcolor="#EEEEEE" background="images/menu_bottom.gif" colspan="2">
</td>
</tr>
<tr>
<td width="300" height="13" bgcolor="#EEEEEE">
<p align="left"> <img border="0" src="images/home.gif" width="16" height="16">
<a href="<%=weburl%>">返回首页</a>
</p>
</td>
<td width="312" height="13" bgcolor="#EEEEEE">
<p align="right"><img border="0" src="images/female.gif" width="10" height="17">
<% if Session.Contents("login")="yes" then %>
<a href="adminout.asp">退出管理</a>
<% else %>
<a href="adminlogin.asp">管理登陆</a>
<% End If %> </p>
</td>
</tr>
<tr>
<td width="612" height="136" valign="top" colspan="2">
<table border="0" width="100%" height="223" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="middle" height="223">
<p align="center">
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(""&datapath&"")
exec="select * from gbook order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
%>
<div class="commentbox" style="width: 554; height: 110">
<table border="0" width="110%" cellspacing="0" cellpadding="0" height="2">
<tr>
<td width="100%" background="images/comm_title_bg.jpg" height="24" colspan="3"> <img border="0" src="images/icon_quote.gif" width="16" height="16"><b>
<font color="#808080"><%=rs("username")%> </font></b><font color="#808080">
发表于：<span class="comment-text"><%=rs("creat")%> </span> <span class="comment-text">[
<%=rs("userip")%> ]</span> </font></td>
</tr>
<tr>
<td width="14%" height="88" class="commentbox-content" valign="middle" rowspan="2">
<p align="center"><font color="#808080">No. <%=rs("id")%> <br>
</font> <br>
<img border="0" src="<%=rs("face")%>" width="32" height="32">
<br>
</p>
</td>
<td width="85%" height="67" class="commentbox-content"><br><%=replace(rs("word"),CHR(10),"<br>") %></td>
<td width="1%" height="20" class="commentbox-content" rowspan="5">
</td>
</tr>
<tr>
<td width="85%" height="21" class="commentbox-content">
<p align="right"><a href="http://friend.qq.com/cgi-bin/friend/user_show_info?ln=<%=rs("qq")%>" title="点击查看<%=rs("qq")%>资料" target=_blank><img src=images/sider_member.gif border=0></a><a>
</a><a href="<%=rs("homepage")%>" title="点击进入<%=rs("homepage")%>" target=_blank><img border="0" src="images/url.gif" ></a>
<a href="mailto:<%=rs("email")%>" onMouseOver="toolTip('<%=rs("email")%>', '#cccccc', '#666666')" onMouseOut="toolTip()" title="发送邮件"><img border="0" src="images/mail.gif" ></a>
<% if Session.Contents("login")="yes" then %>
<a title="删除" href="delete.asp?id=<%=rs("id")%>"><img alt="删除留言" src="images/del.gif" align="absMiddle" border="0" width="16" height="16"></a>
<a title="删除" href="reply.asp?id=<%=rs("id")%> "><img alt="回复此留言" src="images/res.gif" align="absMiddle" border="0" ></a>
<% Else %>
<%End If %>
</td>
</tr>
<% if rs("replyword")<>"" then %>
<tr>
<td width="99%" height="8" class="commentbox-content" valign="middle" colspan="2" background="images/huifubg.gif">
</td>
</tr>
<tr>
<td width="14%" height="1" class="commentbox-content" valign="top">
<img border="0" src="images/huifu.gif" width="61" height="25">
</td>
<td width="85%" height="1" class="commentbox-content" bgcolor="#FFFFFF">
<font color="#666666"><%=replace(rs("replyword"),CHR(10),"<br>") %><br><div align=right>回复时间：<%=rs("replyshijian")%></div></font>
</td>
</tr>
<% End If %>
</table>
</div>
<br>
<%
rs.movenext
next
%>
<table width="100%" border="0" cellpadding="2" cellspacing="2" borderColorLight=#808080 borderColorDark=#ffffff>
<tr>
<%if rs.pagecount > 0 then%>
<td width="13%" align="center">当前页<%=intpage%>/<%=rs.PageCount%></td>
<%else%>
<td width="34%" align="center">当前页0/0</td><%end if%>
<td width="53%" align="center"> <a href="index.asp?page=1">首页</a>|
<%if pre then%>
<a href="index.asp?page=<%=intpage -1%>">上一页</a>| <%end if%>
<%if last then%>
<a href="index.asp?page=<%=intpage +1%>">下一页</a> |<%end if%>
<a href="index.asp?page=<%=rs.PageCount%>">尾页</a>|转到第
<select name="sel_page" onchange="javascript:location=this.options[this.selectedIndex].value;">
<%
for i = 1 to rs.PageCount
if i = intpage then%>
<option value="index.asp?page=<%=i%>" selected><%=i%></option>
<%else%>
<option value="index.asp?page=<%=i%>"><%=i%></option>
<%
end if
next
%>
</select>页
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div><br>
<div align=center>
<div align=center style="width: 444; height: 649">
<form method="post" name="input" action="sava.asp" onSubmit="return Validator.Validate(this,2)" >
<div class="commentbox" style="width: 612; height: 432">
<table border="0" width="84%" cellspacing="1" cellpadding="0" height="70" bgcolor="#ffffff">
<tr>
<td width="100%" height="70">
<table border="0" width="108%" bgcolor="#FFFFFF" cellspacing="0" height="476">
<tr>
<td width="46%" height="211">
<table border="0" width="101%" height="357" cellspacing="0" cellpadding="0">
<tr>
<td width="6%" height="21">您的大名：</td>
<td width="39%" height="21"><input type="hidden" name="action" value="ok"><input name="name" type="text" id="name" size="30" maxlength="12" dataType="Require" msg="昵称不能为空"></td>
</tr>
<tr>
<td width="6%" height="21">您的E-mail：</td>
<td width="39%" height="21"><input name="mail" type="text" id="mail" size="30" dataType="Email" msg="信箱格式不正确"></td>
</tr>
<tr>
<td width="6%" height="21">您的QQ：</td>
<td width="39%" height="21"><input name="qq" type="text" id="qq" size="30" maxlength="10" dataType="QQ" msg="QQ号吗有问题"></td>
</tr>
<tr>
<td width="6%" height="9">您的主页：</td>
<td width="39%" height="9"><input name="homeurl" type="text" id="homeurl" size="30" value="http://chichi.6to23.com" require="false" dataType="Url" msg="非法的Url,是不是没加http://呢?"></td>
</tr>
<tr>
<td width="16%" height="75">
<p align="left">选择头像：</td>
<td width="84%" height="75">
<input type="radio" name="FaceImage" value="images/face01.gif" checked><img border="0" src="images/face01.gif" width="32" height="32">
<input type="radio" name="FaceImage" value="images/face02.gif"><img border="0" src="images/face02.gif" width="32" height="32">
<input type="radio" name="FaceImage" value="images/face03.gif"><img src="images/face03.gif" width="32" height="32">
<input type="radio" name="FaceImage" value="images/face041.gif"><img src="images/face04.gif" width="32" height="32">
<input type="radio" name="FaceImage" value="images/face05.gif"><img src="images/face05.gif" width="32" height="32"><br>
<input type="radio" name="FaceImage" value="images/face06.gif"><img src="images/face06.gif" width="32" height="32">
<input type="radio" name="FaceImage" value="images/face07.gif"><img src="images/face07.gif" width="32" height="32">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -