| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 728 人关注过本帖
标题:[求助]大家好!急切求助
取消只看楼主 加入收藏
yakey
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-9-27
收藏
 问题点数:0 回复次数:2 
[求助]大家好!急切求助

大家好呀,小女子初来乍到,有礼了。我是带着问题来的,请侠侠们帮帮我!
下面是做了一个直接提交到邮箱的表单的sent.asp。可是怎么也调试不出;帮忙诊断下吧,谢谢
<%
Dim idearmail, contentId
iname=Request("iname")
why=Request("why")
tel=Request("itel")
email=Request("iemail")
idear=Request("idear")
mailbody=""诉求类型:"&why&vbcrlf&"发件人:"&iname&vbcrlf&"我的邮箱:"&email&vbcrlf&"我的电话:"&tel&vbcrlf&"我的"&why&":"&idear"
Set idearmail = Server.CreateObject("JMail.Message")
idearmail.Charset = "gb2312"
idearmail.From =email
idearmail.FromName = iname
idearmail.Subject = "意见"
//idearmail.Subject = iname&"对***"why
idearmail.body=mailbody
idearmail.MailServerUserName = "asia"
idearmail.MailServerPassword = "7311"
idearmail.Priority = 3
idearmail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
idearmail.AddRecipient("***@hotmail.com")
isgo=idearmail.Send("用户名:密码@邮件服务器")
if isgo then
msg="提交成功!"
else
msg="发送失败!"
end if

idearmail.Close()
Set idearmail = Nothing

%>

搜索更多相关主题的帖子: Request why 
2007-09-27 11:06
yakey
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-9-27
收藏
得分:0 

已经研究过了,可还是不行。服务器上已经装了jmail了。我的这些语句好像有错误,可是自己找不到


2007-09-27 13:33
yakey
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-9-27
收藏
得分:0 
谢谢啊,太感谢了。我调的头都快破了~~还是提示错误。我再试试

2007-09-27 15:28
快速回复:[求助]大家好!急切求助
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012596 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved