发送程序
<%@LANGUAGE = VBscript%>
<html>
<body>
<%recipient ="info@123.com" '此为收信人电子邮箱
' 取得表单资料
name = Request.Form("name")
senderEmail = Request.Form("email")
other=request.Form("other")
subject ="Re:" & Request.Form("subject")
body = Request.Form("body")
if name <>"" and senderEmail <>"" and body<>"" then
set msg = Server.CreateOBject("JMail.Message") ' 建立 JMail 组件
msg.Logging = true ' 设定将寄信的过程记录下来
msg.silent = true ' 中文编码设定
msg.Charset ="gb2312"
msg.From = senderEmail ' 将表单资料存入组件中
msg.FromName = name
' smtp认证的关键
msg.mailserverusername="info@123.com" '邮箱账户，需完整地址
msg.mailserverpassword="password" '输入你的邮箱密码
msg.AddRecipient recipien ' 将收信人的资料加入组件
msg.Subject = subject ' 设定信件的主题
msg.body = body & "vbcrlf" & "vbcrlf" & "其他联系方式：" & other ' 设定信件的主体内容
if not msg.Send("mail.123.com") then '送出表单资料为电子邮件 ,并指定发信服务器 SMTP
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "信件成功寄出,谢谢您的留言!!"
Response.write "<a href=javascript:history.go(-1)>返回</a>"
end
msg.Close
set msg=nothing
else
response.write "请将内容填写完整!!"
end if
%>
</body>
</html>
四、课后问题：
1、试编写一页面，运行后弹出网络密码输入框，密码验证通过后，在客户端输出用户所输入的用户名和密码。
2、用文件系统对象，在C盘根目录下创建一个名为test.bat的文件，并写如以下内容：
@echo off
echo 利用文件系统对象进行的写文件测试
echo
echo 按任意键继续...
pause>nul
smartdrv
dir c:/p
clse
echo on
然后将该文件设置为只读。注意：在使用GetFile方法获得test.bat文件所对应的文件对象时，应先关闭该文件；
3、利用文件系统对象和ADO对象分别写两个页面计数程序；
