contact1.asp
来自「ASP创思招聘求职系统源代码」· ASP 代码 · 共 49 行
ASP
49 行
<%
function sendMail( fromWho, toWho, Subject, Body )
DIM myMail
SET myMail = Server.CreateObject("CDONTS.Newmail")
myMail.From = fromWho
myMail.To = toWho
myMail.Subject = Subject
myMail.Body = Body
myMail.Send
SET myMail = Nothing
END function
fromWho = TRIM( Request.Form( "fromWho" ) )
toWho = TRIM( Request.Form( "toWho" ) )
Subject = TRIM( Request.Form( "Subject" ) )
Body = TRIM( Request.Form( "Body" ) )
id = TRIM( Request.Form( "id" ) )
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="css/cdol.css">
<title>应聘</title>
</head>
<body bgcolor="#E6E5B8">
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<table border="0" width="100%">
<tr>
<td width="100%"><%IF toWho = "" or fromWho = "" THEN
response.write "<center>请将发送地址和您的电子信箱地址填写完整。</center><p>"
response.write "<center><a href='contact.asp?userid="&id&"'>返回</a></center><p>"
else
sendMail fromWho, toWho, Subject, Body
response.write "<center>已经成功发送EMAIL!</center>"
%>
</td>
</tr>
</table>
<p> </p>
<p> </p>
<p align="center"><a href="javascript:onClick= window.close()">关闭窗口</a></p>
</body>
<%END IF%>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?