📄 default.asp
字号:
<%@ 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></HEAD>
<BODY vLink=#000000 aLink=#000000 link=#000000 bgColor=#ffffff leftMargin=0
topMargin=0>
<TABLE height="75%" cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR bgColor=#000000 height=1>
<TD></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR bgColor=#aaaaaa height=30>
<TD width="368"> 你现在的位置是 -> 青浦旅游网留言板</a>
-> <font color="#FF3300">留言区</font> </TD> <TD width="408"><FONT face=webdings size=2>4 </FONT><a href="add.asp"><font color="#CCFF00">发表留言</font></a>
<FONT face=webdings size=2>4 </FONT><a href="default.asp">首页</a> <FONT face=webdings>4</FONT><FONT face=webdings size=2> </FONT><a href="../default.asp">返回主页</a>
</TD></TR></TBODY></TABLE> <TABLE cellSpacing=0 cellPadding=0 width="70%" border=0 align="center">
<TBODY>
<TR>
<TD vAlign=top>
<!--#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 = 8'更改每页显示的留言数量
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")
%>
<TABLE borderColor=#cccccc cellSpacing="5" cellPadding=5 width="100%" border="0" style="WORD-BREAK: break-all">
<TBODY>
<TR>
<TD vAlign=bottom borderColor=#333333>
<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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -