📄 recommend.asp
字号:
<!--#include file="setup.asp" -->
<%
id=request("id")
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select title from news where id="&cstr(id)
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有此文章"
else
title=rs("title")
end if
rs.close
set rs=nothing
endconnection
%>
<html>
<head>
<title>将文章推荐给朋友</title>
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<form name="form1" method="post" action="sendmail.asp">
<table width="88%" border="0" align="center">
<tr>
<td bgcolor="#FF9900" nowrap>
<div align="right">您的Email：</div>
</td>
<td bgcolor="#FFCC00" nowrap>
<div align="center">
<input type="text" name="From" value="<%=request.cookies("qbtrade_news")("email")%>">
</div>
</td>
<td bgcolor="#FF9900" nowrap>
<div align="right">朋友的E-mail：</div>
</td>
<td bgcolor="#FFCC00" nowrap>
<div align="center">
<input type="text" name="To">
</div>
</td>
</tr>
<tr>
<td bgcolor="#FF9900" nowrap>
<div align="right">信件主题：</div>
</td>
<td colspan="3" bgcolor="#FFCC00" nowrap>推荐给您：《<%=title%>》
<input type="hidden" name="subject" value="推荐给您：《<%=title%>》">
</td>
</tr>
<tr>
<td bgcolor="#FF9900" nowrap>
<div align="right">附言（可选）：</div>
</td>
<td colspan="3" bgcolor="#FFCC00" nowrap>
<textarea name="attn" cols="50" wrap="VIRTUAL" rows="5">（无）</textarea>
</td>
</tr>
<tr bgcolor="#FFCC00">
<td nowrap colspan="4">
<div align="center">
<input type="submit" name="Submit" value="确定">
<input type="reset" name="reset" value="重来">
<input type="button" name="Submit3" value="返回" onclick="history.back()">
</div>
</td>
</tr>
</table>
<input type="hidden" name="body">
<input type="hidden" name="backto" value="<%=request.servervariables("http_referer")%>">
</form>
<script language=Vbscript>
function form1_onSubmit()
if instr(document.form1.from.value,"@")=false or instr(document.form1.from.value,".")=false then
msgbox "请输入合法的email地址！",vbcritical,"error"
document.form1.from.focus()
form1_onSubmit=false
exit function
end if
if instr(document.form1.to.value,"@")=false or instr(document.form1.to.value,".")=false then
msgbox "请输入合法的email地址！",vbcritical,"error"
document.form1.to.focus()
form1_onSubmit=false
exit function
end if
document.form1.body.value=document.form1.to.value&"，您好！"&vbcrlf&vbcrlf
document.form1.body.value=document.form1.body.value+"您的朋友["&document.form1.from.value&"]向您推荐了以下的这篇文章："&vbcrlf&vbcrlf
document.form1.body.value=document.form1.body.value+"《<%=title%>》"&vbcrlf&vbcrlf
document.form1.body.value=document.form1.body.value+"请你到这个地址浏览："+document.form1.backto.value&vbcrlf&vbcrlf
document.form1.body.value=document.form1.body.value+"他还给你留了短信："&vbcrlf+document.form1.attn.value&vbcrlf&vbcrlf
document.form1.body.value=document.form1.body.value+"更多文章在："+"<%=news_location%>"&vbcrlf&vbcrlf
document.form1.body.value=document.form1.body.value+"欢迎光临 "+"<%=homepage_title%> "+"<%=homepage_link%>"
end function
</script>
<script language="JavaScript">
document.write("<hr width='80%' size='1'>");
document.write("<div align='center' style=fontsize:9pt;><font face='Verdana, Arial, Helvetica, sans-serif'>");
document.write("<a href=<%=homepage_link%> target=_blank><font color=red><%=homepage_title%></font></a> - <a href=<%=news_location%>\default.asp><font color=black><%=news_title%></font></a><br>");
document.write("<font face='Verdana, Arial, Helvetica, sans-serif' color='#000000'>");
document.write("Copyright</font><font face='Verdana, Arial, Helvetica, sans-serif' color='#FF0000'> ");
document.write("<font color='#0000FF'>©</font></font>");
document.write("<font face='Verdana, Arial, Helvetica, sans-serif' color='#000000'>By ");
document.write("<a href=http://www.qbtrade.com target=_blank>QBTrade<font color='#0000FF'>™</font> Group</a>, 2000.8.30</font><font face='Verdana, Arial, Helvetica, sans-serif'>");
document.write("<br><font color='#000000'>All rights Reserved</font>");
document.write("<br><a href=http://www.qbtrade.com target=_blank><font color='#000000' size=-1>Click here to download the newest version of QBnews</font></a></div>");
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -