⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 auditing.asp

📁 图书管理系统是用VC++做的有兴趣的可以来共同研究研究
💻 ASP
字号:
<!-- 
'========================================================================================
' 文 件 名: auditing.asp
' 版    本: 自由岭锋行业专用留言系统1.78 ( LF Message SyStem 1.78 )
' 说    明: 留言审核文件 | 请勿自行修改该处文件,以确保程序正确的执行
' 文件日期: 2005-12-24
' 设 计 者: 疾风之狼
'========================================================================================
' Copyright (C) 2001--2005 自由岭锋. All rights reserved.
' 网    站: http://lingfengnet.com,
' 电子邮件: wfr@zknu.edu.cn
' 联系QQ: 85112407
'========================================================================================
-->
<%@language=vbscript codepage=936 %>
<!-- #include file="inc/setup.asp" -->
<!-- #include file="inc/sub_inc.asp" -->
<!-- #include file="inc/ip_purview.asp" -->
<!-- #include file="inc/contencrypt.asp" -->
<%flg="man_ts"%>
<!-- #include file="inc/purview.asp" -->
<!-- #include file="inc/checkru.asp" -->
<!-- #include file="inc/connect.asp" -->

<%  
gbookid=Request.QueryString("gbookid")
sql="select * from lfmessb where id="&gbookid
Set rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
if	rs("encrypt")=1	then
username=DeCrypt(rs("username"))
content=DeCrypt(rs("content"))
if rs("re")="0" then
re="0"
else
re=DeCrypt(rs("re"))
end if
else
username=rs("username")
content=rs("content")
re=rs("re")
end if
Auditing=rs("Auditing")
%>
<html>
<head>
<title><%= lingfengnet_ms_language_title_Auditing %></title>
<%  
  call htmlmeta() 
%> 
<link rel="stylesheet" href="style/css/<%=lingfengnet_ms_web_css%>.css" type="text/css">
</head>

<body>
<%
call htmltop()
%> 
<br>
<%
call htmladminmen()
%>
<form name="Auditing" method="post" action="Auditingok.asp">
 <table width="<%=lingfengnet_ms_web_w%>" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr>
      <td class="bgc2">
        <table width="100%" border="0" cellspacing="1" cellpadding="3">
          <tr class="bgc"> 
            <td width="25%" height="40" rowspan="4"> <div align="center">&nbsp;<%=lingfengnet_ms_language_Auditing_Appear_howdo%>:</div></td>
            <td height="30" width="75%">
<table width="100%" border="0" cellspacing="6" cellpadding="0">
                <tr> 
                  <td width="14%"><%=lingfengnet_ms_language_Auditing_username%>:</td>
                  <td width="86%"> <div align="left"><%=username%></div></td>
                </tr>
              </table></td>
          </tr>
          <tr class="bgc">
            <td height="30">
<table width="100%" border="0" cellspacing="6" cellpadding="0">
                <tr> 
                  <td width="14%"><%=lingfengnet_ms_language_Auditing_con%>:</td>
                  <td width="86%"> <div align="left"><%=content%></div></td>
                </tr>
              </table></td>
          </tr>
          <tr class="bgc">
            <td height="30">
<table width="100%" border="0" cellspacing="6" cellpadding="0">
                <tr> 
                  <td width="14%"><%=lingfengnet_ms_language_Auditing_Appear%>:</td>
                  <td width="86%"> 
                    <%if Auditing=0 then%>
                    <%=lingfengnet_ms_language_Auditing_Appear_mes_1%> 
                    <%elseif Auditing=1 then%>
                    <%=lingfengnet_ms_language_Auditing_Appear_mes_2%> 
                    <%elseif Auditing=2 and re<>"" then%>
                    <%=lingfengnet_ms_language_Auditing_Appear_mes_3%> 
                    <%elseif Auditing=2 then%>
                    <%=lingfengnet_ms_language_Auditing_Appear_mes_4%> 
                    <%end if%>
                  </td>
                </tr>
              </table></td>
          </tr>
          <tr class="bgc"> 
            <td height="30">
<table width="100%" border="0" cellspacing="6" cellpadding="0">
                <tr> 
                  <td> <input type="radio" name="sh" value="1" checked>
                    <%=lingfengnet_ms_language_Auditing_Appear_howdo_1%><br> <br> <input type="radio" name="sh" value="2">
                    <%=lingfengnet_ms_language_Auditing_Appear_howdo_2%><br> <br> <input type="radio" name="sh" value="3">
                    <%=lingfengnet_ms_language_Auditing_Appear_howdo_3%><br> <br> <input type="radio" name="sh" value="0">
                    <%=lingfengnet_ms_language_Auditing_Appear_howdo_4%><br> <br> <input type="radio" name="sh" value="4">
                    <%=lingfengnet_ms_language_Auditing_Appear_howdo_5%><%=lingfengnet_ms_maxword_re%><%=lingfengnet_ms_language_Auditing_Appear_howdo_6%><br><br> <textarea name="re" cols="45" rows="6" id="re"><%if re<>"0" then%><%=re%><% else %><%= lingfengnet_ms_language_Auditing_neizhi %><%end if%></textarea></td>
                </tr>
              </table></td>
          </tr>
          <%if lingfengnet_ms_messreg=0 then%>
          <%end if%>
          <tr class="bgc"> 
            <td colspan="2"> <div align="center"> 
                <input type="submit" name="Submit" value="<%=lingfengnet_ms_language_Auditing_sub_1%>" style="border:1 solid #000000;background:#ffffff" class="button">
                &nbsp;&nbsp;&nbsp;&nbsp; 
                <input type="reset" name="Submit" value="<%=lingfengnet_ms_language_Auditing_sub_2%>" style="border:1 solid #000000;background:#ffffff" class="button">
              </div></td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  <input name=gbookid type=hidden id="gbookid" value="<%=gbookid%>">
  <input name=wherefrom type=hidden id="gbookid" value="<%=Cstr(Request.ServerVariables("HTTP_REFERER"))%>">
</form>
</body>
</html>
<%
call htmlend()
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -