sell.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" -->
<%response.buffer=true
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: sell.asp
'Version:2.0
'UpdateTime: 2004-10-4 14:35:31
'Script Written by www.aspease.com 
'=========================================================
if not chkregValidated then
	response.redirect "info_change.asp"
end if
Function CheckForm
aform=split(aform,"|")
bform=split(bform,"|")
for i=0 to ubound(aform)
	If len(trim(request(aform(i)))) = 0 Then
			objErr.Add bform(i), "<font color=red><b>"&server.htmlencode(bform(i))&"</b></font> "&easenotnullname
	End If	
next
cform=split(cform,"|")
dform=split(dform,"|")
for j=0 to ubound(cform)
	If not isnumeric(request(cform(j))) Then
			objErr.Add dform(j)&"1", "<font color=red><b>"&dform(j)&"<b></font>"&easenumname
	End If	
next
If fval(request(cform(0)))>fval(request(cform(1))) then
		objErr.Add dform(1)&"2", "<font color=red><b>"&dform(1)&"<b></font>"&easereservechkname
end if
if sqltval(request("auc_Isbuygoods"))=1 then
	If fval(request(cform(0)))>fval(request(cform(3))) or fval(request(cform(1)))>fval(request(cform(3))) then
			objErr.Add dform(3)&"2", "<font color=red><b>"&dform(3)&"<b></font>"&easeykjchkname 
	end if
end if
if not(isnull(webforbidchar) or isnull(rst(aform(0)))) then
chks=false
		bwords = split(webforbidchar, ",")
		for i=0 to ubound(bwords)
		if instr(rst(aform(0)),bwords(i))>0 then
			chks=true			
		end if
		next
	if chks then
		err_msg = err_msg & "<B>"& easegoodsforbidchar &"</B><BR>"
		objErr.Add bform(0)&"1", "<font color=red><b>"&bform(0)&"<b></font>"&easeforbidcharname
	end if
end if
	If objErr.Count > 0 Then
		CheckForm = False
	Else	
		CheckForm = True
	End If
End Function

Set objErr = CreateObject("Scripting.Dictionary")
select case rst("action")
case "save"
	stats=easesellokstats
	header
	call save
case "preview"
	stats=easepreviewstats
	header	
	If CheckForm Then
        call preview
    Else
       call main
    End If
case else
	stats=easesellstats
	header
	call main
end select
Set objErr = Nothing
call activeonline()
footer
sub main
response.Write(aspeasetable1bopen&"  <tr align=""left""> ")
response.Write("    <th id=bg02>&nbsp;&nbsp;&nbsp;<a href=")
response.Write(weburl)
response.Write(">")
response.Write(webname)
response.Write("</a>&gt;&gt;&gt;")
response.Write(easesellstats)
response.Write("</th>"&ctr&aspeasetableclose)
response.Write(aspeasetable1bopen&tr)
response.Write("    <th width=""190"">")
response.Write(easetitle)
response.Write(" </th>            ")
response.Write("    <th width=""504""> ")
response.Write(easenesschar&easeness)
response.Write(" </th>" & ctr)
response.Write("        <form name=""myform"" action=""?action=preview"" method=""post"">")
response.Write("          <input name=cmd type=""hidden"" value=chk> ")
	Response.Write tr2&"<TD>" 
	If objErr.Exists(easegoodsname) then
		Response.Write OutMatch(objErr.Exists(easegoodsname), True, objErr.Item(easegoodsname),easegoodsname & "&nbsp;"  ) 
	else
		Response.Write OutMatch(objErr.Exists(easegoodsname&"1"), True, objErr.Item(easegoodsname&"1"),easegoodsname & "&nbsp;"  ) 
	end if
	Response.Write "</font></TD>" 
    Response.Write "<TD><INPUT TYPE=""TEXT"" NAME=""auc_ItemTitle"" SIZE=""40"" value=""" &  rst("auc_ItemTitle") & """ MAXLENGTH=""60"">"&easenesschar&ctdr
  
	Response.Write tr2&"<TD>"
	if objErr.Exists(easegoodsnum) then
		Response.Write OutMatch(objErr.Exists(easegoodsnum), True, objErr.Item(easegoodsnum),easegoodsnum & "&nbsp;" )
	else
		Response.Write OutMatch(objErr.Exists(easegoodsnum&"1"), True, objErr.Item(easegoodsnum&"1"),easegoodsnum & "&nbsp;"  )
	end if
	Response.Write "</font></TD>" 
    Response.Write "<TD><INPUT TYPE=""TEXT"" NAME=""auc_Num"" SIZE=""40"" value=""" &  rst("auc_Num") & """ MAXLENGTH=""60"">"&easenesschar&ctdr
    Response.Write tr2&"  <td>" & easegoodssort & ":</td>            "
    Response.Write "  <td>" & catlist & ctdr
    Response.Write tr2&" <td>" & easeauctiondays & ":</td>            "
    Response.Write "  <td>" 
	showdate 1,35,1,7,"Days"  
	Response.Write easeauctiondaysvalue & ctdr
    Response.Write tr2&"  <td>" & easegoodsimage & ":</td> "           
    Response.Write "  <td><input name=imageurl type=""text"" value=" & rst("imageurl") & ">"
	if websetting(2)=1 then
		Response.Write("<iframe name=""ad"" frameborder=0 width=300 height=20 scrolling=no src=upfile.asp?filepath=upload></iframe>")
	end if
	Response.Write ctdr&tr2&"<td>"
	If objErr.Exists(easestartprice) then
	     Response.Write OutMatch(objErr.Exists(easestartprice), True, objErr.Item(easestartprice),easestartprice & "&nbsp;"  )
	else
		 Response.Write OutMatch(objErr.Exists(easestartprice&"1"), True, objErr.Item(easestartprice&"1"),easestartprice & "&nbsp;"  ) 
	end if
	Response.Write "</font></TD>" 
    Response.Write "<TD>"&easemoneysymbol&"<INPUT TYPE=""TEXT"" NAME=""auc_StartingBid"" SIZE=""40"" value=""" &  rst("auc_StartingBid") & """ MAXLENGTH=""60"">"&easenesschar&ctdr
    Response.Write tr2&"<TD>"
	If objErr.Exists(easereserveprice) then
		Response.Write OutMatch(objErr.Exists(easereserveprice), True, objErr.Item(easereserveprice),easereserveprice & "&nbsp;"  ) 
	elseif objErr.Exists(easereserveprice&"1") then
		Response.Write OutMatch(objErr.Exists(easereserveprice&"1"), True, objErr.Item(easereserveprice&"1"),easereserveprice & "&nbsp;"  ) 
	else
		Response.Write OutMatch(objErr.Exists(easereserveprice&"2"), True, objErr.Item(easereserveprice&"2"),easereserveprice & "&nbsp;"  ) 
	end if 
	Response.Write "</font></TD>" 
    Response.Write "<TD>"&easemoneysymbol&"<INPUT TYPE=""TEXT"" NAME=""auc_ReservePrice"" SIZE=""40"" value=""" &  rst("auc_ReservePrice") & """ MAXLENGTH=""60"">"&easenesschar&ctdr 
    Response.Write tr2&"<TD>"
	If objErr.Exists(easeincreprice) then
		Response.Write OutMatch(objErr.Exists(easeincreprice), True, objErr.Item(easeincreprice),easeincreprice & "&nbsp;"  )
	else
		 Response.Write OutMatch(objErr.Exists(easeincreprice&"1"), True, objErr.Item(easeincreprice&"1"),easeincreprice & "&nbsp;"  )
	end if
	Response.Write "</font></TD>" 
    Response.Write "<TD>"&easemoneysymbol&"<INPUT TYPE=""TEXT"" NAME=""auc_MinimumIncrement"" SIZE=""40"" value=""" &  rst("auc_MinimumIncrement") & """ MAXLENGTH=""60"">"&easenesschar&ctdr 

    Response.Write tr2&"<TD>"
	If objErr.Exists(easeykjprice) then
		Response.Write OutMatch(objErr.Exists(easeykjprice), True, objErr.Item(easeykjprice),easeykjprice & "&nbsp;"  )
	elseif objErr.Exists(easeykjprice&"1") then 
		Response.Write OutMatch(objErr.Exists(easeykjprice&"1"), True, objErr.Item(easeykjprice&"1"),easeykjprice & "&nbsp;"  )
	else
		Response.Write OutMatch(objErr.Exists(easeykjprice&"2"), True, objErr.Item(easeykjprice&"2"),easeykjprice & "&nbsp;"  ) 
	end if
	Response.Write "</font></TD>" 
    Response.Write "<TD>"&easemoneysymbol&"<INPUT TYPE=""TEXT"" NAME=""auc_Buyprice"" SIZE=""40"" value=""" &  rst("auc_Buyprice") & """ MAXLENGTH=""60""><input type=""radio"" name=""auc_Isbuygoods"" value=""1"" checked>"&easeykjvaluechoice(0)&"<input type=""radio"" name=""auc_Isbuygoods"" value=""0""> "&easeykjvaluechoice(1)&easenesschar&ctdr 
    Response.Write tr2&"  <td>" & easelimit & ":</td>"
    Response.Write "  <td>" & easearray1(easelimitvalue,"|","select","auc_Limitornot") & ctdr
    Response.Write tr2&"  <td>" & easegoodsoldornew & ":</td>"            
    Response.Write "  <td>" & easearray(easegoodsoldornewvalue,"|","checkbox","auc_Oldornew") & ctdr &tr2
	Response.Write "      <td>" & easemend & ":</td>"            
	Response.Write "      <td>" & easearray(easemendvalue,"|","r","auc_Mendornot") & ctdr &tr2
    Response.Write "     <td>" & easefapiao &":</td>"            
	Response.Write "      <td>" & easearray(easefapiaovalue,"|","r","auc_Invoiceornot")  & ctdr &tr2  
    Response.Write "  <td>" & easeyunfei & ":</td>"            
	Response.Write "      <td>" & easearray(easeyunfeivalue,"|","r","auc_Feeofdeliver") & ctdr &tr2          
	Response.Write "      <td>" & easezhifu & ":</td>            "
	Response.Write "      <td>" & easearray(easezhifuvalue,"|","r","auc_Meansofpayment") & ctdr &tr2    
    Response.Write "  <td>" & easesonghuo & ":</td>            "
	Response.Write "  <td>" & easearray(easesonghuovalue,"|","r","auc_MeansofDeliver")  & ctdr &tr2
    Response.Write "<TD>" 
	Response.Write OutMatch(objErr.Exists(easedescription), True, objErr.Item(easedescription),easedescription & "&nbsp;"  )& "</font></TD>" 
    Response.Write "<TD><textarea name=""auc_Description"" cols=""100"" rows=""7"" wrap=""hard"">"&server.htmlencode(rst("auc_Description"))&"</textarea>"&easenesschar & ctdr &tr2&tdstr     
	Response.Write "      <td><input type=submit name=submit value=" & easesubmitbutton & ">"&ctdr
	Response.Write "	</form>"&aspeasetableclose
end sub
sub save
Set cmd = Server.CreateObject("ADODB.Command")
set rs=server.createobject("adodb.recordset")
cmd.CommandText = "SELECT * FROM auctions"
cmd.CommandType = 1
Set cmd.ActiveConnection = conn
rs.Open cmd, , 1, 3
if err.Number<>0 then
err.clear
response.write " <br>"&easeerrdatavalue
else
rs.AddNew
rs("auc_Ended") = "N"
rs("auc_EmailsSent") = "N" 
rs("auc_ItemOwner") = userid
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_CurrentBid") = sqltval(request("auc_StartingBid"))
rs("auc_Description") = sqltstr(request("auc_Description"))
rs("auc_Buyprice") = sqltval(request("auc_Buyprice"))
rs("auc_Catid") = sqltval(request("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") = sqltval(request("auc_Isbuygoods"))
rs("auc_Numleft") = sqltval(request("auc_Num"))
rs.Update
aucid=rs(0)
rs.Close
set rs=nothing
set cmd=nothing 
conn.execute("update users set reggoods=reggoods+1 where regid="&sqlval(userid))
end if 
suc_msg= "<center>"&easeposteditemname&"<br></center>"
suc_msg=suc_msg& "<center><a href = viewitem.asp?aucid="&aucid&">"&easeseeitempage&"</a><br></center>"
response.Write("<TABLE align=center border=0 cellPadding=4 cellSpacing=1 id=bg01 width=""760"">")
response.Write("  <TR> ")
response.Write("    <th width=""760""> ")
response.Write("      <div align=""center""><b>")
response.Write(easesucmsgname)
response.Write("</b></div>")
response.Write("    </th>")
response.Write("  </TR>")
response.Write("  <TR> ")
response.Write("    <TD id=bg12>")
response.Write(suc_msg )
response.Write("</TD>")
response.Write("  </TR>")