《网页制作案例》完整的留言板程序代码.doc_大学文库

文档信息

资源类别：文库
文档格式：DOC
文档页数：2
文件大小：31KB
团购合买：点击进入团购

内容简介

(4)完整的留言板程序代码 Dim sKind, sName, sSex, sFrom, STo, sSubject, s Body Dim CDOMail, Title, Message NL=CHR(13)+CHR(10)换行字符 st( From) SName=Request( "Name")

刷新页面文档预览

(4)完整的留言板程序代码 Dim sKind, sName, sSex, sFrom, STo, sSubject, s Body Dim CDOMail, Title, Message NL=CHR(13)CHR(10)'换行字符 sTo=wangfu(@qtc.cc sSubject=“[留言板]”+ Request( Subject”) sBody=Request(" Body") If ssex=“0”Then Ttle=小姐 Else Tte=先生” End I Message=“姓名”+ SName+Ttle+NL Message= Message+时间:&Now&N Message=message+ Message=Message+sBody+NL Messa Message=Message+"IP ftfiE: "+Request("REMOTE ADDR"H+NL Message= Message+”相关信息:”+ Request( Httpuser Agent Set CDOMail=Server CreateObject("CDONTS. New Mail CDOMail From=s From CDOMail. To=STo CDOMail. Subject=sSubject CDOMail. Body=Message Set cdomail=nothing 欢迎留言,我们收到信息后会尽快与您联系谢谢! 发件人: 收件人:

（4）完整的留言板程序代码留言板欢迎留言，我们收到信息后会尽快与您联系谢谢！发件人: 收件人: 时间: ===================================== =====================================

IP地址: 相关信息

IP 地址: 相关信息:

已到末页，全文结束

刷新页面下载完整文档

VIP每日下载上限内不扣除下载券和下载次数；
按次数下载不扣除下载券；
注册用户24小时内重复下载只扣除一次；
顺序：VIP每日次数-->可用次数-->下载券；