<!-- #Include File="../Include/Skin.asp" -->
<!-- #Include File="../Include/Inc_sendmail.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

tit="推荐给好友"
dim ntit,topic,url
ntit=Cls.Code_Query("ntit")
topic=Cls.Code_Query("topic")
url=Cls.Code_Query("url")
If login_mode="" Then
  Call Cls.Out_Msg("您现在还没有登陆本站！\n\n请先注册并登陆本站。","javascript:window.close()")
End If
If Cls.Is_Null(ntit)="" Or Cls.Is_Null(topic)="" Or Cls.Is_Null(url)="" Then
  Call Cls.Out_Msg("您试图向本系统提交非法参数！\n\n不过好像没有那么容易啊！\n\n真不好意思……","javascript:window.close()")
End If
call DoWebHead(0,2)
Cls.LoadTemplate(0)
Response.write Cls.ReHtml(ShowWebHead(1),1)
  If Cls.chk() Then
    Call commend_send()
  Else
    Call commend_main()
  End If
call web_copy()
Response.write Cls.ReHtml(ShowWebEnd(1),1)
Call DoWebEnd()
sub commend_send()
  dim found_err,fname,femail,remark,username,email,sbody,sendmail
  sendmail="ok"
  fname=Cls.Code_Form("fname")
  femail=Cls.Code_Form("femail")
  remark=Cls.Code_remark("remark")
  username=Cls.Code_Form("username")
  email=Cls.Code_Form("email")
  found_err=""
  If Not Cls.CodeIsTrue() Then
    Call Cls.Out_Msg("系统发现您提交的数据有错误存在：\n\n您提交的 验证码 有错误，请勿非法提交！\n\n请返回重新填定……","javascript:history.back(1)")
    Exit Sub
  End If
  if fname="" or username="" or Cls.Is_Email(femail,50)=false or Cls.Is_Email(email,50)=false then
    Call Cls.Out_Msg("系统发现您提交的数据有错误存在：\n\n好友姓名、好友邮件、推荐附言以及您的姓名和邮件不能为空！\n\n请返回重新填定……","javascript:history.back(1)")
    Exit Sub
  End If
  sbody="我最近在网上看一较好的网页内容，你可以看一下：" & _
	vbcrlf& _
	vbcrlf& topic & _
	vbcrlf&"相关地址："& Cls.web_url&url & _
	vbcrlf&"相关主题："& Cls.web_name&" - "& ntit & _
	vbcrlf& _
	vbcrlf&"以下是您的好友给您的附言：" & _
	vbcrlf&"--------------------------------------------------------" & _
	vbcrlf&remark& _
	vbcrlf&"--------------------------------------------------------" & _
	vbcrlf& _
	vbcrlf&"你的朋友：" & username & _
	vbcrlf&"电子邮件：" & email
  sendmail=send_mail(fname,femail,tit,sbody)
  if sendmail then
    Call Cls.Out_Msg("您已成功的为您好友（"&fname&"）推荐了一条信息！\n\n点击关闭……","javascript:window.close()")
  else
    Call Cls.Out_Msg("您在推荐给好友时出现了一些错误！\n\n此错误是由系统产生的。\n\n请与管理员联系，谢谢！\n\n点击关闭……","javascript:window.close()")
  End If
End Sub
sub commend_main()
%>
<table cellspacing=1 cellpadding=4 class=table>
<form action='?<%Response.Write "ntit="&server.urlencode(ntit)&"&topic="&server.urlencode(topic)&"&url="&server.urlencode(url)%>' method=post onsubmit="javascript:frm_submitonce(this);">
<input type=hidden name=chk value='yes'>
<tr><td class=td colspan=2>&nbsp;<%Response.Write img_skin("h_")&tit%></td></tr>
<tr class=tr><td width='20%'>推荐栏目：</td><td width='80%' class=red><b><%Response.Write ntit%></b></td></tr>
<tr class=tr><td>推荐标题：</td><td class=blue><b><%Response.Write topic%></b></td></tr>
<tr class=tr><td>好友姓名：</td><td><input type=text class=txt name=fname size=20 maxlength=20><%Response.Write redx%></td></tr>
<tr class=tr><td>好友邮件：</td><td><input type=text class=txt name=femail size=40 maxlength=50><%Response.Write redx%></td></tr>
<tr class=tr><td>推荐附言：</td><td><textarea class=txtarea name=remark rows=7 cols=50></textarea><%Response.Write redx%></td></tr>
<tr class=tr><td>您的姓名：</td><td><input type=text class=txt name=username value='<%Response.Write login_username%>' size=20 maxlength=20><%Response.Write redx%></td></tr>
<tr class=tr><td>您的邮件：</td><td><input type=text class=txt name=email value='<%Response.Write login_email%>' size=40 maxlength=50><%Response.Write redx%></td></tr>
<tr class=tr><td>验 证 码：</td><td><%Response.Write Cls.GetCode()%></td></tr>
<tr class=tre><td colspan=2 align=center height=40><input type=submit class=btn value='立即发送推荐邮件'>　　　<input type=reset class=btn value='重新填写'></td></tr>
</form>
</table>
<%
End Sub
%>
