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

📄 l_huifu.asp

📁 711房产管理系统
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<% 
if session("VIP")<>"999" then
%>
<script language=Javascript>
<!--
alert("请不要尝试非法操作");
window.history.go(-1);
//-->
</script>
<% else %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>回复留言</title>
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<TABLE width="60%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#00659c>
  <%
  dim dd
  xiangxi=request.QueryString("id")
  sql="select * from liuyan where id="&xiangxi
  set rs=conn.execute(sql)
  
  %>
  <TR borderColor=#007db5 bgColor=#007db5> 
    <TD vAlign=bottom>&nbsp;<B><FONT 
                  class=end>No.
      <% =rs("id") %>
      &nbsp;主题:
      <% =rs("title") %>
      </FONT></B></TD>
  </TR>
  <TR borderColor=#ffffff bgColor=#ffffff> 
    <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
          <TR> 
            <TD align=middle> <TABLE height="100%" cellSpacing=2 cellPadding=0 
                        width="100%" border=0>
                <TBODY>
                  <TR vAlign=top align=middle> 
                    <TD width=120> <TABLE width="100%" border=0>
                        <TBODY>
                          <TR> 
                            <TD align=middle>来自:
                              <% =rs("fbr") %>
                            </TD>
                          </TR>
                          <TR> 
                            <TD align=middle> 
                              <% if rs("xb")="1" then%>
                              <IMG title="<% =rs("fbr") %> 是 男孩" src="<% =rs("pic") %>" border=0> 
                              <% elseif rs("xb")="2" then %>
                              <IMG title="<% =rs("fbr") %> 是 女孩" src="<% =rs("pic") %>" border=0> 
                              <% end if %>
                            </TD>
                          </TR>
                        </TBODY>
                      </TABLE></TD>
                    <TD width=1 bgColor=#3bb1cf></TD>
                    <TD width=458 height="100%"> <TABLE height="100%" width="100%" border=0>
                        <TBODY>
                          <TR> 
                            <TD vAlign=top colSpan=2> <TABLE class=tf cellSpacing=4 cellPadding=2 
                                width="100%" border=0>
                                <TBODY>
                                  <TR> 
                                    <TD class=bw><IMG 
                                src="images\L01.gif" 
                                border=0>&nbsp; <br>
                                      &nbsp; 
                                      <% zhengwen = rs("nr")
	                             zhengwen = replace(zhengwen,chr(13),"<br>")
                                 zhengwen = replace(zhengwen,chr(32),"&nbsp;")
	                             response.write zhengwen
								 %>
                                    </TD>
                                  </TR>
                                </TBODY>
                              </TABLE>
                              <TABLE borderColor=#ffffff cellSpacing=1 
                                cellPadding=2 width="98%" bgColor=#00659c 
                                border=1>
                                <% if rs("huifu")<>"" then %>
                                <TBODY>
                                  <TR borderColor=#ededed bgColor=#ededed> 
                                    <TD class=bw> <font color="#999999"><IMG 
                                src="images/L02.gif" width="16" height="16"  border=0><font color="#999999"></font><br>
                                      管理员回复&nbsp; 
                                      <% =rs("huifu") %>
                                      </font> </TD>
                                  </TR>
                                </TBODY>
                                <% else 
													response.Write""
													end if %>
                              </TABLE></TD>
                          </TR>
                          <TR> 
                            <TD height=5></TD>
                          </TR>
                          <TR> 
                            <TD bgColor=#007db5 colSpan=2 
height=1></TD>
                          </TR>
                          <TR height=20> 
                            <TD width="47%">&nbsp; <img src="images/L03.gif" width="16" height="16" border=0 align=absMiddle title=签写时间> 
                              <% =rs("date") %>
                            </TD>
                            <TD align=right width="53%"><a 
                                href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<% =rs("qq")%>" 
                                target=_blank><img 
                                src="images/L04.gif" alt="<%=rs("fbr")%>的QQ是:<% =rs("qq") %>" 
                                border=0 ></a>&nbsp;<a 
                                href="mailto:<% =rs("email") %>"><img 
                                src="images/L05.gif" alt="给 <% =rs("fbr") %> 发送邮件" width="16" height="16" 
                                border=0 ></a>&nbsp; 
                              <% if rs("homepage")<>"http://" then %>
                              <a href="<% =rs("homepage") %>" target="_blank"><img src="images/L06.gif" width="16" height="16" border="0"></a> 
                              <% else 
								 response.Write""
								 end if %>
                              <% if session("VIP")=999 then %>
                              &nbsp;<img 
                                src="images/L07.gif" width="13" height="15" 
                                border=0 align=absMiddle 
                                title="<% =rs("ip") %>">&nbsp;&nbsp;<a 
                                href="L_huifu.asp?id=<% =rs("id") %>"><img src="images/L08.gif" 
                                alt=回复这条留言 width="16" height="16" 
                                border=0></a>&nbsp;<a 
                                href="liuyan.asp?del=<% =rs("id") %>"><img src="images/L09.gif" 
                                alt=删除这条留言 width="16" height="16" 
                                border=0></a> 
                              <% else 
								response.Write""
								end if %>
                            </TD>
                          </TR>
                        </TBODY>
                      </TABLE></TD>
                  </TR>
                </TBODY>
              </TABLE></TD>
          </TR>
        </TBODY>
      </TABLE></TD>
  </TR>
</TABLE>
<form name="form1" method="post" action="L_huifuok.asp?id=<% =request("id") %>">
  <TABLE width="60%" 
                                border=1 align="center" 
                                cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#00659c>
    <TBODY>
      <TR borderColor=#ededed bgColor=#ededed> 
        <TD width="16%" class=bw><div align="center"><font color="#999999"><font color="#666666">管理员回复</font> 
            </font></div></TD>
        <TD width="84%" rowspan="2" class=bw><div align="center"> 
            <textarea name="huifu" cols="70" rows="8" id="huifu"><% =rs("huifu") %></textarea>
          </div></TD>
      </TR>
      <TR borderColor=#ededed bgColor=#ededed>
        <TD class=bw><div align="center"><img src="images/L_huifu.jpg" width="128" height="128"></div></TD>
      </TR>
      <TR borderColor=#ededed bgColor=#ededed> 
        <TD class=bw>&nbsp;</TD>
        <TD class=bw><input type="submit" name="Submit" value="回复留言">
        </TD>
      </TR>
    </TBODY>
  </TABLE>
</form>
</body>
</html>
<% end if %>

⌨️ 快捷键说明

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