JMail.AddRecipient "china@kevin-ying.com","网站邮件"
JMail.AddRecipient "cn@kevin-ying.com","网站邮件"
aryEmail = split("china@kevin-ying.com;cn@kevin-ying.com", ";")
for i=0 to UBound(aryEmail)
JMail.AddRecipient Trim(aryEmail(i))
next
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
if Request.QueryString("act")="submit" then
Dim uEmail
uEmail=Trim(Request.Form("amail"))
..代码省略..
aryEmail = split(""&uEmail&"", ";")
for i=0 to UBound(aryEmail)
JMail.AddRecipient Trim(aryEmail(i))
next
..代码省略..
%>
<input type="text" name="amail" value="cn@kevin-ying.com;china@keivn-ying.com;更多@163.com" />
欢迎光临 源于生活 (http://bbs.vingoo.info/) | Powered by Discuz! X3.1 |