<!--#include file="../conn/conn2.asp" -->
<!--#include file="../conn/function.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=utf-8" />
<meta name="author" content="qinuoli">
<meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=0;">
<meta name="apple-mobile-web-app-capable" content="yes">
<meta name="apple-mobile-web-app-status-bar-style" content="black">
<meta name="format-detection" content="telephone=no">
<link rel="stylesheet" href="css/user.css" type="text/css" />
<title>个人中心</title>
</head>
<body>
<!--#include file="top.asp" -->
<ul class="my_list"> 
<li clsaa="tiao"><b>我的表单</b></li>
<%
if request.QueryString("R_rid")<>"" then
sql2="select distinct R_member,F_id,F_title from SL_content,SL_form,SL_response where R_cid=C_id and C_fid=F_id and R_rid='"&request.QueryString("R_rid")&"' 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")
		F_title=rs2("F_title")
response.Write("<li clsaa='tiao'><b>表单题目："&F_title&"</b></li>")

sql="select distinct R_time,R_rid,R_member from SL_response,SL_content where R_Cid=C_id and C_fid="&F_id&" and R_rid='"&request.QueryString("R_rid")&"' 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("<li clsaa='tiao'>会员名："&R_member&"</li>")

sql1="select * from SL_response,SL_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" or  right(rs1("R_content"),3)="png" or right(rs1("R_content"),3)="gif" then
		R_content="<a href='../"&rs1("R_content")&"' target='_blank'> "&rs1("C_title")&"：<img src='../"&rs1("R_content")&"' style='height:40px;width:40px;padding-top:2px;'> 点击查看大图</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'>"&rs1("C_title")&"：<img src='img/file.gif' style='height:25px;width:25px;padding-top:10px;'> 点击查看附件</a>"
		else
		R_content=rs1("C_title")&"："&rs1("R_content")
		end if
		end if
		response.Write "<li clsaa='tiao'>"&R_content&"</li>"
		rs1.movenext
		loop
	end if
response.Write "<li clsaa='tiao'>提交时间："&rs("R_time")&"</li>"
rs.movenext
		loop
end if

rs2.movenext
		loop
end if
rs2.close
set rs2=nothing

else
sql2="select distinct R_member,F_id,F_title,R_rid,R_time from SL_content,SL_form,SL_response where R_cid=C_id and C_fid=F_id and R_member="&session("M_id")&" order by R_time desc"
		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")
		F_title=rs2("F_title")
		R_rid=rs2("R_rid")
		R_time=rs2("R_time")
response.Write("<li clsaa='tiao'><a href='member_form.asp?R_rid="&R_rid&"'>"&F_title&"（"&year(R_time)&"-"&month(R_time)&"-"&day(R_time)&"）</a></li>")
rs2.movenext
		loop
end if
rs2.close
set rs=nothing
end if
%>
</ul>
</div>

</body>
</html>
