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"-->