📄 tuijian.asp

📁 是一套很好的数码购物系统
💻 ASP
字号:
<!--#include file="include/buyok_shop_30_conn.asp" -->
<html><head><title>推荐给好友-<%=sitename%>-<%=siteurl%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitedescription%>">
<meta name="keywords" content="<%=sitekeywords%>">
<link rel="stylesheet" href="buyok_shop.css" type="text/css">
</head>
<SCRIPT language=javascript>
function check(){
	if(frmData.fName.value=="") {
		alert("出错了，请填写您朋友的姓名！");
		document.frmData.fName.focus();
		return false;
	}
	if(frmData.fEmail.value=="") {
		alert("出错了，请填写您朋友的Email！");
		document.frmData.fEmail.focus();
		return false;
	}
	if(frmData.yName.value=="") {
		alert("出错了，请填写您的姓名！");
		document.frmData.yName.focus();
		return false;
	}
	if(frmData.yEmail.value=="") {
		alert("出错了，请填写您的Email！");
		document.frmData.yEmail.focus();
		return false;
	}
	if(frmData.fNote.value.length<20) {
		alert("出错了，您的推荐内容太短了！");
		document.frmData.fNote.focus();
		return false;
	}
	if(frmData.fNote.value.length>500) {
		alert("出错了，您的推荐内容太长了！");
		document.frmData.fNote.focus();
		return false;
	}
	return true;
}
</SCRIPT>
<body text="#000000" leftmargin="0" topmargin="20" marginwidth="0" marginheight="0" background="images/<%=skin%>/background.gif" >
<%
call aspsql()

if request("send")<>"ok" then

where=Request.ServerVariables("HTTP_REFERER")
if where="" then where=siteurl
id=trim(request("id"))
Set rs=conn.execute ("select * from buyok_produc where Online=true and ProdId='"&id&"'")
if not (rs.bof and rs.eof) then
Prodname=rs("Prodname")
else
Prodname=sitename
end if
%>

<table cellSpacing="5" cellPadding="5" width="500" align="center" bgColor="#f4f4f4" border="0">
<tr><td>

<table cellSpacing="4" cellPadding="0" width="400" border="0" align=center style="word-break:break-all">
<form name="frmData" onsubmit="return check();" action="tuijian.asp" method="post">
<tr>
<td colspan="2" align=center height=30>把 <a href="<%=where%>" target='_blank'><font color=red><b>【<%=Prodname%>】</font></b></a> 推荐给好友</td>
</tr>
<tr>
<td width=60 align=right>朋友姓名</td>
<td><input name="fName" size=40 type="text" maxlength="20" style="height=18; border: darkgray 1px solid; FONT-SIZE: 8pt; COLOR: #666666; FONT-FAMILY: verdana ;overflow:auto;"> <font color=red>*</font>
</td>
</tr>
<tr>
<td width=60 align=right>朋友Email</td>
<td><input  name="fEmail" size=40 type="text" maxlength="100" style="height=18; border: darkgray 1px solid; FONT-SIZE: 8pt; COLOR: #666666; FONT-FAMILY: verdana ;overflow:auto;"> <font color=red>*</font>
</td>
</tr>
<tr>
<td width=60 align=right>您的姓名</td>
<td><input  name="yName" size=40 type="text" maxlength="20" style="height=18; border: darkgray 1px solid; FONT-SIZE: 8pt; COLOR: #666666; FONT-FAMILY: verdana ;overflow:auto;"> <font color=red>*</font>
</td>
</tr>
<tr>
<td width=60 align=right>您的Email</td>
<td><input  name="yEmail" size=40 type="text" maxlength="100" style="height=18; border: darkgray 1px solid; FONT-SIZE: 8pt; COLOR: #666666; FONT-FAMILY: verdana ;overflow:auto;"> <font color=red>*</font>
</td>
</tr>
<tr>
<td width=60 align=right>推荐内容</td>
<td><textarea name="fNote" rows="8" cols="50" type="text" style="border: darkgray 1px solid; FONT-SIZE: 8pt; COLOR: #666666; FONT-FAMILY: verdana ;overflow:auto;">
你好，我在【<%=sitename%>】网站上看到一件不错的商品【<%=prodname%>】，我想你也会非常喜欢，就推荐给你瞧瞧，有兴趣就去看看吧~~ 网址是：<%=where%>
</textarea></td>
</tr>
<tr>
<input type=hidden value="ok" name="send">
<td align="middle" colSpan="2" height=50><input type="submit" value=" 发送邮件 "> &nbsp;   
<input onclick="javascript: window.close()" type="button" value=" 关闭窗口 "></td>
</tr>
</form>
</table>

</tr>
</table>


<%
else
call buyok_check_path()
fname=trim(request.form("fname"))
femail=trim(request.form("femail"))
yname=trim(request.form("yname"))
yemail=trim(request.form("yemail"))
fNote=request.form("fNote")

	if Instr(femail,".")<=0 or Instr(femail,"@")<=0 or len(femail)<10 or len(femail)>100 then
	response.write "<script language='javascript'>"
	response.write "alert('出错了，您朋友的Email地址格式不正确，请检查后重新输入！');"
	response.write "location.href='javascript:history.go(-1)';"							
	response.write "</script>"	
	response.end
	end if

	if Instr(yemail,".")<=0 or Instr(yemail,"@")<=0 or len(yemail)<10 or len(yemail)>100 then
	response.write "<script language='javascript'>"
	response.write "alert('出错了，您的Email地址格式不正确，请检查后重新输入！');"
	response.write "location.href='javascript:history.go(-1)';"							
	response.write "</script>"	
	response.end
	end if


Set rs = conn.Execute("select * from shopsetup") 
tj_mailyesorno=rs("tj_mailyesorno")
jmail=rs("jmail")
adm_mail=rs("adm_mail")
mailserver=rs("mailserver")
mailname=rs("mailname")
mailpassword=rs("mailpassword")
set rs=nothing

if tj_mailyesorno<>1 then
	response.write "<script language='javascript'>"
	response.write "alert('抱歉，本站暂未开放此功能。');"
	response.write "location.href='javascript: window.close()';"
	response.write "</script>"
	response.end
end if

	dim msg
	CLStr=Chr(13) & Chr(10)

      if jmail=0 then                 '如果服务器使用CDONTS邮件组件
	Set objMail = Server.CreateObject("CDONTS.NewMail")
	objMail.To = femail
	objMail.From =yemail
'	objMail.From =mailname
	objMail.Subject = fname&"，你好！我看到一件不错的商品，特推荐给你！"
	objMail.Body = fNote & CLStr &"         你的朋友："&yname &"   于"&now()
	objMail.Send
	Set objMail = Nothing
      else			'如果服务器使用jmail邮件组件
	Set msg = Server.CreateObject("JMail.Message")
	msg.silent = true
	msg.Logging = true
	msg.Charset = "gb2312"
	msg.MailServerUserName = mailname
	msg.MailServerPassword = mailpassword
	msg.From = yemail
	msg.FromName = yname
	msg.AddRecipient (femail)
	msg.Subject = fname&"，你好！我看到一件不错的商品，特推荐给你！"
	msg.Body = fNote & CLStr &"         你的朋友："&yname &"   于"&now()
	msg.Send (mailserver)
	msg.close
	set msg = nothing
     end if

	response.write "<script language='javascript'>"
	response.write "alert('恭喜，邮件发送成功，感谢您对本站的推荐！单击“确定”关闭本页。');"
	response.write "location.href='javascript: window.close()';"
	response.write "</script>"	

end if

conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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