default.asp
来自「基于ＡＳＰ的教育网站」· ASP 代码 · 共 107 行
ASP
107 行
<%@ Language=VBScript %>
<HTML><HEAD><META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=NetGamer content=no-cache>
<link rel="stylesheet" type="text/css" href="3.css">
<META content="MSHTML 6.00.2600.0" name=GENERATOR><title>山东教育网留言本</title></HEAD>
<BODY vLink=#000000 aLink=#000000 link=#000000 bgColor=#ffffff leftMargin=0
topMargin=0>
<div align="center">
<table width="680" border="0" height="383">
<tr>
<td background="pic2/topbg.gif" height="15"> <div align="center"><b><font color="#FFFFFF" face="楷体_GB2312" size="3"><img src="IMAGES/bj2.gif" width="10" height="10"> <font size="4">山
东 教 育 留 言 本</font> <img src="IMAGES/bj2.gif" width="10" height="10"></font></b></div></td>
</tr>
<tr>
<td background="pic2/topbg.gif" height="316">
<table height=311 cellspacing=1 cellpadding=5 width=670 align=center
bgcolor=#000000 border=0>
<tbody>
<tr>
<td bgcolor=#ffffff height="346" background="IMAGES/6.gif">
<div align="center">
<table cellspacing=0 cellpadding=0 width="99%" border=0 align="center" bgcolor="#FFFFFF">
<tr>
<td valign=top background="IMAGES/6.gif" height="12" width="33%">
<div align="left"></div>
</td>
<td valign=top background="IMAGES/6.gif" height="12" width="34%">
<div align="center"><a href="Add.asp"><img src="IMAGES/liuyan.gif" width="45" height="18" border="0"></a>
<a href="ADMIN.ASP"><img src="IMAGES/huifu.gif" width="45" height="18" border="0"></a></div>
</td>
<td valign=top background="IMAGES/6.gif" height="12" width="33%"> </td>
</tr>
<tbody>
<tr>
<td valign=top background="IMAGES/6.gif" height="12" colspan="3">
<div align="left">
<!--#include file="conn.asp"-->
<!--#include file="code.asp"-->
<%
dim rs
dim sql
dim page
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * FROM book Order By id Desc"
rs.open sql,conn,1,1
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize = 4'这里可以更改你想每页显示的留言数量
total = rs.RecordCount
mypagesize = rs.pagesize
rs.absolutepage = page
%>
<%
dim i
i=1
do while not rs.eof and mypagesize>0
id=rs("id")
name=rs("name")
email=rs("email")
homepage=rs("homepage")
qq=rs("qq")
content=rs("content")
addtime=rs("addtime")
reply=rs("reply")
head=rs("head")
T_Emot=rs("T_Emot")
%>
</div>
<table bordercolor=#cccccc cellspacing="3" cellpadding=3 width="100%" border="0" style="WORD-BREAK: break-all" align="center" bgcolor="#FFFFFF" background="IMAGES/6.gif">
<tr>
<td valign=bottom bordercolor=#333333 bgcolor="#FFFFFF" height="2">
<table width="100%" border="0" align="center" height="11" bordercolor="#CC9999">
<tr>
<td bgcolor="#CC99CC" height="2">
<div align="center"><font size="1">◇◇◇ ◇◇◇ ◇◇◇
◇◇◇ ◇◇◇ ◇◇◇ ◇◇◇ ◇◇◇ ◇◇◇ ◇◇◇ ◇◇◇ ◇◇◇ ◇◇◇ ◇◇◇
◇◇◇ ◇◇◇ ◇◇◇ ◇◇◇</font></div>
</td>
</tr>
</table>
</td>
</tr>
<tbody>
<tr>
<td valign=bottom bordercolor=#333333 bgcolor="#FFFFFF" background="IMAGES/6.gif">
<table cellspacing=0 cellpadding=0 border=0>
<tbody>
<tr>
<td width=14><img
src="IMAGES/top_l.gif"></td>
<td
background="IMAGES/top_c.gif"></td>
<td width=16><img
src="IMAGES/top_r.gif"></td>
</tr>
<tr>
<td valign=top width=14
background="IMAGES/center_l.gif"> </td>
<td style="LINE-HEIGHT: 14pt"
bgcolor=#fffff1> <img src=" <%=T_Emot%>" border="0">
<%content=replace(rs("content"),vbNewline,"<br>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?