pj.asp

一个不错的竞价程序

<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="conn.asp" -->
<%response.buffer=true
if session("user")="" then
response.redirect "login.asp"
else
aucid=rst("aucid")
mj=rst("mj")
mjid=rst("mjid")
content=rst("content")
r1=rst("r1") 



	  

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

<table width="100%" border="0" cellspacing="0" cellpadding="4">
  <tr> 
    <td align="center" valign="top">
      <span id=b2>欢迎您，<%=session("User")%> </span>    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="150" align="left" valign="top"> 
      <!--#include file="User_left.asp" -->
    </td>
    <td width="5"><img src="img/tran_1.gif" width="1" height="1"></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"><img src="img/corner_1.gif" width="4" height="4"></td>
          <td width="100" align="center" valign="bottom" id="bg11"><font color="#FFFFFF">请选择评价对象</font></td>
          <td width="4" valign="top" id="bg11"><img src="img/corner_2.gif" width="4" height="4"></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="好"
	end if
	if rst("r1")=0 then
	leixing="中"
	end if
	if rst("r1")= "-1" then
	leixing="差"
	end if
		myid="select regid from users where regusername='"&session("user")&"'"

		set rsmyid=conn.execute(myid)
				myregid=rsmyid("regid")
				set rs=server.createobject("adodb.recordset")
sql = "select * from pingjia"
 rs.open sql,conn,2,2
	 rs.addnew
	 rs("aucid")=rst("aucid")
	 rs("leixing")=leixing
	 rs("pjdate")=now
	 rs("credit")=r1
	 rs("content")=content
	 rs("pingjiazheid")=myregid
	 rs("mjid")=rst("mjid")
	 rs.update
	 
'sql = "insert into pingjia(aucid,leixing,pjdate,credit,content,pingjiazheid )values('"&aucid&"','"&leixing&"','"&now&"','"&r1&"','"&content&"',"&myregid&")"
	'conn.execute(sql)
	  response.write "评价成功"
	  response.redirect "User_home.asp"
	  response.end
	  end if%>
      <table width="100%" border="0">
        <form name="form1" method="post" action="pj.asp?action=save">
          <input type="hidden" name="aucid" value="<%=rst("aucid")%>">
	  <input type="hidden" name="aucname" value="<%=rst("aucname")%>">
	  <input type="hidden" name="mj" value="<%=rst("mj")%>">
	  <input type="hidden" name="mjid" value="<%=rst("mjid")%>"><tr> 
            <td>商品名称</td>
            <td>&nbsp;<%=rst("aucname")%> </td>
          </tr>
          <tr> 
            <td>商品编号</td>
            <td>&nbsp;<%=rst("aucid")%></td>
          </tr>
          <tr> 
            <td>对方昵称</td>
            <td>&nbsp;<%=rst("mj")%></td>
          </tr>
          <tr> 
            <td>对方编号</td>
            <td>&nbsp;<%=rst("mjid")%></td>
          </tr>
          <tr> 
            <td>对他/她的评价</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> 
            <td>您的评语</td>
            <td> 
              <input type="text" name="content" value="如货收到,诚实讲信用">
            </td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td>
              <input type="submit" name="Submit" value="提交">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<%
end if
end if
call footer()%>