📄 prod12.asp
字号:
<!--#include file="../include/dbopenbd.asp"-->
<!--#include file="checkadmin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="manage.css" type="text/css">
</head>
<BODY background="../images/admin/back.gif">
<%
'返加列表时定位到当前页
url="prod1.asp?page="&request("page")
'定义变量
dim LarCode,MidCode,prodidtext,ProdId,ProdNametext,ProdName,Modeltext,Model,prodtext1,prod1
dim prodtext2,prod2,PriceOrigintext,PriceOrigin,PriceListtext,PriceList,Quantity,ImgPrev,Proddisctext,ProdDisc
dim MemoSpectext,MemoSpec,Remark,tejia,ClickTimes,title
'取得操作商品编号，如果为空，则表示为添加新的商品
id=trim(request("id"))
if request("action")="ok" then
'无论是添加提交还是修改提交都执行同个函数
call prodeditok()
end if
'无论是添加还是修改，通过 proddetai 函数获得要显示的数据
call proddetail()
%>
<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><%=title%></td></tr>
<form name=prodtable method="post" action='prod12.asp?action=ok&id=<%=id%>&page=<%request("page")%>'>
<%
'从分类表中读取所有分类
set rsmid=server.createobject("adodb.recordset")
sqlmid="select distinct LarCode,LarSeq,MidCode,midSeq from s_class order by LarSeq,MIdSeq "
rsmid.Open sqlmid,conn,1,1
%>
<TR><TD width=100 align=center>商品分类</td><td>
<%
response.write "<select name='MidCode'>"
if rsmid.bof and rsmid.eof then
response.write "<option selected value='未归类^未归类'>-暂无分类-</option>"
else
response.write "<option value='未归类^未归类' >-该商品不归类-</option>"
Do While Not rsmid.eof
a=rsmid("larcode")
response.write "<option value='"&rsmid("larCode")&"^"&rsmid("MidCode")&"'"
if MidCode=rsmid("MidCode") and larCode=rsmid("larCode") then response.write " selected"
response.write ">"&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
%>
</TD></TR>
<TR><TD width=100 align=center>
<input name="prodidtext" type="text" value="<%=prodidtext%>" size=7>
</td><td>
<input name="ProdId" type="text" <%if id<>"" then response.Write "readonly"%> value="<%=ProdId%>" size="20" maxlength="30"> <img src=../images/admin/memo.gif alt='商品编号不能修改'></TD></TR>
<TR><TD width=100 align=center>
<input name="ProdNametext" type="text" value="<%=ProdNametext%>" size=7>
</td><td>
<input name="ProdName" type="text" value="<%=ProdName%>" 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="<%=Model%>"></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="<%=prod1%>"></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="<%=prod2%>"></TD></TR>
<TR><TD width=100 align=center>
<input name="PriceOrigintext" type="text" value="<%=PriceOrigintext%>" size=7>
</td><td>
<input name="PriceOrigin" type="text" value="<%=PriceOrigin%>" size="6" maxlength="10"> 元</TD></TR>
<TR><TD width=100 align=center>
<input name="PriceListtext" type="text" value="<%=PriceListtext%>" size=7>
</td><td>
<input name="PriceList" type="text" value="<%=PriceList%>" 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" <%if Quantity=false then%>checked<%end if%>>缺货 <img src="../images/admin/memo.gif" alt="缺货时，显示“货品备货中”等提示语<br>可在“综合设置”下的“商品参数设置”中设置此提示语"></TD></TR>
<TR><TD width=100 align=center>商品略图</td><td>
<input name="ImgPrev" type="text" value="<%=ImgPrev%>" size="30" maxlength="100">
<img src=../images/admin/memo.gif alt='<font color=red>请填写图片的网址，如<font color=blue>http://www.buyok.net/pic/mp3.jpg</font><br>或填写站内的图片路径、文件名，如：<font color=blue>pic/more/001.jpg</font>'></TD></TR>
<TR><TD width=100 align=center valign="top">
<input name="Proddisctext" type="text" value="<%=Proddisctext%>" size=7>
</td><td>
<textarea name="ProdDisc" cols="85" rows="4" style="overflow:auto;"><%=ProdDisc%></textarea></TD></TR>
<TR><TD width=100 align=center valign="top">
<input name="MemoSpectext" type="text" value="<%=MemoSpectext%>" size=7>
</td><td>
<textarea name="MemoSpec" cols="85" rows="15" style="overflow:auto;"><%=MemoSpec%></textarea>
</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"
<%if Remark then response.Write "checked"%>> 是
<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"
<%if tejia then response.Write "checked"%>> 是
<img src=../images/admin/memo.gif alt='特价商品将出现在主页“特价商品”栏目中'></TD></TR>
<TR><TD width=100 align=center>浏览次数</td><td>
此商品已被浏览 <input type=text name=ClickTimes value="<%=ClickTimes%>" size=5 maxlength=5> 次
<img src=../images/admin/memo.gif alt="小技巧：<br>要让此商品出现在热卖排行的前面位置<br>只需将此数字改得尽量大即可<br><font color=red>最大的排在第一位置</font>"></TD></TR>
<TR><Td colspan=2><INPUT TYPE="hidden" name=modify value=ok><input type="submit" name="action" value="保存设置"></TD></TR>
</form></TABLE>
</body>
</html>
<%
sub proddetail()
id=request("id")
if id="" then '添加时，给部分字段名赋默认值
title="添加新的商品"
prodidtext="商品编号"
ProdNametext="商品名称"
PriceOrigintext="批 发 价"
PriceListtext="市 场 价"
Proddisctext="商品简介"
MemoSpectext="商品介绍"
Modeltext="质 地"
prodtext1="颜 色"
prodtext2="尺 码"
else '修改时，所有字段名及其值都从数据表中读取
set rs = server.createobject("adodb.recordset")
sql = "select * from s_produc where ProdId='"&id&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then mGoBack "没有此商品序号，请检查！"
title="编辑商品资料"
'从商品资料中读取分类
LarCode=rs("LarCode")
MidCode=rs("MidCode")
prodidtext=rs("prodidtext")
ProdId=rs("ProdId")
ProdNametext=rs("ProdNametext")
ProdName=rs("ProdName")
Modeltext=rs("Modeltext")
Model=rs("Model")
prodtext1=rs("prodtext1")
prod1=rs("prod1")
prodtext2=rs("prodtext2")
prod2=rs("prod2")
PriceOrigintext=rs("PriceOrigintext")
PriceOrigin=rs("PriceOrigin")
PriceListtext=rs("PriceListtext")
PriceList=rs("PriceList")
Quantity=rs("Quantity")
ImgPrev=rs("ImgPrev")
Proddisctext=rs("Proddisctext")
ProdDisc=rs("ProdDisc")
MemoSpectext=rs("MemoSpectext")
MemoSpec=rs("MemoSpec")
Remark=rs("Remark")
tejia=rs("tejia")
ClickTimes=rs("ClickTimes")
rs.close
end if
end sub
sub prodeditok()
Set rs=Server.CreateObject("ADODB.Recordset")
if id="" then '添加
sql="select * from s_produc Where ProdId='"&request("ProdId")&"'"
rs.open sql,conn,1,3
'检测商品编号的重复性
if not rs.eof then mGoBack "出错了，商品编号重复，请检查！"
'生成一条新记录
rs.Addnew
rs("ProdId")=request.form("ProdId") '编号
else '修改
sql="select * from s_produc Where ProdId='"&id&"'"
rs.open sql,conn,1,3
'检测商品存在性
if rs.eof then mGoBack "出错了，商品编号不存在，请检查！"
end if
if request("midcode")="" then mGoBack "出错了，您没有选择有效的商品分类！"
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
mGoBack "出错了，商品资料填写不完整！"
end if
if len(request("ProdDisc"))>200 then mGoBack "出错了，您填写的简介内容太长了"
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") '简介
imgurl=request.form("ImgPrev")
if imgurl="" then imgurl="pic/none.gif"
rs("ImgPrev")=imgurl '商品图片
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
mGoTo url,"商品操作成功，单击“确定”返回商品列表。"
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -