📄 reply.asp

📁 九酷网络个人主页系统破解版
💻 ASP
字号:
<!--#include file="../conn.asp"-->
<%
username=Request.Cookies("gbuser")
if username="" or username<>Request.Cookies("9cool_username") then
response.write"<script>alert('对不起，您没有权限执行此操作！');location.href='javascript:history.back()'</script>"
response.end
end if   
if request("action")="reply" then
replycontent=Trim(Request.Form("replycontent"))
reyip=Request.servervariables("REMOTE_ADDR")
conn.execute("update [gbook] set recontent='"&replycontent&"',reip='"&reyip&"' where id="&cint(request("reid"))&"")
Response.redirect "read.asp?id="&request("reid")
end if
id=cint(request("id"))
sql="select * from [gbook] where id="&id
rs.open sql,conn,1,1
%>
<HTML><HEAD><TITLE>读取留言</TITLE>
<META http-equiv=content-type content="text/html; charset=gb2312"><LINK 
href="images/style.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD width=54><IMG src="images/topleft.gif"></A></TD>
    <TD width=296><IMG 
      src="images/logo.gif" border=0></TD>
    <TD background=images/topright.gif>&nbsp;<%=Conn.Execute("select uphtml from [gbuser] where username='"&username&"'")(0)%></TD>
  </TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=6 width="99%" align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD><A href="index.asp?username=<%=username%>"><%=username%>的留言本</A> 
      -&gt; 回复留言 </TD>
</TR></TBODY></TABLE>
<table width="99%" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#41b1e3">
  <tr>
    <td width="15%"  background="images/tabletail.gif"> <strong><font color="#990000">站长回复</font></strong></td>
    <td width="87%"  background="images/tabletail.gif">
      RE：<%=rs("title")%></td>
  </tr>
  <tr>
    <td bgcolor="#ffffff">回复内容</td>
    <td valign="top" bgcolor="#ffffff">
      <TABLE cellPadding=10 width="100%">
	  <form name="form" method="post" action="?action=reply">
	  <INPUT type=hidden value=<%=id%> name=reid>
        <TBODY>
          <TR>
            <TD align=left><textarea name="replycontent" cols="90" rows="5"><%=rs("recontent")%></textarea>
                <br>
                <br>
                <%
				if rs("recontent")<>empty then
				Response.Write "<input type=submit name=Submit value=更改回复>"
				else
				Response.Write "<input type=submit name=Submit value=回复>"
				end if%>
                <input type="reset" name="reset" value="重置"></TD>
          <TR></TR>
        </TBODY></form>
      </TABLE>    </td>
  </tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width="99%" align=center border=0>
  <TBODY>
  <TR height=6>
    <TD></TD></TR>
  <TR height=43>
    <TD width="60%" background=images/tabletail.gif>&nbsp;&nbsp; </TD>
    <TD align=right background=images/tabletail.gif> &nbsp;&nbsp; <A 
      href="index.asp?username=<%=rs("username")%>"><IMG 
      src="images/return.gif" border=0></A> </TD>
  </TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=4 width="99%" align=center border=0>
  <TBODY>
    <TR>
      <TD align=center><%=Conn.Execute("select uphtml from [gbuser] where username='"&username&"'")(0)%></TD>
    </TR>
  </TBODY>
</TABLE>
</BODY></HTML>
⌨️ 快捷键说明

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