huifu_book.asp

增添网站节日气氛

<%@ LANGUAGE="VBScript" %>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="Inc/articlechar.inc"-->
<!--#include file="Inc/Function.asp"-->
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>					
function CleanHtmlBr(str)												
//去除html												
	CleanHtmlBr =  Replace(Replace(Replace(Replace(str,"<","&lt;"),">","&gt;"),vbCrlf, "<br>"), chr(32)&chr(32),"&nbsp;&nbsp;")			
End Function														
</SCRIPT>
<%
if request.form<>"" then 
conn.execute("update book set huifu='"&request.form("huifu")&"'where id="&request("id")&"")
response.write("<script>alert ('回复成功！');location.href='manage_book.asp'</script>")
end if
%>


<!-- #include file="Inc/Head.asp" -->
 <%set rs=conn.execute("select * from book where id="&request("id")&"")%>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top"> <br> 
    
   <form name="form1" method="post" action=""> 
    <table width="560" border="0" cellpadding="0" cellspacing="0" >
        <tr> 
          <td class="back_southidc" height="25"> <div align="center"><strong>留言管理 <br>
              </strong></div></td>
        </tr>
        <tr> 
          <td><div align="center"> 
             

              <table  width="560" border="0" cellpadding="2" cellspacing="1" >
                <tr bgcolor="#A6EDFF"> 
                  <td width="18%" height="25"> 
                    <div align="center"> 
                      <%if rs("name")="管理员"then%>
                      『管理员公告』 
                      <%else%>
                      用户名 
                      <%end if%>
                  </div></td>
                  <td width="82%">&nbsp;&nbsp;<%=rs("name")%> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                    <a href="Manage_Rebook.asp?id=<%=rs("id")%>"> 
                    <%if rs("name")<>"管理员" then%>
                    </a> <%if rs("name")="未注册用户" then 
response.write "没有注册为会员通过E-amil回复！" 
end if%> <%end if%> </td>
                </tr>
                <%if rs("email")<>"" then%>
                <tr bgcolor="#ECF5FF"> 
                  <td height="10"> 
                    <div align="center">公司名称</div></td>
                  <td>&nbsp;&nbsp;<%=rs("Comane")%></td>
                </tr>
                <tr bgcolor="#ECF5FF"> 
                  <td height="10" bgcolor="#A6EDFF"> 
                    <div align="center">联系人</div></td>
                  <td bgcolor="#A6EDFF">&nbsp;&nbsp;<%=rs("Name")%></td>
                </tr>
   
                <tr bgcolor="#ECF5FF"> 
                  <td height="22"> 
                    <div align="center">E-mail</div></td>
                  <td><a href="Sendmail.asp?email=<%=rs("email")%>"><%=rs("email")%></a></td>
                </tr>
                <%end if%>
                <tr bgcolor="#A6EDFF"> 
                  <td height="25"> 
                    <div align="center">主 题</div></td>
                  <td height="25">&nbsp;&nbsp;<%=rs("title")%>&nbsp;&nbsp;[<%=rs("time")%>]</td>
                </tr>
                <tr bgcolor="#ECF5FF"> 
                  <td height="25"> 
                    <div align="center">内 容</div></td>
                  <td height="25">&nbsp;&nbsp;<%=rs("content")%></td>
                </tr>
                
                <tr bgcolor="#ECF5FF"> 
                  <td height="25" bgcolor="#A6EDFF"> 
                    <div align="center">管理员回复</div></td>
                  <td height="25" align="left" bgcolor="#A6EDFF">&nbsp;&nbsp;
                  
              <label>
                        <textarea name="huifu" id="huifu" cols="63" rows="6"><%=rs("huifu")%></textarea>
                      </label>
                               </td>
                </tr>
                
                 <tr>
              <td colspan="2" align="center">
                <span class="STYLE2">
                <input type="submit" name="Submit" value="提交">
                <input type="reset" name="Submit2" value="重写">
                </span></td>
              </tr>
                
              </table>
            </div></td>
        </tr>
      </table>
      
      <table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
      <br> 
      <br> 
      </form>  
      
      
      
      
      </td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->