⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 一个用ASP编写的小型留言本的代码 简单 实用
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset") 
sql="select * from book order by id desc"
rs.open sql,db,1,1
%>

<%
Set Rs1=Server.CreateObject("ADODB.RecordSet")

sql="select * from u where ID=1"
Rs1.Open sql,db,3,2
%>

<%
dim pagenum
rs.pagesize=10
pagecount1=rs.pagecount
if request.querystring("pagenum")=0 or request.querystring("pagenum")="" then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if

%>

<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs1("uname")%>'S 本本</title>
<style type="text/css">
<!--
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
.style1 {color: #22C0EF}
.style2 {color: #ABCB00}
-->
</style> 
</head>

<body topmargin="0">

<div align="center">
	<table border="0" width="700" cellspacing="0" cellpadding="0">
		<tr>
			<td background="images/top_bg.gif">
			<img border="0" src="images/top_bg.gif" width="44" height="20"></td>
		</tr>
	</table>
</div>
<div align="center">
<div align="center">
	<table border="0" width="700" cellspacing="3" cellpadding="0">
		<tr>
			<td>
			<p align="right"><a href="write.asp">
			<img border="0" src="images/post.gif" width="77" height="22"></a></td>
		</tr>
	</table>
</div>
	<table border="0" width="700" cellspacing="3" cellpadding="0">
		<tr>
			<td><span style="font-size: 9pt">
			<img border="0" src="images/BoardNav.gif" width="14" height="15"><b><a href="http://paopaoo.com/"><font color="#000000">PaoPaoo.Com</font></a></b><img border="0" src="images/arrow.gif" width="18" height="14"><%=rs1("uname")%>'S 本本</font></span></td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="0" width="700" cellspacing="3" cellpadding="0">
		<tr>
			<td><font color="#FF0000">
			<span style="font-size: 9pt; font-weight: 700">公告：</span></font><font color="#444444"><span style="font-size: 9pt"><%=rs1("gg")%></span></font><font color="#0058B0"><span style="font-size: 9pt">（<%=rs1("ggt")%>）</span></font></td>
		</tr>
	</table>
</div>
<div align="center">
  <%do while not rs.eof and i<=10%>
	<table border="1" width="700" cellpadding="0" style="border-collapse: collapse" bordercolor="#0058B0">
		<tr>
			<td colspan="2" background="images/Top-Bg.jpg">
			<table border="0" width="100%" cellspacing="0" cellpadding="0">
				<tr>
					<td width="9">
					<img border="0" src="images/Top-Bg.jpg" width="9" height="23"></td>
					<td>&nbsp; </td>
					<td width="18">
					<img border="0" src="images/Arrow1.gif" width="10" height="6"></td>
				</tr>
			</table>
			</td>
		</tr>
		<tr>
			<td width="117" valign="top">
			<table border="0" width="100%" cellspacing="3" cellpadding="0">
				<!-- MSTableType="layout" -->
				<tr>
					<td width="82%">
					<p align="left"><font color="#468C00">
					<span style="font-size: 9pt; font-weight: 700"><%=rs("name")%></span></font></td>
					<td width="13%">
					<p align="left">
					<img border="0" src="images/<%=rs("sex")%>.gif" width="14" height="17"></td>
				</tr>
				<tr>
					<td colspan="2">
					<p align="center">
					<img border="0" src="face/<%=rs("tu")%>.gif" width="100" height="100"></td>
				</tr>
			</table>
			</td>
			<td width="580" valign="top">
			<table border="0" width="100%" cellpadding="0">
				<!-- MSTableType="layout" -->
				<tr>
					<td width="8%">
					<a href="mailto:<%=rs("mail")%>">
					<img border="0" src="images/Email.gif" width="42" height="16"></a></td>
					<td width="11%">
					<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("qq")%>&Site=paopaoo.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:<%=rs("qq")%>:8 alt="点击这里给我发消息"></a></td>
					<td width="42%">　</td>
					<td width="37%">
					<table border="0" width="100%" cellspacing="0" cellpadding="0">
						<tr>
							<td><font color="#444444">
							<span style="font-size: 8pt">TIME:</span><strong class="Ver-10-Black" title="回帖时间"><span style="font-size: 8pt"><%=rs("time")%></span></strong></font></td>
						</tr>
					</table>
					</td>
				</tr>
				<tr>
					<td colspan="4">
					<img border="0" src="images/line.gif" width="576" height="1"></td>
				</tr>
			</table>
			<table border="0" width="100%" cellspacing="5" cellpadding="0">
				<tr>
					<td><font color="#444444" face="宋体"><strong>
					<span style="font-size: 12pt">Re:</span></strong></font><font face="宋体"><br>
					<span style="font-size: 9pt"><%=rs("re")%><br>
					<br>
					</span>
					<img border="0" src="images/Sign.gif" width="83" height="7"><br>
					<font color="#FF0000"><span style="font-size: 9pt">站长回复：<%=rs("hf")%></span></font></font></td>
				</tr>
			</table>
			<table border="0" width="100%" cellspacing="0" cellpadding="0">
				<tr>
					<td><span style="font-size: 9pt">
					<img border="0" src="images/stat_icon.gif" width="16" height="15"> 
					IP:<%=rs("ip")%> 浏览器类型：<%=rs("from")%></span></td>
				</tr>
			</table>
			</td>
		</tr>
	</table>
</div>

<hr width="700" size="1" color="#FFFFFF">
<div align="center">
  <%
  i=i+1
  rs.movenext
  loop
  %>
	<table border="0" width="700" cellpadding="0">
		<tr>
			<td>			<p align="right"><b><a href=index.asp?pagenum=1>
			<span style="font-size: 9pt"><font color="#0058B0">首页</font></span></a><span style="font-size: 9pt"><font color="#0058B0">
              <%if pagenum>1 then%>
			</font>
			<a href=index.asp?pagenum=<%=(pagenum-1)%>><font color="#0058B0">上一页</font></a><font color="#0058B0">
			<%else%>
			上一页
			<%end if%> 
			<%if pagenum < trim(pagecount1) then%>
			</font>
			<a href=index.asp?pagenum=<%=(pagenum+1)%>><font color="#0058B0">下一页</font></a><font color="#0058B0">
			<%else%>
			下一页
			<%end if%> </font> <a href=index.asp?pagenum=<%=pagecount1%>>
			<font color="#0058B0">尾页</font></a><font color="#0058B0"> &nbsp; 每页10/共<%=rs.pagecount%>页</span></span></b></font></span></b></p></p></td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="0" width="700" cellpadding="0">
		<tr>
			<td>
			<p align="center"><span style="font-size: 9pt">&lt; 
			<a href="mailto:<%=rs1("mail")%>"><font color="#444444">联系我们</font></a>&nbsp;-&nbsp;<a style="text-decoration: none" href="http://<%=rs1("http")%>"><font color="#444444">网站导航</font></a> 
			&gt;</span><br>
			<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs1("qq")%>&Site=paopaoo.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:<%=rs1("qq")%>:8 alt="点击这里给我发消息"></a><br>
			<span style="FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Tahoma, Arial">
			Powered by
			<a style="color: #000000; text-decoration: none" target="_blank" href="http://www.paopaoo.com">
			<b>EonianBai</b> <span style="color: #FF9900"><b>1</b></span><b style="COLOR: #ff9900">.0.0</b></a> 
			Copyright &copy; 2005-19 <a href="http://www.paopaoo.com">
			<span style="color: #000000; text-decoration: none">Eonian Bai</span></a></span></td>
		</tr>
	</table>
</div>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -