update_auction.asp

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

<!--#include file="conn.asp" -->
<!--#include file="inc/check.asp"-->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: update_auction.asp
'Version:2.0
'UpdateTime: 2004-10-5 8:52:21
'Script Written by www.aspease.com 
'=========================================================
stats=easeupdate_aucstats
header
auc_ID=request("auc_ID")
set rs = conn.execute("SELECT * FROM auctions where auc_ID = "&sqlval(auc_ID)&" and auc_ItemOwner="&sqlval(userid))
if rs.eof then
response.write " <script language=javascript>{alert( '" & easeupdate_aucerr1 & "');location.href='my.asp';}</script> "
response.end
end if
response.Write(aspeasetable1bopen&tr&"    <th colspan=""2"" align=left><a href=index.asp>" & webname & "</a>&gt;&gt;&gt;" & easeupdate_aucstats & "</th>"&ctr&aspeasetableclose)
response.Write(aspeasetable1bopen)
if request("submit")=easesubmitbutton then
auc_ID=request("auc_ID")
Set cmd = Server.CreateObject("ADODB.Command")
set rs=server.createobject("adodb.recordset")
cmd.CommandText = "SELECT * FROM auctions where auc_ID = "&sqlval(auc_ID)&" and auc_ItemOwner="&sqlval(userid)
cmd.CommandType = 1
Set cmd.ActiveConnection = conn
rs.Open cmd, , 1, 3
	if err.Number<>0 then
		err.clear
		response.write easeerrdatavalue
	else
rs("auc_ItemTitle") = sqltstr(request("auc_ItemTitle"))
rs("auc_ImageURL") = sqltstr(request("imageurl"))
rs("auc_AvailDate") = now()
rs("auc_CloseDate") = dateadd("d",sqltval(request("days")),now())
rs("auc_StartingBid") = sqltval(request("auc_StartingBid"))
rs("auc_ReservePrice") = sqltval(request("auc_ReservePrice"))
rs("auc_MinimumIncrement") = sqltval(request("auc_MinimumIncrement"))
rs("auc_Description") = sqltstr(request("auc_Description"))
rs("auc_Buyprice") = sqltval(request("auc_Buyprice"))
rs("auc_Catid") = sqltval(request("auc_Catid"))
rs("auc_Limitornot") = sqltstr(request("auc_Limitornot"))
rs("auc_Oldornew") = sqltstr(request("auc_Oldornew"))
rs("auc_Mendornot") = sqltstr(request("auc_Mendornot"))
rs("auc_Invoiceornot") = sqltstr(request("auc_Invoiceornot"))
rs("auc_Feeofdeliver") = sqltstr(request("auc_Feeofdeliver"))
rs("auc_Meansofpayment") = sqltstr(request("auc_Meansofpayment"))
rs("auc_MeansofDeliver") = sqltstr(request("auc_MeansofDeliver"))
rs("auc_Num") = sqltval(request("auc_Num"))
rs("auc_Isbuygoods") = sqltstr(request("auc_Isbuygoods"))
rs("auc_Numleft") =sqltval(request("auc_Num"))
rs.Update
rs.Close
set rs=nothing
set cmd=nothing 
response.write("<tr class=tdbg2> <td colspan=2>" & easeupdate_aucokstr & "</td></tr><tr class=tdbg2> <td colspan=2><a href=viewitem.asp?aucid="&fval(auc_ID)&">" & easeseeitempage & "</a></td></tr>")
end if
else
response.Write(" <form name=myform action="""" method=""post"" onsubmit=""return check(this)"">")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easegoodsname & "</td>")
response.Write("      <td align=left> ")
response.Write("        <input name=auc_ItemTitle type=""text"" value=""" & rs(4) & """>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easegoodsnum & "</td>")
response.Write("      <td align=left> ")
response.Write("        <input name=auc_Num type=""text"" value=""" & rs(23) & """>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easegoodssort & "</td>")
response.Write("      <td align=left>" & replace(replace(catlist,"catid","auc_catid"),rs(15),rs(15)&" selected") & "</td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easeauctiondays & "</td>")
response.Write("      <td align=left>")
showdate 1,35,1,datediff("d",rs(6),rs(7)),"Days" 
response.Write( easeauctiondaysvalue & "</td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easegoodsimage & "</td>")
response.Write("      <td align=left> ")
response.Write("        <input name=""imageurl"" type=""text"" value=""" & rs(5) & """>")
if fval(websetting(2))="1" then
response.Write(" <iframe name=""ad"" frameborder=0 width=300 height=22 scrolling=no src=upfile.asp?filepath=upload></iframe> ")
end if
response.Write(" </td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easestartprice & "</td>")
response.Write("      <td align=left> " & easemoneysymbol)
response.Write("        <input name=auc_StartingBid type=""text"" value=""" & rs(8) & """>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easereserveprice & "</td>")
response.Write("      <td align=left> " & easemoneysymbol)
response.Write("        <input name=auc_ReservePrice type=""text"" value=""" & rs(9) & """>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easeykjprice & "</td>")
response.Write("      <td align=left> " & easemoneysymbol)
response.Write("        <input name=auc_Buyprice type=""text"" value=""" & rs(14) & """>")
response.Write("        <input type=""radio"" name=""auc_Isbuygoods"" value=""1"" ")
if fval(rs(25))=1 then
response.Write("checked") 
end if
response.Write(">" & easeykjvaluechoice(0)) 
response.Write("        <input type=""radio"" name=""auc_Isbuygoods"" value=""0"" ")
if fval(rs(25))=0 then
response.Write("checked")  
end if
response.Write(">" & easeykjvaluechoice(1))
response.Write("</td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easeincreprice & "</td>")
response.Write("      <td align=left> ")
response.Write("        <input name=auc_MinimumIncrement type=""text"" value=""" & rs(10) & """>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easelimit & "</td>")
response.Write("      <td align=left>" & editeasearray1(rs(16),easelimitvalue,"|","s","auc_Limitornot") & "</td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easegoodsoldornew & "</td>")
response.Write("      <td align=left>" & editeasearray(rs(17),easegoodsoldornewvalue,"|","s","auc_Oldornew") & "</td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easemend & "</td>")
response.Write("      <td align=left>" & editeasearray(rs(18),easemendvalue,"|","r","auc_Mendornot") & "</td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easefapiao & "</td>")
response.Write("      <td align=left>" & editeasearray(rs(19),easefapiaovalue,"|","r","auc_Invoiceornot") & "</td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easeyunfei & "</td>")
response.Write("      <td align=left>" & editeasearray(rs(20),easeyunfeivalue,"|","r","auc_Feeofdeliver") & "</td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easezhifu & "</td>")
response.Write("      <td align=left>" & editeasearray(rs(21),easezhifuvalue,"|","r","auc_Meansofpayment") & "</td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easesonghuo & "</td>")
response.Write("      <td align=left>" & editeasearray(rs(22),easesonghuovalue,"|","r","auc_MeansofDeliver") & "</td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td align=right>" & easedescription & "</td>")
response.Write("      <td align=left> ")
response.Write("        <textarea name=""auc_Description"" cols=""100"" rows=""7"" wrap=hard>" & printout(rs(13)) & "</textarea>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr class=tdbg2> ")
response.Write("      <td> ")
response.Write("        <input type=submit name=submit value=" & easesubmitbutton & ">")
response.Write("      </td>")
response.Write("      <td align=""left"">&nbsp;</td>")
response.Write("  </form>"& aspeasetableclose)
end if
call activeonline()
footer
response.Write("<script language=""javascript"">")
response.Write(chr(10))
response.Write("function check(tform)")
response.Write(chr(10))
response.Write("<!--")
response.Write(chr(10))
response.Write("{")
response.Write(chr(10))
response.Write("var str=tform.auc_ItemTitle.value;")
response.Write(chr(10))
response.Write("var SPECIAL_STR = """&server.htmlencode(webforbidchar)&""";")
response.Write(chr(10))
response.Write("for(i=0;i<str.length;i++)")
response.Write(chr(10))
response.Write("if (SPECIAL_STR.indexOf(str.charAt(i)) !=-1)")
response.Write(chr(10))
response.Write("{")
response.Write(chr(10))
response.Write("alert(""" & easegoodsname & easeforbidcharname & "(""+str.charAt(i)+"")！"");")
response.Write(chr(10))
response.Write("tform.auc_ItemTitle.focus();")
response.Write(chr(10))
response.Write("return false;")
response.Write(chr(10))
response.Write("}")
response.Write(chr(10))
response.Write("return true;")
response.Write(chr(10))
response.Write("-->")
response.Write(chr(10))
response.Write("}")
response.Write(chr(10))
response.Write("</SCRIPT>")
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: update_auction.asp
'Version:2.0
'UpdateTime: 2004-10-5 8:52:21
'Script Written by www.aspease.com 
'=========================================================%>