msgnote.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 59 行

ASP
59 行
字号 
<%
Dim sKind,sName,sSex,sFrom,sTo,sSubject,sBody
Dim CDOMail,Title,Message

NL=CHR(13)+CHR(10)  '换行字符串
sFrom=Request("From")
sName=Request("Name")
sTo="wangfm@qvtc.cc"
sSubject="[留言板]"+Request("Subject")
sBody=Request("Body")
sSex=Request("Sex")

If sSex="1" Then
   Title="小姐"
Else
   Title="先生"
End If

Message="姓名："+sName+Title+NL
Message=Message+"时间：" & Now & NL
Message=Message+"-----------------------------"+NL
Message=Message+sBody+NL
Message=Message+"-----------------------------"+NL
Message=Message+"IP地址："+Request("REMOTE_ADDR")+NL
Message=Message+"相关信息："+Request("HTTP_USER_AGENT")

Set CDOMail=Server.CreateObject("CDONTS.NewMail")
CDOMail.From=sFrom
CDOMail.To=sTo
CDOMail.Subject=sSubject
CDOMail.Body=Message
CDOMail.Send
Set CDOMail=Nothing
%>

<HTML>
<HEAD>
<TITLE>留言板</TITLE>
</HEAD>
<BODY>
<BR>
<BLOCKQUOTE>
<P>
欢迎留言，我们收到信息后会尽快与您联系，谢谢！
</P>
发件人：<%=sName%><%=Title%><%=sFrom%><BR>
收件人：<%=sTo%><BR>
时  间：<%=Now%><BR>  
======================================================
<PRE><%=Request("REMOTE_ADDR")%></PRE>
======================================================
<BR>
IP地址：<%=Request("REMOTE_ADDR")%><BR>
相关信息：<%=Request("HTTP_USER_AGENT")%>
</BLOCKQUOTE>
</BODY>
</HTML>

msgnote.asp - 源码说明

本页面展示了「《动态网页设计基础教程》,胡杰,科学出版社」中的 msgnote.asp 源码文件，采用 ASP 编程语言编写，共 59 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与动态相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?