vqqquserpj.asp

来自「实用的拍卖源码。适合个人建站学习使用。仅供学习参考」· ASP 代码 · 共 149 行

<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="chksession.asp" -->
<!-- #include file="head2.asp" -->
<%
response.buffer=true

aucid=rst("aucid")
bidderid=rst("cid")
if rst("aucid")="" then
response.write "错误的参数!"
else
%>

<table width="760" border="0" cellspacing="0" cellpadding="0" align=center>
  <tr> 
    <td width="150" align="left" valign="top"> 
      <!--#include file="vqqqleft.asp" -->
    </td>
    <td width="5">&nbsp;</td>
    <td align="left" valign="top"> 
      <table width='100%' border=0 cellPadding=4 cellSpacing=0 id='b1'>
        <tr>
          <td height='10' colspan='2'></td>
        </tr>
        <tr> 
          <td height='25' >您的位置：信用管理 〉成交做信用评价</td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" id="b1">
        <tr> 
          <td width="4" valign="top" id="bg11">&nbsp;</td>
          <td width="100" align="center" valign="bottom" id="bg11"><font color="#FFFFFF">请选择评价对象</font></td>
          <td width="4" valign="top" id="bg11">&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td height="2" colspan="4" id="bg11"></td>
        </tr>
      </table>
<%if rst("action")="save" then
	if rst("r1")=1 then
	leixing="好"
	addcredit=creditadd
	end if
	if rst("r1")=0 then
	leixing="中"
	addcredit=0
	end if
	if rst("r1")= "-1" then
	leixing="差"
	addcredit=-creditadd
	end if
'--------------------更新对方信用值-------------------------
		set rsuid=server.createobject("adodb.recordset")
		myid="select regid,credit,haoping,chaping from users where regid="&rst("mjid")
		rsuid.open myid,conn,1,3
		rsuid("credit")=rsuid("credit")+addcredit
		rsuid.update
		rsuid.close
		set rsuid=nothing
'--------------------查询自己的	ID-------------------------
		set rsmyid=server.createobject("adodb.recordset")
		myid="select regid,credit,haoping,chaping from users where regusername='"&session("user")&"'"
		rsmyid.open myid,conn,1,3
		myregid=rsmyid("regid")
		rsmyid.close
		set rsmyid=nothing
set rsrecord=server.createobject("adodb.recordset")
sql = "select * from pingjia where aucid="&rst("aucid")&" and pingjiazheid="&myregid
rsrecord.open sql,conn,1,3
if not rsrecord.eof then
	  response.write "<script language=javascript>alert('你已经做过此次交易的信用评价了！');this.location.href='vqqqhome.asp';</script>"
	  response.end
end if
set rs=server.createobject("adodb.recordset")
sql = "select * from pingjia"
rs.open sql,conn,1,3
	 rs.addnew
	 rs("aucid")=rst("aucid")
	 rs("leixing")=leixing
	 rs("pjdate")=now
	 rs("credit")=rst("r1")
	 rs("content")=rst("content")
	 rs("pingjiazheid")=myregid
	 rs("mjid")=rst("mjid")
	 rs.update
	 rs.close
	 set rs=nothing	 
	  response.write "<script language=javascript>alert('信用评价成功！');this.location.href='vqqqhome.asp';</script>"
	  response.end
end if
ukey=bidderid
keytype="uid"
akey=aucid
akeytype="aid"
%>
<!--#include file="inc/calluser.asp"-->
<!--#include file="inc/callauc.asp"-->
      <table width="98%" border="0" cellpadding=0 cellspacing=1 class=tablebg>
        <form name="form1" method="post" action="vqqquserpj.asp?action=save">
          <input type="hidden" name="aucid" value="<%=aucid%>">
	  <input type="hidden" name="aucname" value="<%=rs_auc("aucitemtitle")%>">
	  <input type="hidden" name="mj" value="<%=rs_user("regusername")%>">
	  <input type="hidden" name="mjid" value="<%=bidderid%>">
	<tr class=titletd><td align=center colspan=2><font class=fred>提醒：</font>每件商品的交易评价只能为一次，请作出与对方此次交易最公正的评价！</td></tr>
	  <tr class=td> 
            <td align=right>商品名称：</td>
            <td>&nbsp;<%=rs_auc("aucitemtitle")%> </td>
          </tr>
          <tr class=td> 
            <td align=right>商品编号：</td>
            <td>&nbsp;<%=aucid%></td>
          </tr>
          <tr class=td> 
            <td align=right>对方名字：</td>
            <td>&nbsp;<%=rs_user("regusername")%></td>
          </tr>
          <tr class=td> 
            <td align=right>对方编号：</td>
            <td>&nbsp;<%=bidderid%></td>
          </tr>
          <tr class=td> 
            <td align=right>对他/她的评价：</td>
            <td> 
              <input type="radio" name="r1" value="1" checked>
              好 
              <input type="radio" name="r1" value="0">
              中 
              <input type="radio" name="r1" value="-1">
              差 </td>
          </tr>
          <tr class=td> 
            <td align=right>您的评语：</td>
            <td> 
              <input type="text" name="content" value="诚实讲信用">
              <input type="submit" name="Submit" value="提交">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<%
end if
%>
<!-- #include file="bottom.asp" -->