📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="ubbcode.asp" -->
<%
sql2="select * from style"
set rs2=server.createobject("adodb.recordset")
On error resume next
rs2.open sql2,conn,1
%>
<% idd=rs2("skinnum") %>
<%
sql3="select * from skin where id="&idd&""
set rs3=server.createobject("adodb.recordset")
on error resume next
rs3.open sql3,conn,1
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<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>Welcome to 迷你留言本</title>
<STYLE type=text/css>TD {
FONT-SIZE: 9pt; LINE-HEIGHT: 12pt
}
A:link {
COLOR: #CC6600; TEXT-DECORATION: none
}
A:visited {
COLOR: #CC6600; TEXT-DECORATION: none
}
A:hover {
COLOR: #CC6600; TEXT-DECORATION: underline
}
</STYLE>
<style>
table{table-layout:fixed;}
td{word-break:break-all;word-wrap:break-word;}
</style>
</head>
<body bgcolor="#FFFFFF" background="skin/<%=rs3("beijingpic")%>">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="1" width="400" height="100">
<tr>
<td width="100%" height="1">
<p align="center"><img border="0" src="skin/<%=rs3("logopic")%>">
</td>
</tr>
</table>
<br>
<table width="481" border="0" style="border: 1pt dotted black" cellspacing="0" cellpadding="0" align="center" height="27" background="skin/<%=rs3("tablebg")%>">
<tr background="skin/<%=rs3("tablebg")%>">
<td height="25" width="71"><font color="#999999">■全部留言]</font></td>
<td height="25" width="70"><font color="<%=rs3("textcolor")%>">■<a href="login.asp">管理中心</a>]</font></td>
<td height="25" width="340"><font color="<%=rs3("textcolor")%>">■<a href="http://my.phome.cn/knight999/index.asp">官方论坛</a>]</font></td>
</tr>
</table>
</center>
</div>
<br>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="482" height="125" style="border: 1pt dotted <%=rs3("tablecolor")%>" align="center">
<tr>
<td colspan="4" background="skin/<%=rs3("tablebg")%>" height="17">
<div align="center"><font color="white">||||||||||签写留言||||||||||</font></div>
</td>
</tr>
<tr>
<td colspan="4" height="127">
<form name="form1" method="post" action="ok.asp">
<table width="482" border="0" cellspacing="0" cellpadding="0" align="center" height="118">
<tr>
<td width="71" height="32">
<div align="center">昵称：</div>
</td>
<td width="411" height="32">
<input type="text" name="name" style="border: 1pt dotted <%=rs3("tablecolor")%>;background-color:transparent" size="24" maxlength="8">
<font color="#FF0000">*请不要超过8个字符</font></td>
</tr>
<tr>
<td width="71" height="23">
<div align="center">留言：</div>
</td>
<td rowspan="2" width="411">
<textarea name="body" cols="45" style="border: 1pt dotted <%=rs3("tablecolor")%>;background-color:transparent" onblur="this.value=this.value.substr(0,200)" onpaste="return false" rows="2"></textarea>
</td>
</tr>
<tr>
<td width="71" height="25"> </td>
</tr>
<tr>
<td width="71"> </td>
<td width="411"><font color="#FF0000">*本程序支持UBB功能，留言内容不要超过200个字符</font></td>
</tr>
<tr>
<td width="71" height="29"> </td>
<td width="411" height="29">
<div align="left">
<input type="submit" name="Submit" value=" 提交 " style="border: 1pt dotted black">
<input type="reset" name="Submit2" value=" 取消 " style="border: 1pt dotted black">
</div>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</center>
</div>
<br>
<div align="center">
<center>
</center>
</div>
<%
sql="select * from book order by id desc"
set rs=server.createobject("adodb.recordset")
On error resume next
rs.open sql,conn,1
rs.PageSize=5
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
i=1
rs.AbsolutePage=page
if rs.eof then
response.write"<div align=center><font size=2 color=red>对不起，暂时没有留言！</font></div>"
else
do while not rs.eof
%><br>
<div align="center">
<table border="0" cellpadding="0" cellspacing="1" width="482" height="51" style="word-break: break-all; border: 1pt dotted <%=rs3("tablecolor")%>">
<tr>
<td width="12%" height="14" align="center"><font color="<%=rs3("textcolor")%>">昵称：</font></td>
<td width="52%" height="14"><font color="<%=rs3("textcolor")%>"><%=UBBCode(dvHTMLEncode(left(rs("name"),6)))%></font></td>
<td width="36%" height="14">
<p align="right"><font color="<%=rs3("textcolor")%>"><%=rs("time")%></font></td>
</tr>
<tr>
<td width="12%" height="16" align="center"><font color="<%=rs3("textcolor")%>">留言：</font></td>
<td width="88%" height="1" colspan="2" rowspan="2">
<p align="left"><font color="<%=rs3("textcolor")%>"><% liuyan=UBBCode(dvHTMLEncode(left(rs("body"),200))) %><% if rs("visible")=1 then response.write"<font color=red>※对不起！本条留言已经隐藏，只有管理员才能看到！※</font>" else response.write""&liuyan&"" end if %></font></td>
</tr>
<tr>
<td width="12%" height="1" align="left"></td>
</tr>
</table>
</div>
<% i=i+1
if i>rs.PageSize then exit do
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<table width="480" border="0" cellspacing="0" cellpadding="0" align="center">
<tr background="skin/<%=rs3("tablebg")%>">
<td colspan=3 align=right width="478"> <font size="2">
<%if page=1 and not page=pagecount then%>
<font color="<%=rs3("textcolor")%>">第<%=page%>页 | 共<%=pagecount%>页 |</font> <a href="?page=<%=page+1%>">
下一页</a> | <a href="?page=<%=pagecount%>">末一页</a>
<%elseif page=pagecount and not page=1 then%>
第<%=page%>页 | 共<%=pagecount%>页 | <a href="?page=<%=page-1%>">上一页</a> |
<a href="?page=<%=1%>">第一页</a>
<%elseif page<1 then%>
没有任何记录
<%elseif page>pagecount then%>
没有任何记录！
<%elseif page=1 and page=pagecount then%>
<%else%>
第<%=page%>页 | 共<%=pagecount%>页 | <a href="?page=<%=1%>">第一页</a> | <a href="?page=<%=page-1%>">上一页
</a> | <a href="?page=<%=page+1%>">下一页</a> | <a href="?page=<%=pagecount%>">末一页</a>
</font>
</td>
</tr>
</table>
<p></p>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="300">
<tr>
<td width="298"><font color="<%=rs3("textcolor")%>">copyright@迷你留言本 2006.6</font></td>
</tr>
</table>
</center>
</div>
<%
rs3.close
%>
<%
rs2.close
%>
<%end if%>
<% end if %></body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -