viewitem.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

else
response.Write(" <form action=bid.asp method=post name=bidf1  onSubmit=""return ckck1()""> <TR class=tdbg2><TD height=10 colspan=2 align=center>            ")
response.Write("              <input type=hidden name=auc_id value=""")
response.Write(auc_id)
response.Write(""">")
response.Write("              <input type=hidden name=aucItemOwner value=""")
response.Write(auc_ItemOwner)
response.Write(""">")
response.Write("              <input type=hidden name=auc_title value='")
response.Write(auc_itemtitle)
response.Write("'>")
response.Write("              <input type=hidden name=auc_place value='")
response.Write(auc_place)
response.Write("'>")
response.Write("              <input type=hidden name=zhifu value='")
response.Write(auc_Meansofpayment)
response.Write("'>")
response.Write("              <input type=hidden name=yunfei value='")
response.Write(auc_Feeofdeliver)
response.Write("'>")
response.Write("              <input type=hidden name=right_price value=""")
response.Write(FVal(c))
response.Write(""">")
response.Write("              <input type=hidden name=left_num value=""")
response.Write(auc_numleft)
response.Write(""">")
response.Write("              "&easeviewitemneednum&": ")
response.Write("              <input type=""text"" name=""getnum"" id=""B2"" value=""1"" size=""4"">")
response.Write("              "&easeviewitemchujiaper1&": ")
response.Write("              <input type=""text"" name=""bid_price"" id=""B2"" value=""")
					a=auc_CurrentBid
					b=auc_MinimumIncrement					
					c=a+b
					response.write c					
response.Write(""" size=""6"">")
response.Write("              "&easeviewitemyuan&"("&easeviewitemnotlow)
response.Write(c)
response.Write(easeviewitemyuan&")")
if auc_Limitornot<=FVal(rss("reggrade")) then
	response.Write("              <input name=""bid_x"" type=submit id=""b1"" style=""color: white;border-color: #CECBCE; background-color: #EF7508;"" value=""出价"" onClick=""ckck1""")
	if auc_numleft<=0 or datediff("s",now(),sqldate(auc_CloseDate))<0 then
		response.write "disabled"
	end if
	response.Write(">")
else
	response.Write("              <input type=""submit"" value="""&easeviewitemchujiabtn&""" disabled name=""submit2"">")
end if
response.Write("          </TD></tr></form>")
end if
response.Write("      </TABLE>")
response.Write("<TABLE cellSpacing=0 cellPadding=2 width=760 align=center border=0>")
response.Write("  <TR valign=""top"">           ")
response.Write("    <TD width=""957""><font color=#dc6900>【"&easedescription&"】</font> 　 ")
response.Write("      <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=border1y>              ")
response.Write("              <tr class=tdbg2> ")
response.Write("                <td colspan=""2"">")
if fval(strlength(rs("auc_Description")))>1000 then
response.Write( left(printout(rs("auc_Description")),1000))
response.Write("                  &nbsp;&nbsp;&nbsp;<a href=viewdetails.asp?aucid=")
response.Write(fval(id))
response.Write(" target=_blank><img src=""images/seedetails.gif"" width=""85"" height=""19"" border=""0"" alt=""查看详细""></a> ")
else
response.write printout(rs("auc_Description"))
end if
response.Write("</td>")
response.Write("              </tr>             ")
response.Write("            </table>")
response.Write("            <table align=center border=0 cellpadding=0 cellspacing=0 width=""97%"">")
response.Write("              <tr align=right> ")
response.Write("                <td width=""100%"" height=20 colspan=4 id=B1><a href=""sell.asp?catid=")
response.Write(FVal(RS("auc_catid")))
response.Write(""">"&easetosell&"</a> </td>")
response.Write("              </tr>")
response.Write("            </table>")
response.Write("            <font color=""#dc6900"">【"&easeviewitemfushu&"】</font>           ")
response.Write("      <table align=center border=0 cellpadding=3 cellspacing=1 width=""100%"" class=""border1y"">")
response.Write("        <tr class=tdbg2> ")
response.Write("                <td align=right height=20 width=""26%"">"&searchaucid&"：</td>")
response.Write("                <td height=20 width=""22%"">")
response.Write(FVal(rs("auc_Id")))
response.Write("</td>")
response.Write("                <td align=right height=20 width=""21%"">"&easefapiao&"：   </td>")
response.Write("                <td height=20 width=""31%"">")
response.Write(rs("auc_Invoiceornot"))
response.Write(" </td>")
response.Write("              </tr>")
response.Write("			  <tr class=tdbg2> ")
response.Write("                <td align=right height=20 width=""26%"">"&easeviewitemstart&"： </td>")
response.Write("                <td height=20 width=""22%"">")
response.Write(SQLDate(rs("auc_AvailDate")))
response.Write("</td>")
response.Write("                <td align=right height=20 width=""21%"">"&easemend&"：     </td>")
response.Write("                <td height=20 width=""31%"">")
response.Write(rs("auc_Mendornot"))
response.Write("</td>")
response.Write("              </tr>			 ")
response.Write("              <tr class=tdbg2> ")
response.Write("                <td align=right height=20 width=""26%"">"&easeviewitemclose&"： </td>")
response.Write("                <td height=20 width=""22%"">")
response.Write(SQLDate(rs("auc_CloseDate")))
response.Write("</td>")
response.Write("                <td align=right height=20 width=""21%"">"&easeyunfei&"：</td>")
response.Write("                <td height=20 width=""31%"">")
response.Write(rs("auc_Feeofdeliver"))
response.Write(" </td>")
response.Write("              </tr>			")
response.Write("              <tr class=tdbg2> ")
response.Write("                <td align=right height=20 width=""26%"">"&easegoodsplace&"： </td>                ")
response.Write("        		<td height=20 width=""22%"">")
response.Write(auc_place)
response.Write("</td>")
response.Write("                <td align=right height=20 width=""21%"">"&easezhifu&"：   </td>")
response.Write("                <td height=20 width=""31%"">")
response.Write(rs("auc_Meansofpayment"))
response.Write("</td>")
response.Write("              </tr>")
response.Write("			<tr class=tdbg2> ")
response.Write("                <td align=right height=20 width=""26%"">"&easeviewitemarea&"： </td>")
response.Write("                <td height=20 width=""22%"">"&easeviewitemsellarea&"</td>")
response.Write("                <td align=right height=20 width=""21%"">"&easesonghuo&"： </td>")
response.Write("                <td height=20 width=""31%"">")
response.Write(rs("auc_MeansofDeliver"))
response.Write(" </td>")
response.Write("              </tr>")
response.Write("              <tr class=tdbg2> ")
response.Write("                <td align=right height=20 width=""26%"">"&easelimit&"： </td>")
response.Write("                <td height=20 width=""22%""> ")
response.Write(editeasearray1(FVal(rs("auc_Limitornot")),easelimitvalue,"|","",""))
response.Write("</td>")
response.Write("                <td align=right height=20 width=""21%"">"&easegoodsoldornew&"： </td>")
response.Write("                <td height=20 width=""31%""> ")
response.Write(rs("auc_Oldornew"))
response.Write("</td>")
response.Write("              </tr>")
response.Write("            </table>")
response.Write("     <font color=""#dc6900"">【"&easeviewitemmsglist&"】</font>             ")
response.Write("      <table align=center border=0 cellpadding=0 cellspacing=0 class=border1y width=""100%"">")
sqlmsg="select * from msg,users where regid=msg_fromid and msg_reply is not null and msg_aucid="&sqlval(id)
set rsmsg=conn.execute(sqlmsg)
if rsmsg.eof then
	response.write " <TR class=tdbg2> <TD>"&easeauctionmsgnull&"</TD></TR>"
else
	while not rsmsg.eof
response.Write(" ")
response.Write("  <tr>")
response.Write("    <td colspan=4 height=1 class=tdbg1></td>")
response.Write("  </tr> ")
if rsmsg("msg_fromid")<>rsmsg("msg_toid")then
response.Write("        <tr class=tdbg2>                 ")
response.Write("          <td width=""100%""><b>")
response.write rsmsg("regusername")
response.Write("</b>&nbsp;"&easeaskname&":")
response.Write(rsmsg("msg_content"))
response.Write("</td>")
response.Write("        </tr>")
if rsmsg("msg_reply")<>"" then
response.Write("        	<tr class=tdbg2>                 ")
response.Write("          		<td width=""100%"">"&easeanswername&":")
response.Write(printout(rsmsg("msg_reply")))
response.Write("</td>")
response.Write("	        </tr>")
response.Write("    	 ")
end if
	else
response.Write("		<tr class=tdbg2>")
response.Write("          <td width=""100%""><b>"&easetellallname&":</b>")
response.Write(printout(rsmsg("msg_reply")))
response.Write("</td>")
response.Write("        </tr>")
response.Write("	")
end if
rsmsg.movenext
wend
rsmsg.close
end if
response.Write("     <tr> ")
response.Write("                <td align=""right"" bgcolor=""#FFFFFF"" width=""100%""> ")
response.Write("                  <table height=""19"" border=0 cellpadding=0 cellspacing=0 id=b1>")
response.Write("                    <tr align=middle>")
sqlt="select count(msg_id) from msg,users where regid=msg_fromid and msg_reply is null and msg_aucid="&sqlval(id)
set rstt=conn.execute(sqlt) 
response.Write(" ")
response.Write("                      <td height=""19"" align=""right"" width=""300"">")
response.Write("						<a href=""ask.asp?auc_id=")
response.Write(FVal(rs("auc_id")))
response.Write("&ownerid=")
response.Write(rs("auc_ItemOwner"))
response.Write(""" target=_blank>")
response.Write("						<img alt="&easeviewitemmsgaskalt&" border=0 height=19 src=""images/buyerword_2.gif"" width=85></a>")
response.Write("						<a href=""auction_msg.asp?auc_id=")
response.Write(FVal(rs("auc_id")))
response.Write("&action=tellall"" target=""_blank"">")
response.Write("						<img alt=")
response.Write( rstt(0) )
response.Write(easeviewitemmsgansweralt&" border=0 height=19 src=""images/sellerword_2.gif"" width=85></a> </td>")
response.Write("                      <td height=""19"" align=""right"" width=""30"">")
if not rstt.eof then Response.Write ("("&rstt(0)&")") end if
response.Write("</td>")
response.Write("                    </tr>")
response.Write("                  </table>")
response.Write("                </td>")
response.Write("              </tr> ")
response.Write("            </table>")
response.Write("            <a name=pic></a><font color=""#dc6900"">【"&easegoodsimage&"】</font>             ")
response.Write("      <table align=center bgcolor=#ffffff border=0 cellpadding=0 cellspacing=0 width=""100%"">         ")
response.Write("        <tr> ")
response.Write("           <td width=""100%"" align=middle><br><img src=""")
response.Write(rs("auc_ImageURL"))
response.Write("""><br><div align=right id=g4><a href=""#top"">"&easetoptag&"</a></div></td>")
response.Write("        </tr>               ")
response.Write("      </table>")
response.Write("          </TD>")
response.Write("        </TR>")
response.Write("      </TABLE> ")
response.Write("<TABLE cellSpacing=0 cellPadding=0 width=""760"" border=0 align=""center"">")
response.Write("  <TR align=""center"">           ")
response.Write("    <TD bgColor=#ffffff width=""759"">&nbsp; </TD>")
response.Write("  </TR>")
response.Write("</TABLE>      ")
response.Write("<table border=0 width=""760"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border1b"">")
response.Write("  <tr align=""center""> ")
response.Write("    <th height=20 colspan=4><font id=b2><a name=""other""></a>" & easeviewitemselling & "&nbsp;(")
response.Write(usellingall(sqlval(rss("regid"))))
response.Write(")"&easeviewitemlaststr1&"<a href=selling.asp?user_id=")
response.Write(FVal(rs("auc_ItemOwner")))
response.Write(">"&easeviewitemshowall&"</a></font> </th>")
response.Write("  </tr>")
response.Write("</table>")
response.Write("<table border=0 width=""760"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border1b"">")
response.Write("  <tr> ")
response.Write("    <th align=center height=20 width=""372"">"&easegoodsname&"</th>")
response.Write("    <th align=center height=20 width=""98""><nobr>"&easebidsnum&"</nobr></th>")
response.Write("    <th align=center height=20 width=""99""><b>"&easecurrentbid&"</b></th>")
response.Write("    <th align=center height=20 width=""101"">"&easelefttime&"</th>")
response.Write("  </tr>")
response.Write("  ")
sql="select top 10 * from Auctions where auc_ItemOwner="&sqlVal(rs("auc_ItemOwner"))&" and auc_ended='N' and datediff('d',now(),auc_closedate)>=0 order by auc_closedate"
set rs=conn.execute(sql)
if rs.eof then
response.Write("  <tr id=bg02> ")
response.Write("    <td height=20 colspan=4><nobr>"&easeviewitemsellingnull&"</nobr></td>")
response.Write("  </tr>")
else
i=1
  while not rs.eof
response.Write("  <tr>")
response.Write("    <td colspan=4 height=1 bgcolor=#999999></td>")
response.Write("  </tr>")
response.Write("<tr align=""center"" valign=""middle"" height=25 ")
if i mod 2 =0 then
response.Write("class=tdbg2")
else
response.Write("class=tdbg1")
end if
response.Write(">")
response.Write("    <td align=middle height=20 width=""372""><a href=""viewitem.asp?aucid=")
response.Write(FVal(rs("auc_Id")))
response.Write(""" target=_blank>")
response.Write(chkbadwords(rs("auc_ItemTitle"),"goods"))
response.Write("</a></td>")
response.Write("    <td align=middle height=20 width=""98"">")
response.Write(FVal(rs("auc_Bidtimes")))
response.Write("</td>")
response.Write("    <td align=middle height=20 width=""99"">")
response.Write(FVal(rs("auc_CurrentBid")))
response.Write("</td>")
response.Write("    <td align=middle height=20 width=""101"">")
response.Write(auclefttime(fval(rs("auc_id")),"short"))
response.Write("</td>")
response.Write("  </tr>")
rs.movenext
i=i+1
  wend
end if 
response.Write("</table>")
footer
end if
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: viewitem.asp
'Version:2.0
'UpdateTime: 2004-10-6 11:50:29
'Script Written by www.aspease.com 
'=========================================================%>