fa.asp

8款下载系统源代码 2003-3-11 21:37:45 433 949k · 都很常见： 猛虎山庄、燕衔泥（飞扬的软件第二版用的就是他

<%

email=Request("email")
email2=Request("email2")
If email="" or email2="" Then
response.write "SORRY <br>"
response.write "输入各栏不能为空"
response.end
end if
if Instr(email,"@")=0 Then
 response.write "SORRY <br>"
 response.write "1你朋友的邮箱地址难道是这个？<br>一看就是假的！"
 response.end
end if
if Instr(email,".")=0 Then
 response.write "SORRY <br>"
 response.write "2你朋友的邮箱地址难道是这个？<br>一看就是假的！"
 response.end
end if
if Instr(email2,"@")=0 Then
 response.write "SORRY <br>"
 response.write "你朋友的邮箱地址难道是这个？一看就是假的！"
 response.end
end if
if Instr(email2,".")=0 Then
 response.write "SORRY <br>"
 response.write "你朋友的邮箱地址难道是这个？一看就是假的！"
 response.end
end if

  BODY="你好 <br>"
  BODY="你的朋友推荐你去【软件icq】http://www.softicq.com看一个非常好的软件！"
    Sub Send_ASPEMail_check()
     dim  objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =email2  
objCDOMail.To = email
objCDOMail.Subject = "新闻推荐信息"
objCDOMail.Body = BODY
objCDOMail.Send
Set objCDOMail = Nothing
End Sub
response.write "<br>操作成功！已经发到您指定的邮箱里了！！"
response.write "请关闭本窗口"
response.end

%>