<!DOCTYPE html>
<%@ language="vbscript" codepage="936" %>
<%
'========================================================================================
' 文 件 名: admin_auditing.asp
' 版    本: 岭峰网行业专用留言系统3.10.0 (LFMessS 2020 - 3.10.0.F Build 200604)
' 说    明: 留言审核文件 | 请勿自行修改该处文件，以确保程序正确的执行
' 文件日期: 2020-06-04
' 设 计 者: 疾风之狼
'========================================================================================
' 郑州文达岭峰网络科技有限公司.
'========================================================================================
' Copyright (C) 2001-2020 岭峰网. All rights reserved.
' 网    站: http://www.lfmesss.com
' 电子邮件: support@lfmesss.com
' 联系ＱＱ: 85112407
'========================================================================================
%>
<!-- #include file="../common/sub_inc.asp" -->
<!-- #include file="../common/commfun.asp" -->
<!-- #include file="../common/ip_purview.asp" -->
<!-- #include file="../common/contencrypt.asp" -->
<%flg = "man_ts"%>
<!-- #include file="../common/purview.asp" -->
<!-- #include file="../common/checkru.asp" -->
<!-- #include file="../common/connect.asp" -->
<%  
gbookid = Request.QueryString("page")
sql = "SELECT encrypt,username,content,re,Auditing,silentlywords,enpass,topok,addtime,filemulu,lylx,ip FROM lfmessb WHERE id="&gbookid
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,0,1
IF rs("encrypt") = 1 then
	username = DeCrypt(rs("username"))
	content = DeCrypt(rs("content"))
	ip = DeCrypt(rs("ip"))
	IF rs("re") = "0" Then
		re = "0"
	Else
		re = DeCrypt(rs("re"))
	End IF
Else
	username = rs("username")
	content = rs("content")
	ip = rs("ip")
	re = rs("re")
	lylx = rs("lylx")
	filemulu = rs("filemulu")
	filemulu_dow = "<a href=""upload/"& filemulu &""">"& LingFengNet_MS_language_upload_11&filemulu & "</a>"
End IF
addtime = rs("addtime")
Auditing = rs("Auditing")
silentlywords = rs("silentlywords")
enpass = rs("enpass")
topok = rs("topok")
	
IF Session("LingFengNet_MS_admin_flg") = "1" and Auditing <> 0 Then
	Response.Write "<meta http-equiv=Content-Type content=text/html;charset="& LingFengNet_MS_language_meta_mes_1 &"><script>" 
	Response.Write "alert('"& LingFengNet_MS_language_Auditing_nook &" ');" 
	Response.Write "history.go(-1);" 
	Response.Write "</script>" 
	Response.End
End IF	
%>
<head>
<title><%= LingFengNet_MS_language_title_Auditing %></title>
<%  
  Call htmlmeta() 
  IF re <> "0" Then
	  retext = re
	  text_opentext = "<textarea name=""re"" rows=""8"" id=""re"" style=""width:100%;"" onkeydown=""showcon('re');"" onkeyup=""showcon('re');"" onclick=""showcon('re');"">"&retext&"</textarea>"
	  text_opentext_1 = "&ensp;["& LingFengNet_MS_language_Warning_addnew_7 &"&ensp;<strong><span id='showcon'>?</span></strong>&ensp;"& LingFengNet_MS_language_Warning_addnew_5 &"]<br>&ensp;["& LingFengNet_MS_language_Warning_addnew_8 &"&ensp;<strong>"&LingFengNet_MS_maxword_re&"</strong>&ensp;"& LingFengNet_MS_language_Warning_addnew_5 &"]<br>&ensp;[<a href=javascript:set_Size(3,'re');>"&  LingFengNet_MS_language_addnew_content_mes_2 &"</a>]<br>&ensp;[<a href=javascript:set_Size(-3,'re');>"&  LingFengNet_MS_language_addnew_content_mes_3 &"</a>]"
	  checked_id_6 = "checked"
  Else
	  retext = LingFengNet_MS_language_Auditing_neizhi
	  text_opentext = ""
  End IF
%>
<link rel="stylesheet" href="../style/css/<%= LingFengNet_MS_web_css %>.css" type="text/css">
<link rel="shortcut icon" href="../pic/favicon.ico" type="image/x-icon">
<link rel="bookmark" href="../pic/favicon.ico" type="image/x-icon">
</head>
<body onkeydown="EnableKey()">
<%
	Call htmltop()
	Call htmlbr()
	Call htmladminmen()	
	Call htmlbr()
%>
<table width="<%= LingFengNet_MS_web_w %>" border="0" cellspacing="0" cellpadding="0" align="center">
  <form name="Auditing" method="post" action="admin_auditingok<%= Get_Suffix() %>">
    <tr>
      <td class="bgc2"><table width="100%" border="0" cellspacing="1" cellpadding="3">
          <tr class="bgc">
            <td width="25%" height="40" rowspan="6"><div align="center">&ensp;<%= LingFengNet_MS_language_Auditing_Appear_howdo %>: </div></td>
            <td height="30" width="75%"><table width="100%" border="0" cellspacing="6" cellpadding="0">
                <tr id=tr00 onMouseOver="javascript:tr_mouse_over('tr00')" onMouseOut="javascript:tr_mouse_out('tr00')">
                  <td width="14%"><%= LingFengNet_MS_language_Auditing_username %>: </td>
                  <td width="86%"><div align="left"><%= username %>&ensp;&ensp;&ensp;&ensp;<a href=http://www.lfmesss.com/lfmesss/ip/index<%= Get_Suffix() %>?ip=<%= ip %>&search=<%= ip %> target="_blank"  title="『 <%= username %> 』<%= LingFengNet_MS_language_messdef_ipp %>: <%= ip %>"><img alt="『 <%= username %> 』<%= LingFengNet_MS_language_messdef_ipp %>: <%= ip %>" border="0" src="../pic/IP.png" valign="middle">&ensp;<%= LingFengNet_MS_language_Auditing_ipp %></a></div></td>
                </tr>
              </table></td>
          </tr>
          <tr class="bgc">
            <td height="30"><table width="100%" border="0" cellspacing="6" cellpadding="0">
              <tr id=tr01 onMouseOver="javascript:tr_mouse_over('tr01')" onMouseOut="javascript:tr_mouse_out('tr01')">
                <td width="14%"><%= LingFengNet_MS_language_Auditing_addtimes %>: </td>
                <td width="86%"><div align="left"><%= addtime %></div></td>
              </tr>
            </table></td>
          </tr>
          <tr class="bgc">
            <td height="30"><table width="100%" border="0" cellspacing="6" cellpadding="0">
                <tr id=tr02 onMouseOver="javascript:tr_mouse_over('tr02')" onMouseOut="javascript:tr_mouse_out('tr02')">
                  <td width="14%"><%= LingFengNet_MS_language_Auditing_con %>: </td>
                  <td width="86%"><div align="left">
                      <% IF Session("LingFengNet_MS_admin_flg") = "3" Then %>
                      <textarea name="content" rows="6" id=content style="width:100%;"><%= content %></textarea>
                      <%Else%>
                      <%= content %>
                      <%End IF%>
                    </div></td>
                </tr>
              </table></td>
          </tr>
          <tr class="bgc">
            <td height="30"><table width="100%" border="0" cellspacing="6" cellpadding="0">
                <tr id=tr03 onMouseOver="javascript:tr_mouse_over('tr03')" onMouseOut="javascript:tr_mouse_out('tr03')">
                  <td width="14%"><%= LingFengNet_MS_language_Auditing_filemulu %>: </td>
                  <td width="86%"><%IF filemulu = "0" Then%>
                    <%= LingFengNet_MS_language_Auditing_filemulu_no %>
                    <%Else%>
                    <%= filemulu_dow %><% IF Session("LingFengNet_MS_admin_flg") = "3" Then %>&ensp;&ensp;&ensp;&ensp;<label><input name="filedelok" type="checkbox" id="filedelok" value="yes" >&ensp;<%= LingFengNet_MS_language_Auditing_filemulu_delok %></label><%End IF%>
                    <%End IF%></td>
                </tr>
              </table></td>
          </tr>
          <tr class="bgc">
            <td height="30"><table width="100%" border="0" cellspacing="6" cellpadding="0">
              <tr id=tr04 onMouseOver="javascript:tr_mouse_over('tr04')" onMouseOut="javascript:tr_mouse_out('tr04')">
                <td width="14%"><%= LingFengNet_MS_language_Auditing_Appear %>: </td>
                <td width="86%"><%IF Auditing = 0 Then%>
                  <%= LingFengNet_MS_language_Auditing_Appear_mes_1 %>
                  <% checked_id_1 = "checked" %>
                  <%ElseIF Auditing = 1 Then%>
                  <%= LingFengNet_MS_language_Auditing_Appear_mes_2 %>
                  <% checked_id_1 = "checked" %>
                  <%ElseIF Auditing = 2 and re <> "" Then%>
                  <%= LingFengNet_MS_language_Auditing_Appear_mes_3 %>
                  <% checked_id_2 = "checked" %>
                  <%ElseIF Auditing = 2 Then%>
                  <%= LingFengNet_MS_language_Auditing_Appear_mes_4 %>
                  <% checked_id_3 = "checked" %>
                  <%ElseIF Auditing = 3 Then%>
                  <%= LingFengNet_MS_language_Auditing_Appear_mes_5 %>
                  <% checked_id_4 = "checked" %>
                  <%ElseIF Auditing = 5 Then%>
                  <%= LingFengNet_MS_language_Auditing_Appear_mes_6 %>
                  <% checked_id_5 = "checked" %>
                  <%End IF%></td>
              </tr>
            </table></td>
          </tr>
          <tr class="bgc">
            <td height="30"><table width="100%" border="0" cellspacing="8" cellpadding="0">
                <tr id=tr0 onMouseOver="javascript:tr_mouse_over('tr0')" onMouseOut="javascript:tr_mouse_out('tr0')">
                  <td height="30" colspan="2"><label>
                      <input type="radio" onClick="closetext()" name="sh" value="1" <%= checked_id_1 %>>
                      <%= LingFengNet_MS_language_Auditing_Appear_howdo_1 %></label></td>
                </tr>
                <tr id=tr1 onMouseOver="javascript:tr_mouse_over('tr1')" onMouseOut="javascript:tr_mouse_out('tr1')">
                  <td height="30" colspan="2"><label>
                      <input type="radio" onClick="closetext()" name="sh" value="2" <%= checked_id_2 %>>
                      <%= LingFengNet_MS_language_Auditing_Appear_howdo_2 %></label></td>
                </tr>
                <tr id=tr2 onMouseOver="javascript:tr_mouse_over('tr2')" onMouseOut="javascript:tr_mouse_out('tr2')">
                  <td height="30" colspan="2"><label>
                      <input type="radio" onClick="closetext()" name="sh" value="3" <%= checked_id_3 %>>
                      <%= LingFengNet_MS_language_Auditing_Appear_howdo_3 %></label></td>
                </tr>
                <tr id=tr3 onMouseOver="javascript:tr_mouse_over('tr3')" onMouseOut="javascript:tr_mouse_out('tr3')">
                  <td height="30" colspan="2"><label>
                      <input type="radio" onClick="closetext()" name="sh" value="0" <%= checked_id_4 %>>
                      <%= LingFengNet_MS_language_Auditing_Appear_howdo_4 %></label></td>
                </tr>
                <tr id=tr4 onMouseOver="javascript:tr_mouse_over('tr4')" onMouseOut="javascript:tr_mouse_out('tr4')">
                  <td height="30" colspan="2"><label>
                      <input type="radio" onClick="closetext()" name="sh" value="5" <%= checked_id_5 %>>
                      <%= LingFengNet_MS_language_Auditing_Appear_howdo_8 %></label></td>
                </tr>
                <tr id=tr5 onMouseOver="javascript:tr_mouse_over('tr5')" onMouseOut="javascript:tr_mouse_out('tr5')">
                  <td height="30" colspan="2"><label>
                      <input type="radio" name="sh" value="4" onClick="opentext()" <%= checked_id_6 %>>
                      <%= LingFengNet_MS_language_Auditing_Appear_howdo_5 & LingFengNet_MS_maxword_re & LingFengNet_MS_language_Auditing_Appear_howdo_6 %></label></td>
                </tr>
                <tr id=tr6 onMouseOver="javascript:tr_mouse_over('tr6')" onMouseOut="javascript:tr_mouse_out('tr6')">
                  <td height="30" colspan="2"><label>
					<%if silentlywords=1 Then%>
                    <input name="yesword" type="checkbox" id="yesword" value="yes" checked>
                      <%= LingFengNet_MS_language_Auditing_Appear_howdo_7 %>
                    <%else%>
                    <input name="yesword" type="checkbox" id="yesword" value="yes" disabled>
                      <%= LingFengNet_MS_language_Auditing_Appear_howdo_10 %>
                    <%End IF%>
                    </label></td>
                </tr>
                <tr id=tr7 onMouseOver="javascript:tr_mouse_over('tr7')" onMouseOut="javascript:tr_mouse_out('tr7')">
                  <td height="30" colspan="2"><label>
                      <input name="topok" type="checkbox" id="topok" value="yes" <%if topok=0 Then%>checked<%End IF%>>
                      <%= LingFengNet_MS_language_Auditing_Appear_howdo_9 %></label></td>
                </tr>
                <tr id=tr08 onMouseOver="javascript:tr_mouse_over('tr08')" onMouseOut="javascript:tr_mouse_out('tr08')">
                  <td width="85%" height="30"><div id="opentext"><%= text_opentext %></div></td>
                  <td width="15%" height="30" align="left" valign="bottom"><div id="opentext_1"><%= text_opentext_1 %></div></td>
                </tr>
              </table></td>
          </tr>
          <tr class="bgc">
            <td colspan="2" height="40"><div align="center">
                <input type="submit" name="Submit" value="<%= LingFengNet_MS_language_Auditing_sub_1 %>" class="buttonface">
                &ensp;&ensp;&ensp;&ensp;
                <input type="reset" name="Submit" value="<%= LingFengNet_MS_language_Auditing_sub_2 %>" class="buttonface">
              </div></td>
          </tr>
        </table></td>
    </tr>
    <input name="gbookid" type="hidden" id="gbookid" value="<%= gbookid %>">
    <input name="reok" type="hidden" id="reok" value="">
    <input name="enpass" type="hidden" id="enpass" value="<%= enpass %>">
    <input name="wherefrom" type="hidden" id="wherefrom" value="<%= Get_ReplaceSuffix(Cstr(Request.ServerVariables("HTTP_REFERER"))) %>">
  </form>
</table>
<script src="../common/mouseok.js"></script> 
<script>
var maxword = <%= LingFengNet_MS_maxword_re %>;
function opentext(){
	document.getElementById("opentext").innerHTML = "<textarea name=\"re\" rows=\"8\" id=\"re\" style=\"width:100%;\" onkeydown=\"showcon('re');\" onkeyup=\"showcon('re');\"><%= retext %></textarea>";
	document.getElementById("opentext_1").innerHTML = "&ensp;[<%= LingFengNet_MS_language_Warning_addnew_7 %>&ensp;<strong><span id='showcon'></span></strong>&ensp;<%= LingFengNet_MS_language_Warning_addnew_5 %>]<br>&ensp;[<%= LingFengNet_MS_language_Warning_addnew_8 %>&ensp;<strong>"+maxword+"</strong>&ensp;<%= LingFengNet_MS_language_Warning_addnew_5 %>]<br>&ensp;[<a href=javascript:set_Size(3, 're');><%= LingFengNet_MS_language_addnew_content_mes_2 %></a>]<br>&ensp;[<a href=javascript:set_Size(-3, 're');><%= LingFengNet_MS_language_addnew_content_mes_3 %></a>";
	showcon("re");
}

function closetext(){
	document.getElementById("opentext").innerHTML = "";
	document.getElementById("opentext_1").innerHTML = "";
}

function showcon(theform){
	message = document.getElementById(theform).value.length;
	messagetxt = document.getElementById(theform).value
	document.getElementById("showcon").innerHTML = message;
	document.getElementById("reok").value = messagetxt;
}

function set_Size(num,objname){
	var obj = document.getElementById(objname);
	if (parseInt(obj.rows) + num >= 3){
		obj.rows = parseInt(obj.rows) + num;	
	}
	if (num > 0){
		obj.width="90%";
	}
}
showcon('re');
</script>
</body>
</html>
<%
	Call htmlbr()
	Call htmlend()
%>