gusucode.com > ASP+ACCESS学生信息管理系统设计(源代码+论文) > ASP+ACCESS学生信息管理系统设计(源代码+论文)\赵超\RepUser.asp

    <!--#include file="Top.asp"-->
<link href="Css/wangye9pt.css" rel="stylesheet" type="text/css">
<table width="779" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="228" align="center" valign="top"><br>
      <table width="95%"  border="0" align="center" cellpadding="1" cellspacing="1" class="TableAll">
        <tr>
         
        </tr>
        
      </table>
      <br>
      
      <br>
    </td>
    <td width="551"><table height="450" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr>
          <td align="center" valign="top" bgcolor="#FFFFFF"><br>
            <table width="500" border="0" cellpadding="0" cellspacing="1" class="TableAll">
              <tr>
                <td align="center" class="TrTop">留言给用户</td>
              </tr>
              <tr>
                <td height="30" align="center" bgcolor="#FFFFFF" class="9ptred"><form name="form1" method="post" action="">
                    <table width="100%"  border="0" cellpadding="1" cellspacing="1" class="TrBody">
                      <tr>
                        <td width="13%" height="30" align="center">标题</td>
                        <%
			  UserNum=request("UserNum")
			  UserName=request("UserName")
			  
			  %>
                        <td width="87%"><input name="TxtTitle" type="text" id="TxtTitle" value="<%=UserName%>你好" size="40">
                          <input name="UserNum" type="hidden" id="UserNum" value="<%=UserNum%>">
                          <input name="UserName" type="hidden" id="UserName" value="<%=UserName%>"></td>
                      </tr>
                      <tr>
                        <td height="30" align="center">内容</td>
                        <td><textarea name="TxtBody" cols="40" rows="10" id="TxtBody"></textarea></td>
                      </tr>
                      <tr align="center">
                        <td height="25" colspan="2"><input type="submit" name="Submit" value="确认提交">
                           
                          <input type="reset" name="Submit" value="重置"></td>
                      </tr>
                    </table>
                  </form></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<%
UserName=ReplaceBadChar(Request.Form("UserName"))
UserNum=ReplaceBadChar(Request.Form("UserNum"))
TxtTitle=ReplaceBadChar(Request.Form("TxtTitle"))
TxtBody=ReplaceBadChar(Request.Form("TxtBody"))
If TxtBody<>"" And TxtTitle<> "" then
		TxtTitle=replace(TxtTitle,chr(13),"<br>")
		OprIP=Request.ServerVariables("REMOTE_ADDR")
		OprSys=system(Request.ServerVariables("ALL_HTTP"))
		'------------------------------------------
		StrSql="Insert Into RepUser(RepTitle,RepBody,UserName,RepIP,RepSys) Values('"
		StrSql=StrSql + TxtTitle + "','" +TxtBody + "','" + UserName + "','" + OprIP + "','" + OprSys + "')"
		Conn.execute(StrSql)
		'------------------------------------------
		  Call ShowMessAge("给留言成功,用户很快就能看到您的信息","Index.asp")
End IF
'===========================================

%>
<!--#include file="Foot.asp"-->