📄 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(""查看码不正确，所以不能查看当前的留言"");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">管理员回复：<%=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("回复查看码不能为空,请输入回复查看码");
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">请输入查看码查看留言内容与回复内容</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">管理员回复：<%=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>
<!--
'----------------------------------------------------------------------
'**********************************************************************
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'******************* 深山行者文章管理系统 *******************************
'作者:深山行者
'网站:http://www.qwbm.com
'电子邮件:sosufolj@163.com
'联系QQ:565449214
'版权声明:版权所有,源代码公开,各种用途均可免费使用,但是修改后必须把修改后的文件
'发送一份给作者.并且保留作者此版权信息
'**********************************************************************
'----------------------------------------------------------------------
-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -