📄 user_auction_msg.asp

📁 一个不错的拍卖网站,fdsafdsfdfe
💻 ASP
字号:
<!--#include file="conn.asp" -->
<!-- #include file="inc/adovbs.inc" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="webtop1.asp" -->
<html>
<head>
<TITLE><%=webname%>--会员管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
<link href="images/yq_style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 onmouseover=exitpop=false text=#000000 topMargin=0 marginheight="0" marginwidth="0">
<%
if session("user")="" then
response.redirect "login.asp"
else
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 regusername='"&session("user")&"'"
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="760" border="0" cellspacing="0" cellpadding="4" align=center>
  <tr> 
    <td align="center" valign="top">
      <span id=b2>欢迎您，<%=session("user")%> </span>    </td>
  </tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" align=center>
  <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='400' 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="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>
<%
end if
sqlid="select regid from users where regusername='"&session("user")&"'"
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="760" border="0" cellspacing="0" cellpadding="4" align=center>
  <tr> 
    <td align="center" valign="top">
      <span id=b2>欢迎您，<%=session("user")%> </span>    </td>
  </tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" align=center>
  <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> 
	  <%
	  
	  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="auction_msg.asp?action=re&msgid=<%=rs("msgid")%>">回复</a></TD>
  </TR>
  <%end if
  rs.movenext
wend
end if
%>
   </TBODY>
</TABLE>
</table>
<!-- #include file="copyright.asp" -->
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -