auction_msg.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!-- #include file="conn.asp" -->
<!--#include file="inc/check.asp"-->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/myinc.asp" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: auction_msg.asp
'Version:2.0
'UpdateTime: 2004-10-3 22:18:23
'Script Written by www.aspease.com 
'=========================================================
stats=easeauction_msgstats
header
action=rst("action")
select case action
case "all"
sql="select msg_id,msg_content,msg_reply,msg_fromid,auc_id,auc_ItemTitle from msg left join auctions on msg.msg_aucid=auctions.auc_id where msg.msg_toid="&sqlval(userid)&" order by msg_writedate desc"
case "yes"
sql="select msg_id,msg_content,msg_reply,msg_fromid,msg_reply,auc_id,auc_ItemTitle from msg left join auctions on msg.msg_aucid=auctions.auc_id where msg.msg_toid="&sqlval(userid)&" and msg_reply is not null order by msg_writedate desc"
case "no"
sql="select msg_id,msg_content,msg_reply,msg_fromid,msg_reply,auc_id,auc_ItemTitle from msg left join auctions on msg.msg_aucid=auctions.auc_id where msg.msg_toid="&sqlval(userid)&" and msg_reply is null order by msg_writedate desc"
case else
sql="select msg_id,msg_content,msg_reply,msg_fromid,auc_id,auc_ItemTitle from msg left join auctions on msg.msg_aucid=auctions.auc_id where msg.msg_toid="&sqlval(userid)&" order by msg_writedate desc"
end select
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
mytabletop
mynavtop(easeauction_msgstats)
myrighttop "100%","0","0","b1","style=margin-top:3px"
myrighttr "33%,33%,*|<a href=""auction_msg.asp?action=all&page=" & rst("page") &""">"&easeallmsgs&"</a>,<a href=""auction_msg.asp?action=yes&page=" & rst("page") & """>"&easerepliedmsg&"</a>,<a href=""auction_msg.asp?action=no&page=" & rst("page") & """>"&easenotrepliedmsg&"</a>"
myrightfoot
mycontenttop "33%,20%,35%,12%|"&easegoodsname&","&easewriter&","&easewritecontent&","&easemyreply
If action="re" Then 
	msgid=rst("msgid")
	sql="select * from msg where msg_toid="&sqlval(userid)&" and msg_id="&sqlval(msgid)
	set rs1=conn.execute(sql)
response.Write(" <form name=""re"" method=post action=""auction_msg.asp?action=save"">")
response.Write(tr2 & tdrc("","4","d",easeaskname & "：" & replace(server.htmlencode(sqltstr(rs1("msg_content"))),chr(10),"<br>")))
response.Write(ctr & tr2)
response.Write("    <TD colspan=4>")
response.Write(easeanswername)
response.Write("：")
response.Write("      <textarea name=""reply"" value=""")
response.Write(rs1("msg_reply"))
response.Write(""" wrap=""hard"" cols=""80"" rows=""4""></textarea>")
response.Write("	<input type=""hidden"" name=""msgid"" value=""")
response.Write(FVal(msgid))
response.Write(""">" & ctdr)
response.Write(tr2&TDrc("","4","d","<input type=""submit"" name=""Submit"" value=""" & easesubmitbutton &"""><br><a href=""?action=tellall"">" & easetellallname & "</a>"))
response.Write(ctr & "</form>")
elseif action="save" then
	reply=rst("reply")
	msgid=rst("msgid")
	if strlength(reply)>=255 then
		response.Write("<script language=javascript>{alert( '" & easereplytoomuch & "');location.href='auction_msg.asp';}</script>")
		response.end 
	elseif strlength(reply)=0 or trim(reply)="" then
		response.Write("<script language=javascript>{alert( '" & easereplynoleft & "');history.back();}</script>")
		response.end 
	end if
	sqls="update msg set msg_reply="&sqlstr(reply)&" where msg_id="&sqlval(msgid)
	conn.execute(sqls)
		response.write tr2&"<TD colspan=4>"&easereplysucmsgname& ctdr 
	elseif action="tellall" then
response.Write(" <form name=""tell"" method=post action=""auction_msg.asp?action=tellsave""> ")
response.Write(tr2 & "    <TD colspan=4>")
response.Write(easetellallname)
response.Write("：<input type=hidden name=auc_id value=")
response.Write(fval(rst("auc_id")))
response.Write(">")
response.Write("      <textarea name=""tellall"" value=""")
response.Write(rst("tellall"))
response.Write(""" wrap=""hard"" cols=""80"" rows=""4""></textarea>" & ctdr )
response.Write(tr2 & "    <TD colspan=4><input type=""submit"" name=""Submit"" value=""")
response.Write(easesubmitbutton)
response.Write(""">" & ctdr)
response.Write("</form>")
elseif action="tellsave" then
sqls="insert into msg(msg_reply,msg_aucid,msg_content,msg_writedate,msg_fromid,msg_toid) values ("&sqlstr(rst("tellall"))&","&sqlval(rst("auc_id"))&",'all',now(),"&sqlval(userid)&","&sqlval(userid)&")"
	conn.execute(sqls)
response.write tr2&"<TD colspan=4>"&easereplysucmsgname&ctdr
else
	
if rs.eof and rs.bof then 
response.write tr2&"<td colspan=4>"&easeauctionmsgnull&ctdr
else
auction_page=10%><!--#include file="inc/libt.inc"--><%
response.Write("<tr align=""center"" valign=""middle"" height=25 ")
if i mod 2 =0 then
response.Write("class=tdbg2")
else
response.Write("class=tdbg1")
end if
response.Write(">")
response.Write("   <TD><a href=viewitem.asp?aucid=")
response.Write(FVal(rs("auc_id")))
response.Write(">")
response.Write(chkbadwords(rs("auc_ItemTitle"),"goods"))
response.Write("</a></TD>")
response.Write("   <td>")
response.Write(aspeaseusername(rs("msg_fromid")))
response.Write("</td>")
response.Write("   <td>")
response.Write(replace(server.htmlencode(sqltstr(rs("msg_content"))),chr(10),"<br>"))
response.Write("</td>")
response.Write("   <td>")
 If trim(rs("msg_reply"))<>"" Then 
response.Write(easehadreply)
response.Write(" ")
 Else 
response.Write("<a href=""auction_msg.asp?action=re&msgid=")
response.Write(FVal(rs("msg_id")))
response.Write(""">")
response.Write(easemyreply)
response.Write("</a>")
end if
response.Write(ctdr)
%><!--#include file="inc/libf.inc"--> <%end if
end if
mycontentfoot
MyFPage "auction_msg.asp",rst("action")
mynavfoot
mytablefoot
call activeonline()
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: auction_msg.asp
'Version:2.0
'UpdateTime: 2004-10-3 22:22:21
'Script Written by www.aspease.com 
'=========================================================%>