📄 ly.asp
字号:
<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<head>
<title>欢迎访问留言薄</title>
<STYLE type="text/css">
<!--
a:link {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited {text-decoration: none; color: #000000 }
A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all}
p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select {FONT-SIZE: 9PT;}
option {FONT-SIZE: 9pt;}
textarea {FONT-SIZE: 9pt;}
-->
</STYLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
</head>
<%
er=trim(Request("er"))
if er="0" then
Response.Write "<script>alert('你所发表的信息不会立即显示出来，将会等待管理员进行审核！');</script>"
end if
%>
<body bgcolor="#B2C5D3">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="760" id="table1">
<tr>
<td><img border="0" src="images/lyTOPS.gif" width="760" height="89"></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="5" cellspacing="0" width="760" id="table2" bgcolor="#FFFFFF">
<tr>
<td>
<p align="center">
<a href="ly-write.asp">
<img border="0" src="images/lywrite.gif" width="89" height="37"></a>
<a href="ly.asp">
<img border="0" src="images/lyread.gif" width="89" height="37"></a></td>
</tr>
</table>
</div>
<div align="center">
<table border="1" cellpadding="5" width="760" id="table3" style="border-collapse: collapse" bordercolor="#C0C0C0" bgcolor="#FFFFFF">
<tr>
<td width="30" align="center" background="images/bg1.gif">
<font color="#FFFFFF"><b>状态</b></font></td>
<td width="400" align="center" background="images/bg1.gif">
<font color="#FFFFFF"><b>标 题</b></font></td>
<td width="146" align="center" background="images/bg1.gif">
<font color="#FFFFFF"><b>发 表 人</b></font></td>
<td width="146" align="center" background="images/bg1.gif">
<font color="#FFFFFF"><b>发 表 时 间</b></font></td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select id,adduser,addtime,title,bm,sh from [ly] where bm='0' and sh=1 order by id desc , hftime desc",conn,1,1
if rs.recordcount<>0 then
page=int(request("page"))
rs.PageSize=20
pagecount=rs.pagesize
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
for i=1 to pagecount
%>
<tr>
<td width="30" align="center">
<img border="0" src="images/lyistop.gif" width="18" height="12"></td>
<td width="400">
<%
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open "select id,lyid from [lyhf] where lyid="&rs("id")&" ",conn,1,1
if rs2.recordcount<>0 then
Response.Write "<img src=images/nofollow2.gif>"
else
Response.Write "<img src=images/nofollow.gif>"
end if
Response.Write "<a href=lyview.asp?id="&rs("id")&" title='"&rs("title")&"'>"&titleb(rs("title"),30)&"</a>"
%>
</td>
<td width="146" align=center><%=rs("adduser")%></td>
<td width="146" align=center><%=rs("addtime")%></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
else
Response.Write "<tr><td colspan=4>暂无信息</td></tr>"
end if
%>
</table>
</div>
<div align="center">
<table border="1" cellpadding="5" width="760" id="table4" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr>
<td>
<center>
<%if rs.recordcount<>0 then
if page>1 then
response.write "<a href="&request.servervariables("URL")&"?page=1&lm="&trim(request("lm"))&"&lb="&trim(request("lb"))&"&word="&trim(request("word"))&">首页</a> "
response.write "<a href="&request.servervariables("URL")&"?page="&page-1&"&lm="&trim(request("lm"))&"&lb="&trim(request("lb"))&"&word="&trim(request("word"))&">上一页</a> "
end if
if page<rs.pagecount then
response.write "<a href="&request.servervariables("URL")&"?page="&page+1&"&lm="&trim(request("lm"))&"&lb="&trim(request("lb"))&"&word="&trim(request("word"))&">下一页</a> "
response.write "<a href="&request.servervariables("URL")&"?page="&rs.pagecount&"&lm="&trim(request("lm"))&"&lb="&trim(request("lb"))&"&word="&trim(request("word"))&">尾页</a> "
end if
response.write "共"&rs.recordcount&"条 每页显示"&pagecount&"条 共"&rs.pagecount&"页 "
%>
<script language="JavaScript">
<!--
function FP_jumpMenu(el,frm,sel) {//v1.0
var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0;
if('_new'==frm) open(href); else eval(frm+".location='"+href+"'");
}
// -->
</script>
<select size="1" onchange="FP_jumpMenu(this,'window',false)" id="id1" name="D1" style="font-size: 9pt; border-style: solid; border-width: 1px">
<%for i=1 to rs.pagecount%>
<option value="<%=request.servervariables("URL")%>?page=<%=i%>&lm=<%=trim(request("lm"))%>&lb=<%=trim(request("lb"))%>&word=<%=trim(request("word"))%>" <%if page=i then response.write "selected"%> style="font-size: 9pt">第<%=i%>页</option>
<%next%>
</select>
<%end if%>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="760" height="37" id="table5">
<tr>
<td background="images/lydown.gif"> </td>
</tr>
</table>
</div>
<%
Response.Write an
rs.close:set rs=nothing
conn.close:set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -