prod1.asp

这是一个很漂亮的网站购物系统

conn.execute("delete from more_pic where ProdId='"&request("id")&"' and FilePath='"&request("FilePath")&"'")
response.redirect "prod1.asp?action=detail&id="&request("id")
end sub

sub prodadd()
if request("add") ="ok" then

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from buyok_produc Where ProdId='"&request("ProdId")&"'"
rs.open sql,conn,3,3
if not rs.eof then

response.write "<script language='javascript'>"
response.write "alert('出错了，商品编号重复，请检查！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
rs.close
set rs=nothing
response.end
end if

if request("midcode")="" then
response.write "<script language='javascript'>"
response.write "alert('出错了，您没有选择有效的商品分类！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if

if request("ProdId")="" or request("ProdIdtext")="" or request("Prodname")="" or request("Prodnametext")="" or request("PriceList")="" or request("PriceListtext")="" or request("PriceOrigin")="" or request("PriceOrigintext")="" or request.form("ProdDisctext")="" or request.form("MemoSpectext")="" then
response.write "<script language='javascript'>"
response.write "alert('出错了，商品资料填写不完整！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
'response.end
end if

if len(request("ProdDisc"))>200 then
response.write "<script language='javascript'>"
response.write "alert('出错了，您填写的简介内容太长了！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
'response.end
end if


Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from buyok_produc Where ProdId='"&request("ProdId")&"'"
rs.open sql,conn,3,3
Set rsfile=Server.CreateObject("ADODB.Recordset")
rsfile.open "more_pic" ,conn,3,3

if not rs.eof then
response.write "<script language='javascript'>"
response.write "alert('出错了，商品编号重复，请检查！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if

rs.Addnew
rs("ProdIdtext")=request.form("ProdIdtext")	'编号名称
rs("ProdId")=request.form("ProdId")	'编号
rs("ProdNametext")=request.form("ProdNametext")	'品名名称
rs("ProdName")=request.form("ProdName")	'商品名称
rs("Modeltext")=request.form("Modeltext")	'型号名称
rs("Model")=request.form("Model")	'型号
rs("prodtext1")=request.form("prodtext1")	'自定义一名称
rs("prod1")=request.form("prod1")	'自定义一
rs("prodtext2")=request.form("prodtext2")	'自定义二名称
rs("prod2")=request.form("prod2")	'自定义二
rs("PriceOrigintext")=request.form("PriceOrigintext")	'原价名称
rs("PriceOrigin")=request.form("PriceOrigin")	'原价
rs("PriceListtext")=request.form("PriceListtext")	'现价名称
rs("PriceList")=request.form("PriceList")	'现价
code=split(request.form("Midcode"),"^")
rs("LarCode")=code(0)	'大类
rs("MidCode")=code(1)	'中类
rs("ProdDisctext")=request.form("ProdDisctext")	'简介名称
rs("ProdDisc")=request.form("ProdDisc")	'简介
rs("ImgPrev")=request.form("ImgPrev")	'商品图片
rs("more_pic")=request.form("more_pic")	'商品大图\多图
rs("Quantity")=request.form("Quantity")	'备货状态
rs("MemoSpectext")=request.form("MemoSpectext")	'商品介绍名称
rs("MemoSpec")=request.form("MemoSpec")	'商品介绍
rs("Remark")=request.form("Remark")	'是否推荐
rs("tejia")=request.form("tejia")	'是否特价
rs("online")=true 	'是否在线
rs.update
rs.close
set rs=nothing

'如果有大图时，将大图写入另一个表
if request("more_pic")="1" then
 For m=1 to request.form("more")
rsfile.addnew
rsfile("FilePath")=request.form("more"&m)
rsfile("ProdId")=request.form("ProdId")
rsfile.update
 Next
end if

rsfile.close
set rsfile=nothing
conn.close
set conn=nothing

response.write "<script language='javascript'>"
response.write "alert('商品添加成功，单击“确定”返回商品列表。');"
response.write "location.href='prod1.asp';"
response.write "</script>"

else
LarCode=request("LarCode")
%>

<table width="750" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px" bordercolor="#333333" cellspacing="0" cellpadding="2">
<tr>
    <td colspan=2 class=td height=18>添加商品 <b><font color="#FF0000"><font color="#FFFFFF">抱歉,您使用的是未注册版本,未提供本功能. 
      </font></font></b></td>
  </tr>

<form name=prodtable method="post" action="">
<%Dim a,b,c 
set rsmid=server.createobject("adodb.recordset") 
sqlmid="select distinct LarCode,LarSeq,MidCode,midSeq from buyok_class order by LarSeq,MIdSeq" 
rsmid.Open sqlmid,conn,1,1 

response.write "<TR><TD width=100 align=center>商品分类</td><td>"
response.write "<select name='MidCode'>"
response.write"<option value='未归类^未归类' selected>---选择商品所属分类---</option>"
if rsmid.bof and rsmid.eof then
response.write "<option selected value='未归类^未归类'>-暂无商品分类-</option>"
else
Do While Not rsmid.eof
a = rsmid("larcode")
response.write "<option value='"&rsmid("larCode")&"^"&rsmid("MidCode")&"'>"&rsmid("LarSeq")&"-"&rsmid("LarCode")&" >> "&rsmid("MidSeq")&"-"&rsmid("MidCode")&"</option>"
rsmid.movenext
if rsmid.eof then exit do
if rsmid("larcode")<>a then response.write "<option value=''>--------------------------</option>"
loop
end if
rsmid.close
set rsmid=nothing

response.write "</TD></TR>"

'确定商品编号
set rs = server.createobject("adodb.recordset")
sql = "select * from buyok_produc where ProdId is not null"
rs.cursorlocation = 3
rs.open sql,conn,1,1 
if rs.bof and rs.eof then
 autoid=1
 else
 totalid=rs.RecordCount'根据数据库中商品总数确定下一个商品的编号
 autoid=totalid+1
end if
rs.close
set rs=nothing

autoidtxt=cstr(autoid)
 if len(autoidtxt)=1 then
 autoidtxt="000"&autoidtxt
 elseif len(autoidtxt)=2 then
 autoidtxt="00"&autoidtxt
 elseif len(autoidtxt)=3 then
 autoidtxt="0"&autoidtxt
 end if

for i=1 to totalid
'检查自动生成的编号是否有重复，若有重复则自动加1

set rs=conn.execute("select prodid from buyok_produc where prodid='"&autoidtxt&"'")
if not (rs.eof and rs.bof) then
 autoid=autoid+1
autoidtxt=cstr(autoid)
 if len(autoidtxt)=1 then
 autoidtxt="000"&autoidtxt
 elseif len(autoidtxt)=2 then
 autoidtxt="00"&autoidtxt
 elseif len(autoidtxt)=3 then
 autoidtxt="0"&autoidtxt
 end if
end if
set rs=nothing
next

Set rstxt = conn.Execute("select * from shopsetup") 
ProdName=rstxt("ProdName")
Prodid=rstxt("Prodid")
shichang=rstxt("shichang")
remai=rstxt("remai")
Proddisc=rstxt("Proddisc")
MemoSpec=rstxt("MemoSpec")
Modeltext=rstxt("Modeltext")
prodtext1=rstxt("prodtext1")
prodtext2=rstxt("prodtext2")
set rstxt=nothing
%>

<TR><TD width=100 align=center>
<input name="Prodidtext" type="text" value="<%=prodid%>" size=7>
</td><td>
<input name="ProdId" type="text" value="<%=autoidtxt%>" size="20" maxlength="7">
        &nbsp;<img src=../images/admin/memo.gif alt='商品编号不能修改'><b><font color="#FF0000">客户服务及反馈中心 
        抱歉,您使用的是未注册版本,未提供本功能.</font></b></TD>
    </TR>

<TR><TD width=100 align=center>
<input name="Prodnametext" type="text" value="<%=prodname%>" size=7>
</td>
      <td> <b><font color="#FF0000">Phone:[phone] 13366690044 MSN:[e-mail] 
        QQ:88353022  </font></b></TD>
    </TR>

<TR><TD width=100 align=center>
<input name="Modeltext" type="text" value="<%=Modeltext%>" size=7>
</td><td>
<input name="Model" type="text" value="">
        &nbsp;<b><font color="#FF0000">非在线支付购买的用户,汇完款 请QQ或电话联系管理员</font></b></TD>
    </TR>

<TR><TD width=100 align=center>
<input name="Prodtext1" type="text" value="<%=prodtext1%>" size=7>
</td><td>
<input name="prod1" type="text" value=""> </TD></TR>

<TR><TD width=100 align=center><input name="Prodtext2" type="text" value="<%=prodtext2%>" size=7></td><td>
<input name="prod2" type="text" value=""> </TD></TR>

<TR><TD width=100 align=center>
<input name="PriceOrigintext" type="text" value="<%=shichang%>" size=7>
</td><td>
<input name="PriceOrigin" type="text" value="0" size="6" maxlength="10"> 元</TD></TR>

<TR><TD width=100 align=center>
<input name="PriceListtext" type="text" value="<%=remai%>" size=7>
</td>
      <td> <b><font color="#FF0000"><a href="http://www.asp3721.cn/"><font color="#990000">asp3721软件中心 
        我们将为你提供优质服务,谢谢!http://www.asp3721.cn/</font></a></font></b></TD>
    </TR>

<TR><TD width=100 align=center>备货状态</td><td>
<input type="radio" name="Quantity" value="1" checked>有货&nbsp;<input type="radio" name="Quantity" value="0">缺货&nbsp;<img src="../images/admin/memo.gif" alt="缺货时，显示“货品备货中”等提示语<br>可在“综合设置”下的“商品参数设置”中设置此提示语"></TD></TR>

<TR><TD width=100 align=center>商品略图</td><td>
<input name="ImgPrev" type="text" value="pic/none.gif" size="40" maxlength="100">&nbsp;<INPUT alt="请单击“浏览”上传图片<br>或填写图片的网址，如<font color=blue>http://www.buyok.net/pic/mp3.jpg</font><br>或填写站内的图片路径、文件名，如<font color=blue>pic/more/001.jpg</font>" TYPE="button" value="浏览" onclick="javascript:uppic('','ImgPrev');">&nbsp;&nbsp; <img src=../images/admin/memo.gif alt='<font color=red>何谓“略图”：</font><br>略图也就是商品的小图片，建议制作为130象素宽<br>略图显示在首页、分类页、搜索页、商品介绍页<br><font color=red>大图显示在什么位置？</font><br>点击商品页的“查看大图”按钮可查看所有大图'></TD></TR>

<TR><TD width=100 align=center>商品大图</td><td>
<SCRIPT LANGUAGE="JavaScript">
function createForm(textN,number) {
data = ""; 
inter = "'";
if (number < 11 && number > -1) {
for (i=1; i <= number; i++) {
if (i < 10) spaces=" ";
else spaces=" ";
data =data + "&nbsp;&nbsp;<input name="+textN+i+" type=text value='' size='30' maxlength='100'><INPUT TYPE='button' value='上传"+i+"' onclick=javascript:uppic('_more"+i+"','more"+i+"')><br>";
}
if (document.layers) {
document.layers.cust.document.write(data);
document.layers.cust.document.close();
}
else {
if (document.all) {
cust.innerHTML = data;
 }
 }
}
else {
window.alert("请不要超过10张图片.");
 }
}
// End -->
</script>
<INPUT TYPE="radio" NAME="more_pic" checked value=0 onclick=JM_wu(s1)>无 
<INPUT TYPE="radio" NAME="more_pic" value=1 onclick=JM_you(s1)>有&nbsp;<span id=s1 style="display:none"><input name="more" type=text value='1' size='5' maxlength='1'> <input type=button value="张大图" onClick="createForm('more',document.prodtable.more.value);"><br>
<span id=cust style="position:relative;"></span></span>

</TD></TR>

<TR><TD width=100 align=center valign="top">
<input name="ProdDisctext" type="text" value="<%=ProdDisc%>" size=7>
<br>(200字内)</td><td>
        <textarea name="ProdDisc" cols="85" rows="4">抱歉,您使用的是未注册版本,未提供本功能. 

客户服务及反馈中心
Phone:[phone] 13366690044 QQ:88353022 
注：非在线支付购买的用户,汇完款 请QQ或电话联系管理员,
我们将为你提供优质服务,谢谢!