📄 book_index.asp
字号:
</TR>
</TBODY>
</TABLE></TD>
</TR>
<%
shou =Request("shou")
if shou="" then
sql="select * from liuyan order by id DESC"
else
sql="select * from liuyan where B_name like '%"&shou&"%' or B_dom like '%"&shou&"%' order by id DESC "
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF Not rs.eof Then
proCount=rs.recordcount
rs.PageSize=20 '定义显示数目
if not IsEmpty(Request("ToPage")) then
ToPage=CInt(Request("ToPage"))
if ToPage>rs.PageCount then
rs.AbsolutePage=rs.PageCount
intCurPage=rs.PageCount
elseif ToPage<=0 then
rs.AbsolutePage=1
intCurPage=1
else
rs.AbsolutePage=ToPage
intCurPage=ToPage
end if
else
rs.AbsolutePage=1
intCurPage=1
end if
intCurPage=CInt(intCurPage)
For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if
%>
<TR>
<TD width=20> </TD>
<TD><b><%=rs("B_name")%></b> 在 (<%=rs("B_date")%>) <a href="?work=edit&id=<%=rs("id")%>" class="jiage">修改(回复)留言</a></TD>
</TR>
<TR>
<TD> </TD>
<TD><span class="STYLE13">电话: <%=rs("B_tel")%> | QQ/Msn <%=rs("B_msn")%> | E-Mail <%=rs("B_mail")%> | </span></TD>
</TR>
<TR>
<TD> </TD>
<TD class=formatU><%=rs("B_dom")%> <br>
<br>
<span class="STYLE12">
<%if trim(rs("B_hui"))<>"" then%>
管理员回复: <BR>
<%=rs("B_hui")%>
<%end if%>
</span></TD>
</TR>
<TR>
<TD colspan="2"><hr size="1"></TD>
</TR>
<%
rs.MoveNext
next
%>
<TR>
<TD> </TD>
<TD><TABLE width="100%" align="center">
<TR>
<TD><span style="font-size: 9pt;"> 总共：<font color="#ff0000"><%=rs.PageCount%></font>页, <font color="#ff0000"><%=proCount%></font>条留言, 当前页：<font color="#ff0000"> <%=intCurPage%> </font>
<% if intCurPage<>1 then
%>
<a href="?ToPage=1&shou=<%=shou%>"></a>|<a href="?ToPage=<%=intCurPage-1%>&shou=<%=shou%>">上一页</a>|
<% end if
if intCurPage<>rs.PageCount then %>
<a href="?ToPage=<%=intCurPage+1%>&shou=<%=shou%>">下一页</a>|<a href="?ToPage=<%=rs.PageCount%>&shou=<%=shou%>"> 最后页</a>|
<% end if%>
</span></TD>
</TR>
</TABLE>
<%
else
%>
<TABLE width="80%" align="center">
<TR>
<TD>对不起！目前库中没有您要查询记录！[===<span class="style2"><%= Request("shou") %></span>===]</TD>
</TR>
</TABLE>
<%
end if
rs.close
set rs=nothing
%></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<%end if%>
<%
if Request("work")="yz" then
'可以下面设管理员密码 现在的密码是admin admin
if Request("L_name")="admin" and Request("B_pss") ="admin" then
session("admin_name")="admin"
Response.Redirect "book_index.asp?ok=ck"
else
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
Response.Write "<style type='text/css'>"
Response.Write "body {"
Response.Write "margin-left: 5%;"
Response.Write "margin-top: 15%;"
Response.Write "}"
Response.Write "td{"
Response.Write "font-family:宋体;"
Response.Write "font-size: 9pt;"
Response.Write "}"
Response.Write "</style>"
Response.Write "</head>"
Response.Write "<body>"
Response.Write "<div align='center'><B>对不起你的用户名密码，请<a href='book_index.asp?work=long' target='_parent'>重新登陆</a>！</B>"
Response.Write "</div>"
Response.Write "</body>"
Response.Write "</html>"
Response.End
end if
end if
if Request("work")="long" then
%>
<tr>
<td bgcolor="#FFFFFF"><form name="form2" method="post" action="book_index.asp?work=yz">
用户名:
<input name="L_name" type="text" id="L_name">
密码:
<label>
<input name="B_pss" type="text" id="B_pss">
</label>
<input type="submit" name="Submit4" value="提交">
</form></td>
</tr>
<%end if%>
</table></td>
<td width="20" background="Style/<%=Root%>/gsjs_right_bg01.gif"></td>
</tr>
<tr>
<td background="Style/<%=Root%>/gsjs_bg01.gif"></td>
<td valign="bottom" background="Style/<%=Root%>/gsjs_right_bg01.gif"><img src="Style/<%=Root%>/gsjs_img04.gif" width="20" height="148"></td>
</tr>
<tr>
<td colspan="3"><img src="Style/<%=Root%>/gsjs_img02.gif" width="540" height="18"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="9" background="Style/<%=Root%>/cont_tbl01_bg01.gif"></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="Style/<%=Root%>/cont_img02.gif" width="580" height="17"></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="33" valign="top" background="Style/<%=Root%>/cont_right_bg01.gif"><img src="Style/<%=Root%>/cont_right_img01.gif" width="33" height="431"></td>
</tr>
<tr>
<td valign="top"><img src="Style/<%=Root%>/cont_di_img01.gif" width="30" height="29"></td>
<td align="center" valign="middle" background="Style/<%=Root%>/cont_di_bg01.gif" style="padding-top:9px; "><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="39%"><table width="304" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="57"><img src="Style/<%=Root%>/yqlj_img01.gif" width="57" height="15"></td>
<td width="247"><MARQUEE
align="left" width=230 scrollAmount=1 scrollDelay=4 class="top_m_txt01" onmouseover="this.stop()" onmouseout="this.start()">
<% call ShowAnnounce(5) %>
</MARQUEE></td>
</tr>
</table></td>
<td width="61%" align="right" class="top_m_txt01"><script language="JavaScript" type="text/javascript" src="inc/site.asp?online=1&show=all"></script></td>
</tr>
</table></td>
<td valign="top"><img src="Style/<%=Root%>/cont_di_img02.gif" width="33" height="29"></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="Inc/foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -