toreply.asp

校友通讯系统

<%@ Language=VBScript %>
<%if not session("user_session_id")=Session.SessionID then%>
<SCRIPT LANGUAGE=javascript>
 parent.window.location.href="default.asp"
</SCRIPT>
<%end if%>
<%if Request.Form("hid")="" then%>
<style TYPE="text/css"> 
<!-- 
 .popcomments 
{ 
position : absolute; width:130;
visibility : hidden; 
border: 1 solid #000001
} 
.in 
{
BORDER-RIGHT: rgb(127,127,127) 1px solid;
BORDER-TOP: rgb(127,127,127) 1px solid;
 FONT-SIZE: 9pt; 
 BORDER-LEFT: rgb(127,127,127) 1px solid; 
 BORDER-BOTTOM: rgb(127,127,127) 1px solid;
 BACKGROUND-COLOR: #ffffff
}
//--> 
</style> 
<%Dim sql,rst
sql="select * from forum where id="&Cint(Request.QueryString ("id"))
set rst=session("cn").execute(sql)
%>
<LINK href="style/style.css" type=text/css rel=stylesheet>
<SCRIPT LANGUAGE=javascript>
<!--
function go()
{
if(document.form1.content.value=='')
{alert('请写上你的留言');return false;}
document.form1.submit()
}
//-->
</SCRIPT>

<title>校友录-回复信息</title>
<table width="365" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="355" align="center">回复信息</td>
    <td width="10">&nbsp;</td>
  </tr>
  <tr> 

    <td width="355"> 原信信息 ：<br>×××××××××××××<br>
      <font color=blue><%=rst("content")%></font> <br>×××××××××××××<br><br>
      回复信息： 
      <form name="form1" method="post" action="toreply.asp">
        <p> 
          <input type="hidden" name="towho" value=<%=rst(0)%>>
          <input type=hidden name=hid value="ok">
          <textarea name="content" cols="40" rows="3" class=in></textarea>
          <br><br><div align=center>
          <input type="button" name="B1" value="提交" class=in
          onClick="javascript:go()">
          </div>
          <br>
      </form>
     </td>
    <td width="10"></td>
  </tr>
  <tr> 
    <td width="355" align="center">&nbsp; </td>
    <td width="10">&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%else
  towho=Request.Form ("towho")
  Content=Trim(Request.Form ("content"))
  Content=Replace(content,"'","''")
  content=Replace(content,VBCrlf,"<br>")
  sql="insert into forum(studentid,content,pubtime,towho) values('"&session("ecid")&"','"&content&"','"&now()&"','"&towho&"')"
  session("cn").execute (sql)
 %>
<script>
alert("<%=towho%>的信已经成功发送！")
window.close() 

</script>
<%
end if%>