?? writetocom.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%"> <span class="style1"><input name="to" type="text" id="to" value="<%=Request.QueryString("com")%>" size="50" readonly="true"></span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> <div align="right" class="style2">標題：</div></td>
<td> <span class="style1"><input name="Title" type="text" id="Title" size="50" value="標題"></span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> <div align="right" class="style2">內容：</div></td>
<td> <span class="style1"><textarea name="Content" cols="60" rows="10" id="Content"></textarea></span></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 + -