<!--#include file="inc/Conn.asp"-->
<!--#include file="inc/Function_PC.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="loginisok.asp"-->
<%
unav=5
bclassname="会员中心"
action=request("action")
if action="del" then
	id=request("id")
	sqlDel="select * from Dream_Review where Dream_UserID='"&Session("Dream_UserName")&"' and id=" & CLng(ID)
	Set rsDel= Server.CreateObject("ADODB.Recordset")
	rsDel.open sqlDel,conn,1,3
	rsDel.delete
	rsDel.update
	set rsDel=nothing
end if

sub line(tid)
set key=conn.execute("select * from Dream_Menpiao where ID="&tid)
if not(key.eof and key.bof) then
	response.Write ("<a href=""view.asp?id="&tid&""" target=""_blank"">"&key("Dream_Title")&"</a>")
end if
set key=nothing
end sub

%>
<!DOCTYPE html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>我的点评-<%=Dream_SiteName%></title>
<meta name="keywords" content="<%=Dream_SiteKeywords%>" />
<meta name="description" content="<%=Dream_SiteDescription%>" />
<!--#include file="jscss.asp"-->
<!--#include file="inc/zdsbphone.asp"-->
</head>
<body>
<!--#include file="nheader.asp"-->
<div class="conment">
	<div class="local">当前位置：<a href="index.asp">首页</a> > <a href="user.asp">会员中心</a> > 我的评论</div>
	<div class="about_nav">
		<h3>会员中心</h3>
		<ul>		
		<!--#include file="usernav.asp"-->
		</ul>		
	</div>
	<div class="about_right">
		<div class="about_right_title"><h3>我的评论</h3><span>注：删除后将不能再恢复。</span></div>
		<div class="about_right_con">
			<div class="userreview">
			<%
			Set rs=Server.CreateObject("Adodb.RecordSet")
			rs.open "Select * From Dream_Review where Dream_UserID='"&session("Dream_UserName")&"'",conn,1,3
			if not rs.eof then
			do while not rs.eof			
			%>
			<ul>
				<div class="canshu">
				<li><h3>对应信息：</h3><span><%line rs("Dream_ViewID")%></span></li>
				<li><h3>评论内容：</h3><span><%=rs("Dream_Content")%></span></li>
				<li><h3>评论分数：</h3><span><%=rs("Dream_Grade")%></span></li>
				<li><h3>评论时间：</h3><span><%=rs("Dream_Updatetime")%></span></li>
				<li><h3>审核状态：</h3><span><%if rs("Dream_Look")=true  then%><font color="#006600">通过审核</font><%else%>审核中<%end if%></span></li>
				</div>	
				<div class="an"><a href="?action=del&id=<%=rs("id")%>" title="删除" onClick="return confirm('是否要删除此条评论?')">删除信息</a></div>			
			</ul>
			<%
			rs.movenext
			loop
			else
			%>
			<div class="nopage">没有你的点评！</div>
			<%
			end if
			rs.update	 
			rs.close
			set rs=nothing
			%>
		</div>
		</div>
	</div>
</div>
<!--#include file="footer.asp"-->
</body>
</html>