15439.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 23 行

HTML
23 行
字号 
<html>
  <head>
    <title>以cgi传mail</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>以cgi传mail</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by dino on July 09, 1999 at 15:31:13:<p>
In Reply to: <a href="15423.html">Re: ActiveX DLL 是欲应用于ASP程式中(使用MTS(Mircosoft Transactive Server))?</a> posted by Smith on July 09, 1999 at 09:58:58:<p>
: : 非常应感谢小吴的回答.我的意思是:  <br>: :    若于纲页上输入传送内容, 且指定 E-Mail 位址, 则此 ActiveX DLL 便将此邮件传送出去.<br>: 若是如此，小弟建议改为cgi来作比较方便。<p>提供以下source code在unix或linux传mail<br>sub sendemail {<br>	use Socket;<br>	$TO=$_[0];  @TO=split('\0',$TO);<br>	$SUBJECT=$_[1];<br>	$REPLYTO=$_[2];<br>	$REMOTE = $_[3];<br>	$THEMESSAGE = $_[4];<br>	if ($REMOTE =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) {<br>		$addr = pack('C4', $1, $2, $3, $4);<br>	}<br>	else { die("Bad IP address: $!"); }<br>	$port = 25 unless $port;<br>	$port = getservbyname($port,'tcp') if $port =~ /\D/;<br>	$proto = getprotobyname('tcp');<br>	socket(S, PF_INET, SOCK_STREAM, $proto) or die("Socket failed: $!");<br>#	$paddr = sockaddr_in($port, $addr);<br>#	connect(S, $paddr) or die("Unable to connect: $!");<br>	$sockaddr = 'S n a4 x8';      # shouldn't this be in Socket.pm?<br>	connect(S, pack($sockaddr, AF_INET, $port, $addr)) or die("无法连接 : $!");<p>	select(S); $| = 1; select(STDOUT);<br>	$a=<S>;<br>	print S "HELO ${SERVERNAME}\n";<br>	$a=<S>;<br>	print S "MAIL FROM:<mail>\n";<br>	$a=<S>;<br>	print S "RCPT TO:<$TO[0]>\n";<br>	$a=<S>;<br>	if ($#TO > 0) { foreach (1..$#TO) { print S "RCPT TO: $TO[$_]\n";$a=<S>; }<br>		}<br>	print S "DATA \n";<br>	$a=<S>;<br>	print S "To: $TO[0]\n";<br>	if ($#TO > 0) { foreach (1..$#TO) { print S "Cc: $TO[$_]\n"; }<br>		}<br>	print S "Subject: $SUBJECT\n";<br>	print S "Reply-To: $REPLYTO\n";<p>	# Print the body<br>	print S "$THEMESSAGE\n";<br>	print S ".\n";<br>	$a=<S>;<br>	print S "QUIT";<br>	close (S);<br>}<p>呼叫时:<br>&sendemail($form{'to_email'}, $mail_title, $form{'myemail'}, $mailserver, "this is mail content") ;<p>当然server要有perl complier
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 15439-->
</ul><!--end: 15439-->
<br><hr size=7 width=75%><p>

</body></html>

15439.html - 源码说明

本页面展示了「VB技巧问答10000例 VB技巧问答10000例」中的 15439.html 源码文件，采用 HTML 编程语言编写，共 23 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?