⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 sendback.asp

📁 由网络搜集供大家学习使用如果侵占请自行删除
💻 ASP
字号:
<!--#include file="setup.asp" -->

<html>
<head>
<title>文章打包</title>
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<%
id=request("id")
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select title,content,linkurl from news where id="&cstr(id)

rs.open sql,conn,1,1
if rs.eof and rs.bof then
	response.write "没有此文章"
else
%>
<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> 
        <input type="text" name="From" value="<%=request.cookies("qbtrade_news")("email")%>">
        <input type="hidden" name="To">
      </td>
    </tr>
    <tr> 
      <td bgcolor="#FF9900" nowrap> 
        <div align="right">文章标题:</div>
      </td>
      <td bgcolor="#FFCC00" nowrap>《<%=rs("title")%>》 
        <input type="hidden" name="subject" value="《<%=rs("title")%>》">
      </td>
    </tr>
    <tr> 
      <td bgcolor="#FF9900" nowrap> 
        <div align="right">备注(可选):</div>
      </td>
      <td bgcolor="#FFCC00" nowrap> 
        <textarea name="attn" cols="50" wrap="VIRTUAL" rows="5">(无)</textarea>
      </td>
    </tr>
    <tr bgcolor="#FFCC00"> 
      <td nowrap colspan="2"> 
        <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" value="<%=server.htmlencode(replace(rs("content"),"<br>",""))%>">
  <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
document.form1.to.value=document.form1.from.value
document.form1.body.value="《<%=rs("title")%>》"+vbcrlf+vbcrlf+document.form1.body.value+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+"欢迎光临 "+"<%response.write homepage_title%> "+"<%response.write 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'>&copy;</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'>&trade;</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>
<%end if
rs.close
set rs=nothing
endconnection
%>

⌨️ 快捷键说明

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