vqqq_auction_msg.asp

一个不错的拍卖网站,fdsafdsfdfe

<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->

<!-- #include file="conn.asp" -->
<%

header
if rst("submit")="提交" and rst("action")="save" then
reply=rst("reply")
msgid=rst("msgid")
sqls="update msg set reply='"&reply&"' where msgid="&msgid
conn.execute(sqls)

end if
if rst("action")="re" then
msgid=rst("msgid")
sqlid="select regid from users where"
set rsid=conn.execute(sqlid)
sql="select msgid,content,reply,writerid from msg where ownerid="&rsid("regid")&" and msgid="&msgid
set rs=conn.execute(sql)
%>
<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><TABLE align=center border=0 cellPadding=4 cellSpacing=1 id=bg01 width="95%">
  <TBODY> 

  <form name="re" method=post action="vqqq_auction_msg.asp?action=save">
	    <TR> 
    <TD id=bg12>问：<%=aspeasehtml(rs("content"))%></TD>
  </TR>
  
  <TR> 
    <TD id=bg02>答：<textarea name="reply" value='<%=aspeasehtml(rs("reply"))%>'></textarea>
	<input type="hidden" name="msgid" value="<%=msgid%>">

        
          </TD>
  </TR>
	    
 

   <TR> 
    <TD id=bg12><input type="submit" name="Submit" value="提交">
</TD>
          
  </TR>
  <%
%>
 </form>
   </TBODY>
</TABLE>
</table>
<%footer%>
<%
end if
sqlid="select regid from users"
set rsid=conn.execute(sqlid)
sql="select msg.msgid,msg.content,msg.reply,msg.writerid,auctions.aucid as aucid2,auctions.aucItemTitle from msg left join auctions on auctions.aucid = msg.aucid where ownerid="&rsid("regid")
set rs=conn.execute(sql)
'sqlname="select aucid,aucItemTitle,regid,regusername from auctions left join users on auctions.aucItemOwner=users.regid where regusername='"&session("user")&"'"
'set rsname=conn.execute(sqlname)
%>
<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"> 
     
    </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><TABLE align=center border=0 cellPadding=4 cellSpacing=1 id=bg01 width="95%">
  <TBODY> 
	  <%
	  
	  while not rs.eof 
		
	  if rs("reply")<>"" then
%>
	   <TR> 
    <TD id=bg12>商品名称：<a href=viewaucid.asp?aucid=<%=rs("aucid2")%>><%=rs("aucItemTitle")%></a></TD>
  </TR>
  <TR> 
    <TD id=bg12>问：<%=aspeasehtml(rs("content"))%></TD>
  </TR>
  
  <TR> 
    <TD id=bg02>答：<%=aspeasehtml(rs("reply"))%>
        
          </TD>
  </TR>
	    
  <%else%>
   <TR> 
    <TD id=bg12>商品名称：<a href=viewaucid.asp?aucid=<%=rs("aucid2")%>><%=rs("aucItemTitle")%></a></TD>
  </TR>

   <TR> 
    <TD id=bg12>问：<%=aspeasehtml(rs("content"))%></TD>
          <TD id=bg12><a href="vqqq_auction_msg.asp?action=re&msgid=<%=rs("msgid")%>">回复</a></TD>
  </TR>
  <%end if
  rs.movenext
wend

%>
 
   </TBODY>
</TABLE>
</table>
<%footer%>