<!--#include file="../../Inc/Cls_Main.Asp"-->
<!--#include file="../inc/Cls_Admin.Asp"-->
<!--#include file="../inc/Cls_MapPath.Asp"-->
<!--#include file="../inc/Cls_FreeField.Asp"-->
<!--#include file="../Admin_Check.Asp"-->
<%
Dim CmsAdmin, ToUrl
ToUrl = CmsFun.LoadToUrl()
'=============================================================================
Set CmsAdmin = New Cls_Admin
CmsAdmin.SetAdminTitle = CmsSiteName
CmsAdmin.SetBodyCssName = "mainbody"
CmsAdmin.SetAdminPath = CmsAdminMapPath
CmsAdmin.LoadHead()
'=============================================================================
Dim Action
'=====================================================================
Dim oRs, DataId, FormName, FormTableName
DataId = Easp.Get("dataid:n:0")
If DataId = 0 Then
    CmsAdmin.CloseDialog "参数错误！", 0
End If
Set oRs = Easp.db.GR(TablePrefix & "FreeForm:1", " Id = "& DataId &" ", "")
If Easp.IsN(oRs) Then
    CmsAdmin.CloseDialog "不存在的数据！", 0
Else
    FormName = oRs("FormName")
    FormTableName = oRs("FormTableName")
End If
Easp.C oRs
'=============================================================================
Action = Easp.Get("action")
Select Case Action
    Case "pageload"
        Call PageLoad()
    Case "delall"
        Call DelAll()
    Case Else
        Call PageLoad()
End Select
CmsAdmin.LoadFooter()
Set CmsAdmin = Nothing

Sub PageLoad()
    ChkSysAdminLevel "sys_free", "show"
    '=====================================================================
	Dim iRs, Id
    Id = Easp.Get("id:n:0")
    If Id = 0 Then
        CmsAdmin.CloseDialog "参数错误！", 0
    End If
    Set iRs = Easp.db.GR(FormTableName &":1", " Id = "& Id &" ", "")
    If Easp.IsN(iRs) Then
        CmsAdmin.CloseDialog "不存在的数据！", 0
    End If
%>
<div class="navigation">控制面板 &gt; 自定义表单管理 &gt; 查看反馈 &gt; 提交反馈详情</div>
<div id="contentTab">
  <div class="content-tab">
    <ul class="tab_nav">
      <li><a onclick="tabs(this);" class="selected" href="javascript:void(0);">反馈详情</a></li>
    </ul>
  </div>
  <div class="tab_con" style="display: block;">
    <table class="form_table">
      <col width="200px">
        </col>
      
      <tbody>
        <%=objFreeField.GetFieldInfo(DataId,iRs)%>
      </tbody>
    </table>
  </div>
</div>
<%
    Easp.C iRs
End Sub
%>
