preaucinfo.asp

实用的拍卖源码。适合个人建站学习使用。仅供学习参考

<%
Response.Expires = 0
Response.Expiresabsolute = Now() - 1 
Response.AddHeader "pragma","no-cache" 
Response.AddHeader "cache-control","private" 
Response.CacheControl = "no-cache" 
%>
<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="inc/adovbs.inc" -->
<!-- #include file="head.asp" -->
<%
call chk2(rst("Description"))
on error resume next
dim stitle,snum,scatid,scatsonid,sdays,sImageURL
dim sDesc,sStartBid,sIncrement,sReserve,sykj
dim soldnew,sbaoxiu,sfapiao,syunfei,szhifu,ssonghuo
dim closedate,startdate,owner
stitle=rst("title")
snum=rst("num")
scatid=rst("catid")
scatsonid=rst("catsonid")
sdays=rst("days")
sImageURL=rst("imageurl")
sdesc=rst("Description")
sdesc=replace(sdesc,"<","&lt;")
sdesc=replace(sdesc,">","&gt;")
sdesc=replace(sdesc,"'","''")
sdesc=replace(sdesc,chr(34),"“")
sdesc=replace(sdesc,"%","%")
sdesc=aspeasehtml(rst("Description"))
sstartbid=FVal(rst("startbid"))
sIncrement=FVal(rst("Increment"))
sReserve=rst("Reserve")
sykj=rst("ykj")
limit=rst("limit")
soldnew=rst("oldnew")
sbaoxiu=rst("baoxiu")
sfapiao=rst("fapiao")
syunfei=rst("yunfei")
szhifu=rst("zhifu")
ssonghuo=rst("songhuo")
closedate= DateAdd("d", sDays, NOW)
startdate=now
sql="select regID,regadmin from users where regUsername='"&session("user")&"'"
set rs=conn.execute(sql)
'--------判断帐号是否被锁定---------
if rs("regadmin")="Y" then
response.write "<script language=javascript>alert('你的帐号已经被管理员锁定，请联系管理员！');this.location.href='index.asp';</script>"
end if
if not rs.eof then
owner=rs("regID")
rs.close
set rs=nothing
'conn.close
'set conn=nothing
end if
%>
<table cellpadding=0 cellspacing=1 width=760 align=center border=0  class=tablebg>
<tr>
<td width=100% align=center class=td>
<%
If isnumeric(sstartbid)=false then 
response.write "<font color=red>起拍价应该为数字</font><br>"
er="t"
End If
If isnumeric(sReserve)=false then 
response.write "<font color=red>保留价应该为数字</font><br>"
er="t"
End If
If isnumeric(sykj)=false then 
response.write "<font color=red>一口价应该为数字</font><br>"
er="t"
End If
If len(trim(sstartbid)) = 0 then 
response.write "<font color=red>起拍价应该填写个数字</font><br>"
er="t"
End If
If cdbl(sstartbid) >cdbl(sReserve) Then
    response.write "<font color=red>保留价应该大于起拍价！</font><br>"
	er="t"
End If
If trim(sykj) <>"" Then
  
	If cdbl(sstartbid) >cdbl(sykj) Then
   	 response.write "<font color=red>一口价应该大于起拍价！</font><br>"
	er="t"
	end if
else
sykj="0"

End If

If Len(Trim(stitle)) = 0 Then
    response.write "<font color=red>商品不能不写名称吧！</font><br><br>"
	er="t"
End If
If instr(sImageURL,"<") <> 0 or instr(sImageURL,">") <> 0  Then
    response.write "<font color=red>图片地址中含有特殊字符！请填写正确的地址！</font><br><br>"
	er="t"
End If
    	
If Len(Trim(rst("Description"))) = 0  Then
    response.write "<font color=red>不写商品描述怎么行呢？</font><br><br>"
	er="t"
End If
    		
If Len(Trim(sReserve)) = 0 Then
    response.write "<font color=red>请填写保留价格，买方看不到此价格！</font><br><br>"
	er="t"
End If
if er="t" then
response.write "<B>你提交的商品信息有错误，请返回重新输入<a href=""javascript:history.back(-1);"">返回</a></B>"
%>
</td></tr></table>
<br>
<!--#include file="bottom.asp"-->
<%
response.end 
end if
%>
		<br><font class=fblue>以下是你提交的商品信息，请你再看一下有没有错误！</font><br>
		没有错误请点击“确认”,需要修改请<B><a href="javascript:history.back(-1);">返回</a></B>
</td>
</tr>
</table>

<table width="760" class=tablebg cellspacing=1 align=center style="TABLE-LAYOUT: fixed">
  <tr class=td> 
    <td width="80">商品名称：</td>
    <td width="330"><%=stitle%> </td>
    <td width="80">&nbsp;</td>
    <td width="200">&nbsp;</td> 
  </tr>
  <tr class=td> 
    <td>商品数量：</td>
    <td><%=snum%> &nbsp;件</td>
    <td>新旧程度：</td>
    <td><%=soldnew%></td>
  </tr>
  <tr class=td> 
    <td>发布天数：</td>
    <td><%=sdays%>&nbsp;天</td>
    <td>是否保修：</td>
    <td><%=sbaoxiu%></td>
  </tr>
  <tr class=td> 
    <td>一口价：</td>
    <td><%=sykj%>&nbsp;元</td> 
    <td>有无发票：</td>
    <td><%=sfapiao%></td>
  </tr>
  <tr class=td> 
    <td>起拍价格：</td>
    <td><%=sstartbid%>&nbsp;元</td>
    <td>运费支付：</td>
    <td><%=syunfei%></td>
  </tr>
  <tr class=td> 
    <td>竞价阶梯：</td>
    <td><%=sIncrement%>&nbsp;元</td>
    <td>支付方式：</td>
    <td><%=szhifu%></td>
  </tr>
  <tr class=td> 
    <td>保留价格：</td>
    <td><%=sReserve%>&nbsp;元</td>
    <td>送货方式： </td>
    <td><%=ssonghuo%></td>
  </tr>
  <tr class=td>
<td>图片预览：</td>

<% if session("filep")<>"" then %>
  <td colspan=2><img src=<%=session("filep")%> width="72" height="72" align="middle" alt="商品图片"></td>
<% elseif sImageurl<>"" then%>
  <td colspan=2><img src="<%=sImageURL%>" width="72" height="72" align="middle" alt="商品图片"></td>
<% else %>
  <td colspan=2><b>无图片</b></td>
<% end if %>
  <td><br>
   <form name="f1" method="post" action="saveaucinfo.asp" onsubmit="return check()">
        	<input type="hidden" name="stitle" value="<%=stitle%>">
		<input type="hidden" name="snum" value="<%=snum%>">
		<input type="hidden" name="stotalnum" value="<%=snum%>">
		<input type="hidden" name="scatid" value="<%=scatid%>">
		<input type="hidden" name="scatsonid" value="<%=scatsonid%>">
<% if session("filep")<>"" then %>
<input type="hidden" name="sImageURL" value="<%=session("filep")%>">
<% else %>
<input type="hidden" name="sImageURL" value="<%=sImageURL%>">		
<% end if %>
		<input type="hidden" name="sdesc" value="<%=sdesc%>">
		<input type="hidden" name="sstartbid" value="<%=sstartbid%>">
		<input type="hidden" name="sIncrement" value="<%=sIncrement%>">
		<input type="hidden" name="sReserve" value="<%=sReserve%>">
		<input type="hidden" name="sykj" value="<%=sykj%>">
		<input type="hidden" name="limit" value="<%=limit%>">
		<input type="hidden" name="soldnew" value="<%=soldnew%>">
		<input type="hidden" name="sbaoxiu" value="<%=sbaoxiu%>">
		<input type="hidden" name="sfapiao" value="<%=sfapiao%>">
		<input type="hidden" name="syunfei" value="<%=syunfei%>">
		<input type="hidden" name="szhifu" value="<%=szhifu%>">
		<input type="hidden" name="ssonghuo" value="<%=ssonghuo%>">
		<input type="hidden" name="closedate" value="<%=closedate%>">
		<input type="hidden" name="startdate" value="<%=startdate%>">
		<input type="hidden" name="owner" value="<%=owner%>">
  		<input type="submit" name="Submit" value="确认正确并提交">
   </form>
  </td>
  </tr>
<tr class=td>
    <td valign="top">商品描述：</td>
<% sdesc=replace(sdesc,"'","''")%>
    <td colspan="3" style="WORD-WRAP: break-word"><pre><%=sdesc%></pre></td>
</tr>
</table>
<!--#include file="bottom.asp"-->
<script language="javascript">
<!--

function check()
{
if (myform.sdesc.value=="")
{
alert("商品描述内容不能为空");
myform.sdesc.focus();
return false;
}
return true;
}
-->
</SCRIPT>