📄 msgnote.asp
字号:
<%
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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -