作者rita167 (振作)
看板Web_Design
标题请问线上填表单後自动寄信....
时间Tue Jul 4 11:08:52 2006
请问各位
有些公司网页会有那种让顾客填客服意见的页面
不需要开outlook就可以填完直接传送资料出去
我想要在我做的网站上增加一个类似的页面
不过我自己当然是不会写啦...^^b
我现在买的一本asp教学的书里面有做好的范例
但是书上的例子是让我们在本机上测试而已
请问
我要改下面程式码的哪里才能在我们学校的空间上执行呢？
谢谢
<%
myMailServer = "127.0.0.1"
sch = "
http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = myMailServer
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = request("s_name") & "<" & request("s_email") & ">"
cdoMessage.To = "
[email protected]" <---这边我看得出来要改成我的信箱
cdoMessage.Subject = request("s_subject")
cdoMessage.HTMLBody = request("s_content")
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 128.192.177.126
1F：推 pm2001:学校有给你执行asp的能力? 07/04 11:15
2F：推 rita167:有的 可以执行 asp vbscript 只是我不太会用 07/04 11:20
3F：→ rita167:所以不知道要改哪边 07/04 11:21
4F：→ pcgrace:你们学校是2003server吗??这个语法只能在2003跑哦 07/04 22:09