pingjia_tobuyer.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" -->
<% 
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: pingjia_tobuyer.asp
'Version:2.0
'UpdateTime: 2004-10-4 13:14:36
'Script Written by www.aspease.com 
'=========================================================
activeonline
aucid=FVal(rst("aucid"))
if rst("submit")=easepingjiabtnvalue then
aucid=sqlval(rst("aucid"))
toid=sqlval(rst("toid"))
fromid=sqlval(rst("fromid"))
content=rst("content")
	if strlength(content)>255 then		
		err_msg="<b><LI>" & easepingjiaerr1 & "</b>"		
	elseif trim(content)="" then
		err_msg="<b><LI>" & easepingjiaerr2 & "</b>"
	end if
	asbuyer="N"
	sdate=now()
	stype=rst("r1")
	sql2="select * from pingjia where pj_asbuyer='N' and pj_fromid="&fromid&" and pj_aucid="&aucid
	set rs2=server.createobject("adodb.recordset")
	rs2.open sql2,conn,1,1
	if not rs2.eof then 
		err_msg=err_msg&"<br><b><LI>" & easepingjiahaddone & "</b>"		
	end if
	if err_msg<>"" then
		stats=easeerrmsgname
		header
		aspease_err		
	else
		' insert into 
		sql="select * from pingjia"
		set rs1=server.createobject("adodb.recordset")
		rs1.open sql,conn,1,3
		rs1.addnew
		rs1("pj_aucid")=sqltval(aucid)
		rs1("pj_type")=sqltval(stype)
		rs1("pj_Date")=sqldate(now)
		rs1("pj_content")=content
		rs1("pj_fromid")=fromid
		rs1("pj_toid")=toid
		rs1("pj_asbuyer")="N"
		rs1.update
		select case stype
			case "1"
			sqls="update users set regcredit=regcredit+1,reghaoping=reghaoping+1 where regid="&sqlval(toid)
			case "0"
			sqls="update users set regzhongping=regzhongping+1 where regid="&sqlval(toid)
			case "-1"
			sqls="update users set regcredit=regcredit-1,regchaping=regchaping+1 where regid="&sqlval(toid)
		end select
		conn.execute(sqls)
		suc_msg="<center>" & easepingjiasucmsg & "</center>"
		stats=easepingjiastats
		header
		aspease_suc			
	end if
else
	call main()
end if
footer
sub main()
stats=easepjbuyerstats
header
if not isnumeric(aucid) then response.Redirect("pjbuyer.asp")
sql="select * from auctions,gets where auc_id=get_itemid and get_sellerid="&sqlval(userid)&" and get_itemid="&sqlval(aucid)
set rs=conn.execute(sql)
if rs.eof and rs.bof then 
	response.Redirect("pjbuyer.asp")
else
navigation
response.Write(aspeasetable1yopen&" <form action=""pingjia_tobuyer.asp"" name=""f1"" method=""post"">")
response.Write(" <input type=""hidden"" name=""aucid"" value=""")
response.Write(FVal(aucid))
response.Write(""">")
response.Write("  <input type=""hidden"" name=""toid"" value=""")
response.Write(FVal(rs("get_BuyerID")))
response.Write(""">")
response.Write("   <input type=""hidden"" name=""fromid"" value=""")
response.Write(FVal(userid))
response.Write(""">")
response.Write(tr&"  <th colspan=2 height=25>" & easepingjiaerr2 & "</th></tr>")
response.Write(tr2&"  <td align=center width=""50%"">" & easecontactbuyer & "</td><td>")
sqls="select regusername from users where regid="&sqlval(rs("get_BuyerID"))
	set rs4=conn.execute(sqls)
	response.Write(rs4(0))
	rs4.close
response.Write("&nbsp;"&ctdr&tr)
response.Write("<td align=center>" & easegoodsname & "</td><td width=""243"">")
response.Write( rs("auc_itemtitle") )
response.Write("&nbsp;"&ctdr&tr2)
response.Write("  <td align=center>" & easemycredittype & "</td><td><input type=""radio"" name=""r1"" value=""1"" checked>" & easepingjiahao & "<input type=""radio"" name=""r1"" value=""0"">" & easepingjiazhong & "<input type=""radio"" name=""r1"" value=""-1"">" & easepingjiacha & ctdr &tr2)
response.Write("  <td align=center>" & easemycreditcontent & "</td><td><textarea name=""content"" id=""content"" rows=""4"" cols=""40"" wrap=hard></textarea>" & ctdr & tr1 &tdstr)
response.Write("    <td><input type=""submit"" name=""Submit"" value=""" & easepingjiabtnvalue & """>" &ctdr)
response.Write("  </form>"&aspeasetableclose)
end if
end sub
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: pingjia_tobuyer.asp
'Version:2.0
'UpdateTime: 2004-10-4 13:14:36
'Script Written by www.aspease.com 
'=========================================================%>