<!--#include file="../conn/conn2.asp" -->
<!--#include file="member_check.asp" -->
<!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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>表单管理</title>
<style type="text/css">
			html {
				overflow:auto;
			}
			body {
			margin:0px;
				background-color: transparent; 
				font-size:12px;
				line-height:180%;
				font-family:"微软雅黑";
				
			}
			a{ font-size:12px; color:#000000; text-decoration:none;}
			a:hover {color:#0066ff;text-decoration: underline}
			a img {
	border:none;
}
</style>
</head>
<body>
<!--#include file="left.asp" -->
<div style="width:550px; float:left; padding-left:20px;">
<h2>表单管理</h2>
<hr>
<%
sql2="select distinct R_member,F_id from F_content,F_form,F_response where R_cid=C_id and C_fid=F_id and R_member='"&session("M_login")&"' order by F_id"
		set rs2=Server.CreateObject("ADODB.RecordSet")
		rs2.open sql2,conn,1,1
		if not rs2.eof then
		Do while Not rs2.eof
		F_id=rs2("F_id")
response.Write("<table width='100%' border='1' bordercolor='#000000' style='border-collapse:collapse;'><tr><td>会员</td>")
sql="select * from F_content where C_Fid="&F_id&" order by C_order"
		set rs=Server.CreateObject("ADODB.RecordSet")
		rs.open sql,conn,1,1
		if not rs.eof then
		Do while Not rs.eof
		response.Write "<td>"&rs("C_title")&"</td>"
		rs.movenext
		loop
	end if
response.Write "<td>提交时间</td></tr>"
sql="select distinct R_time,R_rid,R_member from F_response,F_content where R_Cid=C_id and C_fid="&F_id&" and R_member='"&session("M_login")&"' order by R_time"
set rs=Server.CreateObject("ADODB.RecordSet")
		rs.open sql,conn,1,1
		if not rs.eof then
		Do while Not rs.eof
		R_member="未登录"
		if rs("R_member")<>"" then
		R_member=rs("R_member")
		end if
response.Write("<tr onmouseout='this.style.backgroundColor=""""' onmouseover='this.style.backgroundColor=""#F7F7F7""'><td>"&R_member&"</td>")
sql1="select * from F_response,F_content where R_Cid=C_id and C_fid="&F_id&" and R_rid='"&rs("R_rid")&"' order by C_order"
set rs1=Server.CreateObject("ADODB.RecordSet")
		rs1.open sql1,conn,1,1
		if not rs1.eof then
		Do while Not rs1.eof
		if right(rs1("R_content"),3)="jpg" then
		R_content="<a href='../"&rs1("R_content")&"' target='_blank'><img src='../"&rs1("R_content")&"' height='30'> 点击查看大图</a>"
		else
		if right(rs1("R_content"),3)="doc" or right(rs1("R_content"),3)="pdf" or right(rs1("R_content"),3)="ppf" or right(rs1("R_content"),3)="rar" then
		R_content="<a href='../media/"&rs1("R_content")&"' target='_blank'><img src='img/file.gif'> 点击查看附件</a>"
		else
		R_content=rs1("R_content")
		end if
		end if
		response.Write "<td>"&R_content&"</td>"
		rs1.movenext
		loop
	end if
response.Write "<td>"&rs("R_time")&"</td></tr>"
rs.movenext
		loop
end if

response.Write "</table><hr>"
rs2.movenext
		loop
end if
%>
</div>
</body>
</html>