pingjia_toseller.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" -->
<%response.buffer=true
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: pingjia_toseller.asp
'Version:2.0
'UpdateTime: 2004-10-4 13:14:39
'Script Written by www.aspease.com 
'=========================================================
activeonline
if rst("submit")=easepingjiabtnvalue then	
	addp
	stats=easepingjiastats
	header
	suc_msg="<center>" & easepingjiasucmsg & "</center>"
	aspease_suc
else
	main
end if
footer
sub main
stats=easepjsellerstats
header
aucid=FVal(rst("aucid"))
sql="select * from auctions,gets where get_ItemID=auc_Id and auc_id="&sqlval(aucid)
set rs=conn.execute(sql)
if rs.eof then 
response.Redirect("pjseller.asp")
else
navigation
response.Write(aspeasetable1yopen)
response.Write(" <form action=""pingjia_toseller.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("auc_ItemOwner")))
response.Write(""">")
response.Write("   <input type=""hidden"" name=""fromid"" value=""")
response.Write(FVal(userid))
response.Write(""">" & tr)
response.Write("    <th height=25 colspan=2>" & easepingjiaerr2 & "</th>"& ctr & tr2)
response.Write("    <td align=center width=""50%"">" & easecontactseller & "</td>")
response.Write("    <td>")
sqls="select regusername from users where regid="&sqlval(rs("auc_ItemOwner"))
	set rs4=conn.execute(sqls)
	response.Write(rs4(0))
	rs4.close
response.Write("&nbsp;" & ctdr & tr2)
response.Write("  <td align=center>" & easegoodsname & "</td><td width=""243"">" & rs("auc_itemtitle") & "&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)
response.Write(tr2 &"  <td align=center>" & easemycreditcontent & "</td><td><textarea name=""content"" id=""content"" rows=""4"" cols=""40"" wrap=hard></textarea>" & ctdr)
response.Write(tr1 & tdstr &"<td><input type=""submit"" name=""Submit"" value=""" & easepingjiabtnvalue & """>"&ctdr)
response.Write("  </form>"&aspeasetableclose)
end if
end sub

sub addp
aucid=sqlval(rst("aucid"))
toid=sqlval(rst("toid"))
fromid=sqlval(rst("fromid"))
content=rst("content")
asbuyer="Y"
sdate=sqldate(now)
stype=sqlval(rst("r1"))
if strlength(content)>255 then
	err_msg="<b><LI>" & easepingjiaerr1 & "</b>"
elseif trim(content)="" then
	err_msg="<b><LI>" & easepingjiaerr2 & "</b>"
end if

sql2="select * from pingjia where pj_asbuyer='Y' and pj_fromid="&fromid&" and pj_aucid="&aucid
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,1
if not rs2.recordcount=0 then 
	err_msg=err_msg&"<br><b><LI>" & easepingjiahaddone & "</b>"
end if
if err_msg<>"" then
stats=easeerrmsgname
header
aspease_err
footer
response.End()
end if
sql="select * from pingjia where (pj_id is null)"
set rs1=server.createobject("adodb.recordset")
rs1.open sql,conn,1,3
rs1.addnew
rs1("pj_aucid")=aucid
rs1("pj_type")=stype
rs1("pj_Date")=now()
rs1("pj_content")=content
rs1("pj_fromid")=fromid
rs1("pj_toid")=toid
rs1("pj_asbuyer")="Y"
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)
end sub
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: pingjia_toseller.asp
'Version:2.0
'UpdateTime: 2004-10-4 13:14:39
'Script Written by www.aspease.com 
'=========================================================%>