?? comsendmail.asp
字號:
<% Response.Buffer=True %>
<!--#include file="inccompany.asp"-->
<!--#include file="inchtml.asp"-->
<% uname=session("cuid")
reid=request("reid")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from company where uname='"&uname&"' and job<>'""'"
rs.open sql,conn,1,1
if rs.bof or rs.eof then
response.write"<SCRIPT language=JavaScript>alert('請先發(fā)布招聘信息！');"
response.write"javascript:window.close();</SCRIPT>"
end if
sendname=rs("cname")
rs.close
set rs=nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from person where uname='"&reid&"'"
rs.open sql,conn,1,1
if rs.bof or rs.eof then
response.write"<SCRIPT language=JavaScript>alert('用戶["&reid&"]不存在！');"
response.write"javascript:window.close();</SCRIPT>"
end if
rename=rs("iname")
rs.close
set rs=nothing
Set rs = Server.CreateObject("ADODB.Recordset") %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" href="incregister.css" type="text/css">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>發(fā)送站內信件</title>
</head>
<body>
<form method=post action="comsendmail.asp?reid=<%=reid%>">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" width="408" height="231" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF">
<tr>
<td height="15" width="406" valign="bottom" background=imgt-bg1.gif">
<p align="center">=== 發(fā)送站內信件 ===</td>
</tr>
<tr>
<td height="216" width="406" valign="top" bgcolor="#EBEBEB">
<p align="center"><br>
收信單位:<%=rename%></p>
<p align="center">標 題:
<input type="text" name="title" size="28" maxlength="20">
<p align="center">正 文:<br>
<textarea rows="14" name="mailtext" cols="44"></textarea>
<p align="center"><input type="submit" value="確 定" style="position: relative; height: 19"><br>
<br>
</p>
</td>
</tr>
</center>
</table>
</div>
<p align="left"> </p>
</form>
</body>
</html>
<% mailtext=htmlencode2(request("mailtext"))
title=request("title")
if mailtext="" then
Response.End
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from pmailbox"
rs.open sql,conn,3,3
rs.addnew
rs("reid")=reid
rs("senduid")=uname
rs("sendname")=sendname
rs("title")=title
rs("mailtext")=mailtext
rs("sdate")=now()
rs.update
response.write"<SCRIPT language=JavaScript>alert('信件發(fā)送成功！');"
response.write"javascript:window.close();</script>" %>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -