(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 地址: 相关信息: