|
|
主题: asp发送表单的程序
|
ceapro
职务：普通成员
等级：1
金币：0.0
发贴：28
注册：2002/6/27 0:08:57
|
#12002/7/4 1:56:03
那位高手能提供asp发送表单的程序？ 我的表单不希望通过浏览者端的电子邮件程序发送，所以要找一个asp程序来完成。  多谢。
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
|
冰河谷
职务：普通成员
等级：3
金币：10.0
发贴：1130
注册：2001/5/25 18:33:08
|
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#42002/7/4 15:20:04
大家可以下载了测试。现在我邮箱里全是你们发的信了 
|
ceapro
职务：普通成员
等级：1
金币：0.0
发贴：28
注册：2002/6/27 0:08:57
|
#52002/7/4 21:08:59
哪里有免费的asp空间可以测试？  我的win98盘丢了，网上能不能下载personal web server我在机器上测试一下？ 
|
ceapro
职务：普通成员
等级：1
金币：0.0
发贴：28
注册：2002/6/27 0:08:57
|
#62002/7/4 22:47:06
无缺，我把你的代码传到我的服务器上怎么发不成？出来出错提示，如下： Server object error 'ASP 0177 : 800401f3' Server.CreateObject Failed /ceapro/sentemail.asp, line 43 Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: www.microsoft.com/contentredirect.asp.
|
平凡人
职务：普通成员
等级：4
金币：17.0
发贴：1442
注册：2004/1/15 18:14:01
|
|
三月双鱼
职务：普通成员
等级：1
金币：0.0
发贴：16
注册：2001/11/25 23:52:27
|
#82002/7/5 1:02:37
有问题，我试了以后显示Microsoft VBScript 编译器错误 错误 '800a03ea'
语法错误
/mail/sentemail.asp, 行45
objCDOMail.To ="wyt0164@sina.com" //你的邮箱地址
请问是怎么回事，是不是需要装个邮件服务器呀，应该装哪种邮件服务器呢
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#92002/7/5 11:24:49
这个是用的iis的虚拟邮件服务器，可能你的服务器不支持这个吧。
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#102002/7/5 11:25:51
语法错误不应该吧。可能你修改时哪儿弄错了？
|
ceapro
职务：普通成员
等级：1
金币：0.0
发贴：28
注册：2002/6/27 0:08:57
|
#112002/7/20 5:10:07
无缺，你提供的程序存在设计上的缺陷。
你虽然设置了验证username不能为空，但在后面cdont中你并没有将这个值发出去，所以说那一段验证username的没起到任何用处。因此你收到邮件后也不知道发信人的名字，回信时不好称呼。
这些缺陷如何解决？
|
ceapro
职务：普通成员
等级：1
金币：0.0
发贴：28
注册：2002/6/27 0:08:57
|
#122002/7/20 5:25:35
建议把两个值合到一起，见中间那一行：
<%@LANGUAGE="VBSCRIPT"%>
<%
Name = Request.Form("Name")
Email = Request.Form("Email")
Body = Request.Form("Comments")
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strName
Dim strEmail
Dim body
strFrom = "OnlineForm"
strName = Name
strEmail = Email
strSubject = strName + "/" + strEmail '把两个值合到一起
body = Comments
strTo = "webmaster@moftec.gov.cn"
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.BodyFormat = 0
myCDONTSMail.MailFormat = 0
myCDONTSMail.From = strFrom
myCDONTSMail.BCC = strTo
myCDONTSMail.To= strTo
myCDONTSMail.Subject = strSubject
myCDONTSMail.Body = body
myCDONTSMail.Send
Set myCDONTSMail = Nothing
%>
|
