?? newstj.asp
字號:
<!--
┌─9911.com.cn────────────┐
│ 動感購物 WWW.9911.com.cn 版權所有 │
│ 動感購物2005Vb 聯系：web@snsn.net │
└───────────9911.com.cn──┘
-->
<!--#include file="../conn.asp"-->
<!--#include file="../webconfig.asp"-->
<!--#include file="../fuction.asp" -->
<html>
<head>
<title><%=webname%>--新聞中心</title>
<html>
<link rel="SHORTCUT ICON" href="/shortcut.ico">
<meta name="generator" content="snsn-shop">
<meta name=keywords content="<%=webgjz%>">
<meta name="description" content="<%=webmx%>">
<meta name="MSSmartTagsPreventParsing" content="TRUE">
<meta http-equiv="MSThemeCompatible" content="Yes">
<link href="/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin=0 topmargin=0 marginwidth="0" marginheight="0"><%dim newsid,action
newsid=nosql(request.QueryString("id"))
action=nosql(request.QueryString("action"))
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_news where newsid="&newsid,conn,1,1
newsname=rs("newsname")
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
rs.Open "select mailaddress,mailusername,mailuserpass,mailname,mailsend from shop_config",conn,1,1
mailaddress=rs("mailaddress")
mailusername=rs("mailusername")
mailuserpass=rs("mailuserpass")
mailname=rs("mailname")
mailsend=rs("mailsend")
rs.close
set rs=nothing
'發郵件
topic=webname &" 的新聞推薦"
mailbody="<html>"
mailbody=mailbody & "<title>新聞推薦</title>"
mailbody=mailbody & "<body>"
mailbody=mailbody & "<TABLE border=0 width='95%' align=center><TBODY><TR>"
mailbody=mailbody & "<TD valign=middle align=top>"
mailbody=mailbody & trim(request("friendname"))&"，您好：<br><br>"
mailbody=mailbody & "您的朋友"&trim(request("myname"))&"推薦給您一篇精彩文章，請點擊以下鏈接查看詳細情況<br><br>"
mailbody=mailbody & "新聞名稱： <a href="&weburl&"/news.asp?id="&newsid&" target=_blank>"&newsname&"</a><br><br><br>"
mailbody=mailbody & "歡迎光臨： <a href="&weburl&" target=_blank>"&webname&"</a><br><br><br>"
mailbody=mailbody & "</TD></TR></TBODY></TABLE><br><hr width=95% size=1>"
mailbody=mailbody & "</body>"
mailbody=mailbody & "</html>"
on error resume next
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
jmail.from = mailsend
jmail.silent = true
jmail.Logging = true
jmail.FromName = mailname
jmail.mailserverusername = mailusername
jmail.mailserverpassword = mailuserpass
jmail.AddRecipient request("friendemail")
jmail.body=mailbody
JMail.Subject=topic
if not jmail.Send ( mailaddress ) then
SendMail=""
else
SendMail="OK"
end if
if SendMail="OK" then
sendmsg="您的推薦已經成功發出！"
else
sendmsg="由于系統錯誤，您的推薦未能成功發送。"
end if
response.Write "<script language='javascript'>alert('"&sendmsg&"');window.close();</script>"
end if
%><br>
<table width="316" border="0" cellspacing="0" cellpadding="0" align="center" class="table-1">
<tr>
<td bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<form name="pinglunform" method="post" action="newstj.asp?action=save&id=<%=newsid%>" onsubmit="return check();">
<td>
<table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr align="center">
<td colspan="2" height="22"><b>新 聞 推 薦</b></td>
</tr>
<tr>
<td width="29%" align="right" height="22">朋友的姓名：</td>
<td width="71%" height="22"> <input name="friendname" class="wenbenkuang" type="text" id="friendname" size="26">
</td>
</tr>
<tr>
<td width="29%" height="22" align="right">朋友的Email：</td>
<td width="71%" height="22"> <input name="friendemail" class="wenbenkuang" type="text" id="friendemail" size="26">
</td>
</tr>
<tr>
<td width="29%" align="right" height="22">您的姓名：</td>
<td width="71%" height="22"> <input name="myname" class="wenbenkuang" type="text" id="myname" size="26" value=<%=session("username")%>>
</td>
</tr>
<tr>
<td colspan="2" height="25"> <div align="center">
<input name="Submit" type="submit" class="go-wenbenkuang" value="發送" onFocus="this.blur()">
<input name="Submit2" type="reset" class="go-wenbenkuang" value="重置">
<input name="Submit3" type="button" class="go-wenbenkuang" value="返回" onClick="javascript:window.history.go(-1)">
</div></td>
</tr>
</table>
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode2 = fString
end function%>
<script LANGUAGE="javascript">
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
function check()
{
if(checkspace(document.pinglunform.friendname.value)) {
document.pinglunform.friendname.focus();
alert("請填寫朋友的姓名！");
return false;
}
if(checkspace(document.pinglunform.friendemail.value)) {
document.pinglunform.friendemail.focus();
alert("請填寫朋友的Email！");
return false;
}
if(document.pinglunform.friendemail.value.length!=0)
{
if (document.pinglunform.friendemail.value.charAt(0)=="." ||
document.pinglunform.friendemail.value.charAt(0)=="@"||
document.pinglunform.friendemail.value.indexOf('@', 0) == -1 ||
document.pinglunform.friendemail.value.indexOf('.', 0) == -1 ||
document.pinglunform.friendemail.value.lastIndexOf("@")==document.pinglunform.friendemail.value.length-1 ||
document.pinglunform.friendemail.value.lastIndexOf(".")==document.pinglunform.friendemail.value.length-1)
{
alert("請正確填寫朋友的Email！");
document.pinglunform.friendemail.focus();
return false;
}
}
else
{
alert("請填寫朋友的Email");
document.pinglunform.friendemail.focus();
return false;
}
if(checkspace(document.pinglunform.myname.value)) {
document.myname.mayname.focus();
alert("請填寫您的姓名！");
return false;
}
}
</script>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -