<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><%dd_filepath="../"%>
<!--#include file="../inc/qwbm.conn.asp"-->
<!--#include file="../inc/qwbm.md5.asp"-->
<!--#include file="inc/sub_message.asp"-->
<%
ids = trizer("id")			'主要是用来处理密码验证的
pages = trizer("page")		'分页
actions = tristr("action")	'搜索与密码处理
keywords = tristr("keyword")'搜索关键字


'以下是准备构建多条件查询
qswhere = ""
	if qwbm_book_qqshow=1 then	'用QQ秀作为头像，就必须显示只添加QQ号的用户	1 使用QQ秀 0 使用系统头像
		qswhere = " and quqq<>''"
	end if

keywhere = ""
	if keywords <> "" then
		keywhere = " and liuyangame like '%"& keywords &"%'"
	end if

idwhere = ""
	if actions = "cakan" and ids <> "" then
		idwhere = " and id="& ids &""
	end if

indebsql="select id,nickname,liuyangame,liuyantime,liuyanip,huigame,showbaomima,touxiang,quurl,quemail,quqq,qusex,qudizhi,tuijian from qwbm_message where shenhe=1"& qswhere & keywhere &" and gailouid=0 order by tuijian desc,id desc"


if actions = "cakan" then
	pageurl = ""
	if pages <> "" then
		pageurl = "?keyword="&keywords&"&page="&pages
	end if
	inmdsql="select top 1 id,showbaomima from qwbm_message where shenhe=1"& idwhere &""
	set rs=server.CreateObject("adodb.recordset")
	rs.open inmdsql,conn,1,1
	if rs.eof and rs.bof then
		call errbox("没有找到留言","","","","")
	else
		kanmima = md5(tristr("ckimima"&ids&""))
		if rs("showbaomima") <> "" and rs("showbaomima") <> kanmima then
			call errbox("查看密码不正确","","","","")
		else
			response.Cookies("qwbyw_id"&rs("id")&"") = rs("showbaomima")
			response.cookies("qwbyw_id"&rs("id")&"").expires = dateadd("h",5,now())
			call errbox("good查看密码输入正确，现在返回到留言页面","message.asp"&pageurl&"#icakan"&ids&"","","","")
		end if
	end if
	rs.close
	set rs=nothing 
end if

if qwbmmobileopen(qwbm_mobile_open,"","")=1 then	'发现是手机访问
	%><!--#include file="../templets/mobile/message/default/message.asp"--><%
else
	%><!--#include file="../templets/default/message/default/message.asp"--><%
end if
connclose%>