📄 prod1.asp
字号:
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>添加商品</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"> <img src=../images/admin/memo.gif alt='商品编号不能修改'></TD></TR>
<TR><TD width=100 align=center>
<input name="Prodnametext" type="text" value="<%=prodname%>" size=7>
</td><td>
<input name="ProdName" type="text" value="" size="20" maxlength="50"> <img src=../images/admin/memo.gif alt='必填，不能为空'></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="" size="20"> <img src=../images/admin/memo.gif alt='选填，填写商品的其它属性<br>如：“商品型号”、“品牌”、“产地”等'></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="" size="20"> </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="" size="20"> </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>
<input name="PriceList" type="text" value="0" size="6" maxlength="10"> 元 <img src=../images/admin/memo.gif alt="价格为0时，显示“价格请咨询”等提示语<br>可在“综合设置”下的“商品参数设置”中设置此提示语"></TD></TR>
<TR><TD width=100 align=center>备货状态</td><td>
<input type="radio" name="Quantity" value="1" checked>有货 <input type="radio" name="Quantity" value="0">缺货 <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"> <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');"> <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 + " <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)>有 <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"></textarea></TD></TR>
<TR><TD width=100 align=center valign="top">
<input name="MemoSpectext" type="text" value="<%=MemoSpec%>" size=7>
</td><td>
<textarea name="MemoSpec" style="display:none" rows="1" cols="20"></textarea>
<IFRAME ID="Edit3" SRC="../webedit/ewebeditor.asp?id=MemoSpec&style=s_red" FRAMEBORDER="0" SCROLLING="no" WIDTH="650" HEIGHT="550"></IFRAME>
</TD></TR>
<TR><TD width=100 align=center>是否推荐</td><td>
<input type="radio" name="Remark" value="0" checked>否 <input type="radio" name="Remark" value="1">是
<img src=../images/admin/memo.gif alt='选择“是”将设为推荐商品'></TD></TR>
<TR><TD width=100 align=center>是否特价</td><td>
<input type="radio" name="tejia" value="0" checked>否 <input type="radio" name="tejia" value="1">是
<img src=../images/admin/memo.gif alt='特价商品将出现在主页“特价商品”栏目中'></TD></TR>
<TR><TD colspan=2><INPUT TYPE="hidden" name=add value=ok><input type="submit" name="action" value="添加完成"></TD></TR>
</form>
</TABLE>
<%
end if
end sub
sub proddel()
if delid="" or isnull(delid) then
response.write "<script language='javascript'>"
response.write "alert('您什么也没有选择，单击“确定”返回上一页！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
else
'conn.execute("delete from buyok_produc where ProdNum in ("&delid&")")
set rs = server.createobject("adodb.recordset")
sql="select * from buyok_produc where ProdNum in ("&delid&")"
rs.open sql,conn,1,3
do while not rs.eof
conn.execute("delete from more_pic where Prodid = '"&rs("prodid")&"'")
rs.delete
rs.update
rs.movenext
if rs.eof then exit do
loop
rs.close
set rs=nothing
response.write "<script language='javascript'>"
response.write "alert('操作成功，所选商品已被删除！');"
response.write "location.href='"&url&"';"
response.write "</script>"
response.end
conn.close
set conn=nothing
end if
end sub
sub proddetail()
if id="" then
response.write "<script language='javascript'>"
response.write "alert('提交的商品编号不存在，请检查！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
else
'修改商品资料
if request("modify")="ok" then
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
end if
set rs=server.createobject("adodb.recordset")
sql = "select * from buyok_produc where ProdId='"&id&"'"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
rs("ProdId")=rs("ProdId")
rs("ProdIdtext")=request.form("ProdIdtext")'编号名称
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("ClickTimes")=request.form("ClickTimes")'点击次数
rs("Remark")=request.form("Remark")'是否推荐
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -