sendmail.asp

. 缓存处理技术

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

<%
Call Cnbbr_CheckPost(0)

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

Dim Rs_User,Rs_Auc
set rs_user=server.createobject("adodb.recordset")
sql="select regid,regusername,regemail from users where regid="& UserID
rs_user.open sql,conn,1,1
if rs_user.Eof then Call AlertInfo("用户参数传递有误，请返回上页！","",0)

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

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)
%>
<br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class=tablebg>
<form name="sendmail" action="sendmailed.asp" method="post">
<tr>
<td height="20" align="center" class=titletd colspan=2>
<font face="宋体" class=fblack><b>交易提醒在线邮件发送系统</b></font></td>
</tr>
<tr>
<td height="20" class=td>
<div align="center">收 件 人：</div></td>
<td class=td> 　
<input name="tomail" type="text" value="<%=rs_user("regemail")%>" readonly>
</td>
</tr>

<tr>

<td height="20" class=td>
<div align="center">信件标题：</div></td>

<td class=td>　
<input name="mailsubject" type="text" size="50" value="交易提醒：<%=rs_auc("aucitemtitle")%>" readonly>
</td>
</tr>
<tr>
<td class=td>
<div align="center">信件内容：</div></td>

<td height="150" class=td>　
<textarea name="mailbody" cols="50" rows="8">
亲爱的用户<%=rs_user("regusername")%>，你好！

&nbsp;&nbsp;这是一封来自<%=SYS_WEBNAME%>上用户<%=Request.Cookies(super_user)("uname")%>给你的交易提醒信件，请你在收到邮件后及时登陆网站查看成交商品信息与对方完成交易！

－－－－－－－－－<a href=http://"<%=SYS_WEBURL%>"><%=SYS_webname%></a>
</textarea>
</td>
</tr>
<tr>
<td height="20" class=td>
<div align="center"></div></td>
<td height="22" class=td> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="hidden" name="mail" value="owen">
<input type="hidden" name="AucID" value="<%=AucID%>">
<input type="hidden" name="UID" value="<%=UserID%>">
<input type="submit" name="submit" value="发送邮件" class="input"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="reset" name="submit" value="取消" class="input">
</td>
</tr>
<tr class=titletd><td align=center colspan=2><font class=fontcolor_2>提醒：</font>每件商品的交易提醒只能为三次，请在成功竞拍后联系对方时使用！</td></tr>
</form>
</table>
</td>
</tr>
</table>

<%
 Rs_Auc.Close
 Set Rs_Auc=nothing
 Rs_User.Close
 Set Rs_User=nothing
 Response.Write Cnbbr_Bottom 
%>