asp下jmail发邮件函数
该函数是根据某网上一函数改编而来的，至于是什么时候改的我也不记得了。
<%
'sent_address 发送者地址
'sent_name 发送者姓名
'sent_them 邮件主题
'sent_username 邮箱用户名
'sent_password 邮箱密码
'receive_address 接收者地址
'receive_htmlbody 邮件html内容
'receive_body 邮件纯内容
'sent_pop 邮件服务器
sub sent_email(sent_username,sent_password,sent_pop,sent_address,sent_name,sent_them,receive_address,receive_htmlbody)
On error resume next
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312"
JMail.from = trim(sent_address)
JMail.fromName = trim(sent_name)
JMail.Subject = trim(sent_them)
JMail.MailServerUserName = trim(sent_username)
JMail.MailServerPassword = trim(sent_password)
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.AddRecipient(trim(receive_address))
JMail.HTMLBody = trim(receive_htmlbody)
JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。"
JMail.Send(trim(sent_pop))
JMail.Close()
Set JMail = Nothing
if err.number<>0 then
response.write "<script language='javascript'>alert(""发送失败!"");</script>"
else
response.write "<script language='javascript'>alert(""发送成功!"");</script>"
end if
end sub
%>
调用该函数用
<%
call sent_email("")
%>
相关文档：
<%
Dim Fy_Url,Fy_a,Fy_x,Fy_Cs(),Fy_Cl,Fy_Ts,Fy_Zx
'---定义部份 头------
Fy_Cl = 1 '处理方式：1=提示信息,2=转向页面,3=先提示再转向
Fy_Zx = "Error.Asp" '出错时转向的页面
'---定义部份 尾------
On Error Resume Next
Fy_Url=Request.ServerVariables("QUER ......
<!--#include file="conn.asp"-->
<!--#include file="inc/head.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-cn" lang="zh-cn" xmlns:q ......
此方法可以不需要专门制作模板文件，只需正常运行的动态页面即可，具体方法如下，最终使用见最后一个函数：
Function getHTTPPage(url) ‘首页生成开始
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http ......
各大网络编程语言的10年奋战，各有所长、各领千秋。今日对于我们的网站编程语言:ASP、JSP、PHP、ASP.NET进行实际应用统计:
ASP:50%
JSP:10%
PHP:20%
ASP.NET:20%
根据以上统计来做一下讨论。ASP技术如今天可以说已成为过去，但仍占市场的50%，因为当时ASP技术的兴起，对大部分编程 ......
用ASP实现搜索并分页是我见大多数程序员和大多数网站出现了不能正常分页的问题，搜索出来的结果点击下一页数据又重定向为初始的结果。是什么原因倒致这个问题呢？
这个问题也是在我在校正在学习ASP的时候练习实例中遇到的问题，出现这个问题后，反复的调试反复的检查代码，看来看去代码没有不报错也无误。� ......
