sendmailed.asp

. 缓存处理技术

<!-- #include file="top_cnbbr.asp" -->
<!-- #include file="chksession.asp" -->
<!-- #include file="inc/send_function.asp" -->
<!-- #include file="Cnbbr_UserCenter_left.asp" -->

<%
Call Cnbbr_CheckPost(0)

Dim UserID,AucID

AucID=CheckStr(Trim(Request.Form("AucID")))
if not isNum(AucID) then Call AlertInfo("商品信息参数传递有误，请返回上页！","",0)

Dim Rs_Auc
set rs_auc=server.createobject("adodb.recordset")
sql="select * from auctions where aucid="&Aucid
rs_auc.open sql,conn,1,3
if Rs_Auc.Eof then Call AlertInfo("商品信息参数传递有误，请返回上页！","",0)
UserID=Rs_Auc("AucCurrentBidder")
if Rs_Auc("AucType")=1 and Rs_Auc("BBR_Auc_Success")=0 then Call AlertInfo("此商品处于未成交状态，无法进行此操作，请返回上页！","",0)
if Rs_Auc("AucType")=1 and UserID<>LoginedUserID then Call AlertInfo("你没有成功竞拍此商品，无法进行此操作，请返回上页！","",0)

if rs_auc("aucemailssent")=2 then
	Sql="update Users set credit=credit-1 where regid="& Userid
	Conn.execute(Sql)
elseif rs_auc("aucemailssent")>2 then
   	Call alertInfo("你的提醒次数已经超过3次，你可以给对方做出评价了！","",0)
else
   	rs_auc("aucemailssent")=rs_auc("aucemailssent")+1
   	rs_auc.update
end if
rs_auc.close
set rs_auc=nothing

Response.Write cnbbr_Head
%>
<table width=<%=Sys_BodyCenterWidth%> border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td width="150" align="left" valign="top">
<%=Disp_CnbbrCenterLeft%>
</td>
<td align="left" valign="top">
<%
	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width="98%"
	SiteMenu_Left="BBRhome.asp|[menu]|个人面板||[menu]||###|[menu]|提醒||[menu]||###|[menu]|发送交易提醒邮件"
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)

  Dim Mail_Topic,Mail_Body,Mail_Receiver,MailSendStatus
  mail_topic = CheckStr(Trim(Request.Form("mailsubject")))
  mail_body = CheckStr(Trim(HtmlEncode(Request.Form("mailbody"))))
  Mail_Receiver = CheckStr(Trim(Request.Form("tomail")))

   if comp_check("JMAIL.SMTPMail") then
      call Jmail(Mail_Receiver,mail_topic,mail_body)
      MailSendStatus=1
   elseif  comp_check("CDONTS.NewMail") then
      call Cdonts(Mail_Receiver,mail_topic,mail_body)
      MailSendStatus=1
   elseif comp_check("ASPMAIL.ASPMailCtrl.1") then
      call ASPEmail(Mail_Receiver,mail_topic,mail_body)
      MailSendStatus=1
   else
      MailSendStatus=0
   end if
   if MailSendStatus=1 then
      Response.Write"<br><br><center><font color=red>交易提醒信息已经成功发送到对方的信箱！</font></center>"
   else
      Response.write"<br><br><center><font color=red>邮件发送失败，无可用的邮件发送组件！！</font></center>"& Vbcrlf
   end if

Response.Write"</td></tr></table>"& Vbcrlf
Response.Write Cnbbr_Bottom 
%>