📄 post_page.asp
字号:
<!--#INCLUDE FILE="config.inc" -->
<html>
<head>
<title>Post Topic Toa Friend</title>
</head>
<Style><!--
a:link {color="<% =LinkColor %>";text-decoration:<% =LinkTextDecoration %>}
a:visited{color:"<% =VisitedLinkColor %>";text-decoration:<% =VisitedTextDecoration %>}
a:hover {color:"<% =HoverFontColor %>";text-decoration:<% =HoverTextDecoration %>}
-->
</style>
<BODY bgColor="<% =PageBGColor %>" text="<% =DefaultFontColor %>" link="<% =LinkColor %>"
aLink=<% =ActiveLinkColor %> vLink="<% =ActiveLinkColor %>">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=100%>
<TR>
<TD vAlign=top><IMG alt="<% =BBTitle %>" border=0 src="<%=TitleImgLocation%>"> </TD>
<TD align=right vAlign=top>
</TD></TR></TABLE>
<div align="center"><center>
<%
if Request.QueryString("mode") = "doit" then
' Set smtp = Server.CreateObject("SmtpMail.SmtpMail.1")
MailServer = "mail1.stoneplanet.com"
Recipients = Request.Form("email")
Sender = "asp@asp-dev.ml.org"
Subject = "From: " & Request.Form("yname") & " Interesting Page"
msg = "Hello " & Request.Form("name") & vbcrlf & vbcrlf
msg = msg & Request.Form("msg") & vbcrlf & vbcrlf
msg = msg & "You recieved this from : " & Request.Form("yname") & " " & Request.Form("yemail")
' smtp.MailServer = MailServer
' smtp.Recipients = Recipients
' smtp.Sender = Sender
' smtp.Subject = Subject
' smtp.Message = msg
on error resume next ' Ignore Errors
' smtp.SendMail2
' Set smtp = Nothing
%>
<div align=center>
<font face="<% =DefaultFontFace %>" size=3>Email has been sent</font>
</div>
<%
else
%>
<form action="post_page.asp?mode=doit" method=post id=form1 name=form1>
<input type=hidden name="page" value="<%=Request.QueryString %>">
<TABLE bgColor=#b0c4de border=1 cellPadding=0 cellSpacing=0 width=90% background="" bordercolor=#000000>
<TR>
<TD width="50%"><font face="<% =DefaultFontFace %>" size=2>Send To Name</td>
<TD width="50%"><font face="<% =DefaultFontFace %>" size=3><input type=text name="name" size=20>
</td>
</tr>
<TR>
<TD width="50%"><font face="<% =DefaultFontFace %>" size=2>Send To Email</td>
<TD width="50%"><font face="<% =DefaultFontFace %>" size=3><input type=text name="email" size=20>
</td>
</tr>
<TR>
<TD><font face="<% =DefaultFontFace %>" size=2>Your Name</FONT></td>
<TD><font face="<% =DefaultFontFace %>" size=3><input name="yname" size=20>
</td>
</TR>
<TR>
<TD><font face="<% =DefaultFontFace %>" size=2>Your Email</FONT></td>
<TD><font face="<% =DefaultFontFace %>" size=3><input name="yemail" size=20>
</td>
</TR>
<TR>
<TD colspan=2><font face="<% =DefaultFontFace %>" size=2>Message</FONT></td>
</tr>
<tr>
<TD colspan=2><font face="<% =DefaultFontFace %>" size=3><textarea name="msg" cols=40 rows=5>Hi, <%=vbcrlf %>I thought you might be interested in this page:<%=vbcrlf & Request.QueryString("page") %></textarea>
</td>
</TR>
</TR>
<TR>
<TD colspan=2 align=center><Input type=submit value="Send" id=submit1 name=submit1></td>
</TD>
</TR>
</form>
</TABLE>
<% end if %>
<font face="<% =DefaultFontFace %>" size=2>
<a href="javascript:onClick= window.close()"><small>Close
Window</SMALL></A></div></center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -