?? index.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="conn.asp"--><!--#include file="md5.asp"--><%
dim ddx,bookmd5
ddx=trim(request("b"))
bookmd5=md5(trim(request("ck"&ddx)))
actions = trim(request("action"))
keys = trim(request("keytext"))
if ddx<>"" then
set srs=server.CreateObject("adodb.recordset")
srs.open "select id,baomima from qwbmbook where ID="& ddx &" and shenhe=1 and baomima='"& bookmd5 &"'",conn,1,1
if srs.eof and srs.bof then
response.write "<script>alert(""查看碼不正確，所以不能查看當(dāng)前的留言"");history.go(-1);</script>"
response.end
else
md5obj=srs("baomima")
md5objid=srs("id")
end if
src.close
set srs=nothing
end if
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=qwbmset2%>——Powered By Qwbm</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="KeyWords" content="<%=qwbmset3%>">
<meta name="Description" content="<%=qwbmset4%>">
<meta name="generator" content="dreamwerver8" />
<meta name="author" content="www.qwbm.com,深山行者" />
<meta name="copyright" content="Copyright 2008,www.qwbm.com,深山行者,565449214" />
<link type="image/x-icon" href="favicon.ico" rel="shortcut icon" />
<link type="image/x-icon" href="favicon.ico" rel="icon" />
<link href="skin/<%=qwbmbkset11%>/book.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--container start-->
<div id="container">
<%call header("1",""& actions &"","","","")%>
<%if actions = "so" then%>
<!--***********************************search start***********************************-->
<div id="search">
<div class="tc"><div class="tl"></div><div class="tr"></div></div>
<div class="searchc">
<form id="form1" name="form1" method="post" action="?action=soso">
<input type="text" name="keytext" class="searchi" />
<input type="submit" name="Submit" class="searchs" value="提交" /><br />
<strong>歡迎使用深山留言板V2.0</strong>
</form>
</div>
<div class="bc"><div class="bl"></div><div class="br"></div></div>
<div class="dy"></div>
</div>
<!--***********************************search end***********************************-->
<%else%>
<!--***********************************main start***********************************-->
<div id="main">
<div class="tc"><div class="tl"></div><div class="tr"></div></div>
<%
if actions = "soso" and keys <> "" then
bsql="select toux,baomima,liuyan,name,liuyantime,hui,liuyanip,id from qwbmbook where liuyan like '%"& keys &"%' and shenhe=1 order by id desc"
else
bsql="select toux,baomima,liuyan,name,liuyantime,hui,liuyanip,id from qwbmbook where shenhe=1 order by id desc"
end if
set brs=server.CreateObject("adodb.recordset")
brs.open bsql,conn,1,1
if brs.eof and brs.bof then
%>
<div class="booknull">
暫無留言
</div>
<%else
Dim page,recordsperpage
recordsperpage=qwbmbkset5
page=Trim(Request.QueryString("page"))
brs.Pagesize=recordsperpage
If Not IsEmpty(page) Then
If Not IsNumeric(page) Then
page=1
Else
page=Clng(page)
End If
If page>=brs.Pagecount Then
page=brs.Pagecount
Elseif page<=0 Then
page=1
Else
prs.AbsolutePage=page
End If
Else
page=1
End If
brs.AbsolutePage=page
Do While brs.Eof=False and recordsperpage>0
%>
<%if md5objid = brs("id") and md5obj = brs("baomima") then%>
<div class="book">
<div class="bookl">
<img src="./images/tu/<%=brs("toux")%>" alt="" title="" />
<span><%=brs("name")%></span>
</div>
<div class="bookr">
<p class="be"><%=qqface(brs("liuyan"))%></p>
<p class="bb">(<%dim objip
objip=split(brs("liuyanip"),".")
response.write objip(0) & "." & objip(1) & "." & objip(2) & ".*" %>) <%=brs("liuyantime")%> <a href="#top">TOP↑</a></p>
<%if brs("hui")<>"" then%>
<p class="bh">管理員回復(fù)：<%=qqface(brs("hui"))%></p>
<%end if%>
</div>
<div class="clear1"></div>
</div>
<%else%>
<div class="book">
<div class="bookl">
<img src="./images/tu/<%=brs("toux")%>" alt="" title="" />
<span><%=brs("name")%></span>
</div>
<%if brs("baomima")<>"" then%>
<script language="javascript" type="text/javascript">
function ckcheack<%=brs("id")%>(){
var cform=document.ckform<%=brs("id")%>;
if (cform.ck<%=brs("id")%>.value == ""){
alert("回復(fù)查看碼不能為空,請輸入回復(fù)查看碼");
cform.ck<%=brs("id")%>.focus();
return false;
}
return true;
}
</script>
<div class="bookr">
<p class="bb"><span class="bb01"><%objipa=split(brs("liuyanip"),".")
response.write objipa(0) & "." & objipa(1) & "." & objipa(2) & ".*" %></span> <span class="bb02"><%=brs("liuyantime")%></span> <span class="bb03"><a href="#top">TOP↑</a></span></p>
<p class="bm">
<form name="ckform<%=brs("id")%>" method="post" action="?id=book&b=<%=brs("id")%>" onSubmit="return ckcheack<%=brs("id")%>();">
<h5><span class="bm01">查看碼：</span><input name="ck<%=brs("id")%>" type="text" size="35" class="bmi" />
<input type="submit" name="Submit" value="確定" class="bmc" />
</h5>
<span class="bm02">請輸入查看碼查看留言內(nèi)容與回復(fù)內(nèi)容</span>
</form>
</p>
</div>
<%else%>
<div class="bookr">
<p class="bb"><span class="bk01"><%objipa=split(brs("liuyanip"),".")
response.write objipa(0) & "." & objipa(1) & "." & objipa(2) & ".*" %></span> <span class="bk02"><%=brs("liuyantime")%></span> <span class="bk02"><a href="#top">TOP↑</a></span></p>
<p class="be"><%=qqface(brs("liuyan"))%></p>
<%if brs("hui")<>"" then%>
<p class="bh">管理員回復(fù)：<%=qqface(brs("hui"))%></p>
<%end if%>
</div>
<%end if%>
<div class="clear1"></div>
</div>
<%end if%>
<%recordsperpage=recordsperpage-1'
brs.MoveNext
Loop%>
<div class="clear1"></div>
<table class="bookpage">
<tr>
<td class="bookpagel"><%If page<=1 Then %>
[首頁] [上一頁]
<%Else%>
<a href="<%=filepath%>?keytext=<%=keys%>&page=<%=1%>">[首頁]</a>
<a href="<%=filepath%>?keytext=<%=keys%>&page=<%=page-1%>">[上一頁]</a>
<%End If%>
<%If page>=brs.Pagecount Then%>
[下一頁] [尾頁]
<%Else%>
<a href="<%=filepath%>?keytext=<%=keys%>&page=<%=page+1%>">[下一頁]</a>
<a href="<%=filepath%>?keytext=<%=keys%>&page=<%=brs.Pagecount%>">[尾頁]</a>
<%End If%></td>
<td class="bookpager">[頁次:<font color="red"><b><%=page%></b></font>/<%=brs.Pagecount%>頁][共<font color="red"><b><%=brs.Recordcount%></b></font>篇 <font color="red"><b><%=brs.Pagesize%></b></font>篇/每頁]
<%
brs.close
set brs=nothing%></td>
</tr>
</table>
<%end if%>
<div class="bc"><div class="bl"></div><div class="br"></div></div>
<div class="dy"></div>
</div>
<!--***********************************main end***********************************-->
<%end if%>
<%call footer("","","","","")%>
</div>
<!--container end-->
<%conn.close
set conn=nothing
%><div id="stati"><a href="http://www.qwbm.com" title="深山工作室">深山工作室</a><script src='http://s67.cnzz.com/stat.php?id=737577&web_id=737577' language='JavaScript' charset='gb2312'></script></div>
</body>
</html>
<!--
'----------------------------------------------------------------------
'**********************************************************************
'轉(zhuǎn)發(fā)時(shí)請保留此聲明信息,這段聲明不并會影響你的速度!
'******************* 深山行者文章管理系統(tǒng) *******************************
'作者:深山行者
'網(wǎng)站:http://www.qwbm.com
'電子郵件:sosufolj@163.com
'聯(lián)系QQ:565449214
'版權(quán)聲明:版權(quán)所有,源代碼公開,各種用途均可免費(fèi)使用,但是修改后必須把修改后的文件
'發(fā)送一份給作者.并且保留作者此版權(quán)信息
'**********************************************************************
'----------------------------------------------------------------------
-->?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -