1799 查看 5 回复

主题：[分享]表单直接发送到邮箱，可修改465端口的asp发件程序CDO.Message [收藏主题]

转到：

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:hasdiff 性别:男 积分:4147分 威望:1599 帖子:802 精华:0 广播:2 粉丝:11 登录次数:438 次 注册时间:2011/10/28 15:06:45 最后登录:2024/4/3 14:10:26 hasdiff 当前离线 802 主题 2 广播 11 粉丝 级别:七年级 用户积分:4147 分 登录次数:438 次 注册时间:2011/10/28 最后登录:2024/4/3	hasdiff 发表于：2021/10/29 16:29:29   | 只看该作者 查看该作者主题 楼主  做考试题库 就用#科汛在线考试系统! 可修改465端口的asp发件程序 复制代码 <%'下面是定义一些变量，是这些变量从表单页面获取信息f_name=Request.Form ("f_name")f_tel=Request.Form ("f_tel")f_qq=Request.Form ("f_qq")f_email=Request.Form ("f_email")f_cname=Request.Form ("f_cname")f_address=Request.Form ("f_address")f_content=Request.Form ("f_content")' 下面就是调用从表单页获取的信息，赋值到mess，&是连接符，vbcrlf表示换行回车:mess = mess & "---------------Webmail表单开始-------------------" & vbcrlfmess = mess & "name:" & f_name & vbcrlfmess = mess & "tel:" & f_tel & vbcrlf'mess = mess & "qq:" & f_qq & vbcrlfmess = mess & "email:" & f_email & vbcrlfmess = mess & "cname:" & f_cname & vbcrlfmess = mess & "address:" & f_address & vbcrlfmess = mess & "content:" & f_content & vbcrlfmess = mess & "---------------Webmail表单结束-------------------" & vbcrlfConst Email_From = "发件箱"Const Password = "发件箱密码"Const Email_To = "收件箱"Set CDO = CreateObject("CDO.Message")CDO.Subject = "www.tgxiye.com - 网站留言"CDO.From = Email_FromCDO.To = Email_ToCDO.TextBody = messConst schema = "http://schemas.microsoft.com/cdo/configuration/"With CDO.Configuration.Fields        .Item(schema & "sendusing") = 2        .Item(schema & "smtpserver") = "smtp服务器"        .Item(schema & "smtpauthenticate") = 1        .Item(schema & "sendusername") = Email_From        .Item(schema & "sendpassword") = Password        .Item(schema & "smtpserverport") = 端口号，可以用465或者25        .Item(schema & "smtpusessl") = True        .Item(schema & "smtpconnectiontimeout") = 60        .UpdateEnd WithCDO.Send%>
	, 做考试题库 就用#科汛在线考试系统!
	支持(1) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:hasdiff 性别:男 积分:4147分 威望:1599 帖子:802 精华:0 广播:2 粉丝:11 登录次数:438 次 注册时间:2011/10/28 15:06:45 最后登录:2024/4/3 14:10:26 hasdiff 当前离线 802 主题 2 广播 11 粉丝 级别:七年级 用户积分:4147 分 登录次数:438 次 注册时间:2011/10/28 最后登录:2024/4/3	hasdiff 发表于：2021/10/29 16:30:39   | 只看该作者 查看该作者主题 沙发  一分钟快速开通线上知识店铺 将就看吧，论坛的代码就是会这样乱码，编辑不过来了
	有课程 找生源 就上科汛课堂街
	支持(1) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:recoba 性别:男 积分:1920分 威望:1691 帖子:331 精华:0 广播:4 粉丝:1 登录次数:253 次 注册时间:2006/8/6 11:59:00 最后登录:2024/1/19 9:58:57 recoba 当前离线 331 主题 4 广播 1 粉丝 级别:三年级 用户积分:1920 分 登录次数:253 次 注册时间:2006/8/6 最后登录:2024/1/19	recoba 发表于：2021/12/27 14:35:39   | 只看该作者 查看该作者主题 藤椅  有生源 找课程 就上科汛课堂街! 这个修改那里？
	做考试题库 就用#科汛在线考试系统!
	支持(1) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:hasdiff 性别:男 积分:4147分 威望:1599 帖子:802 精华:0 广播:2 粉丝:11 登录次数:438 次 注册时间:2011/10/28 15:06:45 最后登录:2024/4/3 14:10:26 hasdiff 当前离线 802 主题 2 广播 11 粉丝 级别:七年级 用户积分:4147 分 登录次数:438 次 注册时间:2011/10/28 最后登录:2024/4/3	hasdiff 发表于：2021/12/27 16:43:22   | 只看该作者 查看该作者主题 板凳  有课程 找生源 就上科汛课堂街 以下是引用 recoba在2021/12/27 14:35:39的发言： 这个修改那里？ ，这个单独的asp页面用的，科讯cms修改发件端口见我另一个帖子http://bbs.kesion.com/forumthread-1426860.html
	科汛商学院助您快速入门
	支持(1) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:hasdiff 性别:男 积分:4147分 威望:1599 帖子:802 精华:0 广播:2 粉丝:11 登录次数:438 次 注册时间:2011/10/28 15:06:45 最后登录:2024/4/3 14:10:26 hasdiff 当前离线 802 主题 2 广播 11 粉丝 级别:七年级 用户积分:4147 分 登录次数:438 次 注册时间:2011/10/28 最后登录:2024/4/3	hasdiff 发表于：2021/12/27 16:43:44   | 只看该作者 查看该作者主题 报纸  做官网 就用科汛智能建站系统! 以下是引用 recoba在2021/12/27 14:35:39的发言： 这个修改那里？ ，这个单独的asp页面用的，科讯cms修改发件端口见我另一个帖子http://bbs.kesion.com/forumthread-1426860.html
	科汛商学院助您快速入门
	支持(1) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:chenshikang 性别:男 积分:2638分 威望:1806 帖子:764 精华:0 广播:9 粉丝:11 登录次数:300 次 注册时间:2008/12/4 20:40:00 最后登录:2024/4/3 14:46:26 chenshikang 当前离线 764 主题 9 广播 11 粉丝 级别:六年级 用户积分:2638 分 登录次数:300 次 注册时间:2008/12/4 最后登录:2024/4/3	chenshikang 发表于：2021/12/28 15:19:22   | 只看该作者 查看该作者主题 地板  做官网 就用科汛智能建站系统! 编辑在记事本，上传进来不香吗
	做考试题库 就用#科汛在线考试系统!
	支持(1) | 反对(0) 顶端 底部

＜上一主题 | 下一主题 ＞

<< 返回列表 首 页 1