?? 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 + -