📄 messagewrite.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
'毕业设计;林林在线网络招聘系统
'毕业设计:林林在线网络招聘系统
if session("user")="" then
Response.write("<center>错误的参数,请先登陆")
Response.End
end if
%>
<%
dim rs,rs1,Sql,name,id
name = Session("user")
ID = Session("ID")
set Rs = Conn.Execute("select * from userinfo where user='"&session("user") &"'")
if rs.eof then
Response.write("<center>您还没有登记,不能使用站内信件系统,请先登记!")
Response.End
end if
if request.Form("action")="addto" then
if Replace(Trim(Request.Form("to")),"'","''")=Replace(Trim(Request.Form("From")),"'","''") then
Response.write("<center>不能给自己发信！")
Response.End
end if
set Rs1 = Conn.Execute("select * from alluser where user='"& Replace(Trim(Request.Form("to")),"'","''") &"'")
if rs1.eof then
Response.write("<center>不存在此用户")
Response.End
end if
set rs = server.CreateObject ("ADODB.RecordSet")
Sql = "select * from message"
rs.Open Sql,Conn,1,3
rs.addnew
rs("to")=Replace(Trim(Request.Form("to")),"'","''")
rs("From")=Replace(Trim(Request.Form("From")),"'","''")
rs("TiTle")=Replace(Trim(Request.Form("TiTle")),"'","''")
rs("Content")=request.Form("Content")
rs("Date")=now()
rs("ReadTF")=false
rs("IsRecyle")=false
rs("Isfj")=true
rs.update
rs.close
set rs=nothing
Response.write("<center>成功发送")
Response.End
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>信息中心</title>
<style type="text/css">
<!--
.style1 {font-size: 14px}
.style2 {font-size: 12px}
-->
</style>
</head>
<body>
<table width="700" border="0" align="center" cellpadding="8" cellspacing="1" class="tabbgcolor">
<tr>
<td height="315" valign="top" class="tabbgcolorli"> <form name="form1" method="post" action="">
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td colspan="2"><div align="left"><font color="#FF0000"><a href="Messagewrite.asp?name=<%=session("user")%>"><img src="../../pic/m_write.gif" width="40" height="40" border="0"></a><a href="recycle.asp?name=<%=Session("user")%>"><img src="../../pic/M_recycle.gif" width="40" height="40" border="0"></a><a href="Message.asp?name=<%=Session("user")%>"><img src="../../pic/o_inbox.gif" width="40" height="40" border="0"></a></font></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="21%"> <div align="right" class="style2">收件人:</div></td>
<td width="79%"> <input name="to" type="text" id="to" size="50"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> <div align="right" class="style2">标题：</div></td>
<td> <input name="Title" type="text" id="Title" size="50" value="标题"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> <div align="right" class="style2">内容：</div></td>
<td> <textarea name="Content" cols="60" rows="10" id="Content"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> </td>
<td><input type="submit" name="Submit" value="发送">
<input type="reset" name="Submit2" value="重置">
<input name="action" type="hidden" id="action" value="addto">
<input name="from" type="hidden" id="from" value="<%=session("user")%>"></td>
</tr>
</table>
</form> </td></tr>
<tr>
<td class="tabbgcolorlileft">
<div align="center">
<p class="tabbgcolorlileft style1">程序制作:林林</p>
</div></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -