prod1.asp

是一套很好的数码购物系统

rs("tejia")=request.form("tejia")'是否特价
if request.form("up")="1" then rs("AddDate")=now()'是否提升
rs.update
rs.close
set rs=nothing
end if


'写入大图到其它表
if request.form("more_pic")="1" then
set rsfile=Server.Createobject("ADODB.recordset")
sql="select * from more_pic where ProdId='"&request.form("ProdId")&"'"
rsfile.open sql,conn,3,3
if not rsfile.eof then '如果已经有图片表明是修改，则先删除旧的，再添加
conn.execute("delete from more_pic where ProdId='"&request.form("ProdId")&"'")
end if
rsfile.close
set rsfile=nothing

Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "more_pic" ,conn,3,3
For m=1 to request("m")
rs.addnew
rs("FilePath")=request.form("more"&m)
rs("ProdId")=request.form("ProdId")
rs.update
next
rs.close
set rs=nothing
end if

page=request("page")	'修改商品后返回当前页
response.write "<script language='javascript'>"
response.write "alert('您已成功修改了一件商品！');"
response.write "location.href='"&url&"?page="&page&"';"
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,1

if rs.eof and rs.bof 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 not (rs.eof and rs.bof) then 
%>

<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>

<!--表单提交程序中加入 page=<%=request("page")%> 是为了编辑商品后返回当前页-->
<form name=prodtable method="post" action='prod1.asp?action=detail&id=<%=id%>&page=<%=request("page")%>'>

<%
'从商品资料中读取分类
LarCode=rs("LarCode")
MidCode=rs("MidCode")

'从分类表中读取所有分类
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 
%>

<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="<%=rs("prodidtext")%>" size=7>
</td><td>
<input name="ProdId" type="text" readonly value="<%=rs("ProdId")%>" size="20" maxlength="30"> &nbsp;<img src=../images/admin/memo.gif alt='商品编号不能修改'></TD></TR>

<TR><TD width=100 align=center>
<input name="ProdNametext" type="text" value="<%=rs("ProdNametext")%>" size=7>
</td><td>
<input name="ProdName" type="text" value="<%=rs("ProdName")%>" size="20" maxlength="50"> &nbsp;<img src=../images/admin/memo.gif alt='必填，不能为空'></TD></TR>

<TR><TD width=100 align=center>
<input name="Modeltext" type="text" value="<%=rs("Modeltext")%>" size=7>
</td><td>
<input name="Model" type="text" value="<%=rs("Model")%>" size="20"></TD></TR>

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

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

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

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

<%
Set rsfile=conn.execute("select * from more_pic where ProdId='"&id&"'")
if (rsfile.eof and rsfile.bof) then temp="none"
set rsfile=nothing
%>

<TR><TD width=100 align=center>商品大图</td><td>
<INPUT TYPE="radio" NAME="more_pic" <%if rs("more_pic")=0 or temp="none" then%>checked<%end if%> value=0 onclick=JM_wu(s1)>无 
<INPUT TYPE="radio" NAME="more_pic" 
<%
if rs("more_pic")=1 and temp<>"none" then
response.write "checked value=1 onclick=JM_you(s1)>有 <span id=s1 style='display:'>"
Set rsfile=Server.CreateObject("ADODB.Recordset")
sql="select * from more_pic where ProdId='"&id&"'"
rsfile.open sql,conn,1,1
count=rsfile.RecordCount '图片总数
For m=1 to count
response.write "<br> <input size=40 type=text name=more"&m&" value='"&rsfile("FilePath")&"'>"
response.write "<a href='prod1.asp?action=delother&FilePath="&rsfile("FilePath")&"&id="&rsfile("ProdId")&"'>删除</a>"
rsfile.movenext
next
response.write " <input type=button value='增加到' onClick=""createForm('more',document.prodtable.more.value,"&m&");"">"
response.write "<input name=more type=text value='"&m&"' size=1 maxlength=1><br><span id=cust style='position:relative;'>"
response.write "<INPUT TYPE='hidden' name='m' value="&count&"></span></span>"
%>

<SCRIPT LANGUAGE="JavaScript">
function createForm(textN,number,count) {
data = "<INPUT TYPE='hidden' name='m' value="+count+">"; 
inter = "'";
if (number < 11 && number > -1) {
for (i=count; 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张图片.");
 }
}
</script>
<%
else
response.write "value=1 onclick=JM_you(s1)>有 <span id=s1 style='display:none'>"
response.write "<input name='m' type=text value='1' size='5' maxlength='1'>"
response.write "<input type=button value=张大图 onClick=createForm('more',document.prodtable.m.value);>"
response.write "<br><span id=cust style='position:relative;'></span></span>"
%>

<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张图片.");
 }
}
</script>

<%end if%>

</TD></TR>

<TR><TD width=100 align=center valign="top">
<input name="Proddisctext" type="text" value="<%=rs("Proddisctext")%>" size=7>
</td><td>
<textarea name="ProdDisc" cols="85" rows="4" style="overflow:auto;"><%=rs("ProdDisc")%></textarea></TD></TR>

<TR><TD width=100 align=center valign="top">
<input name="MemoSpectext" type="text" value="<%=rs("MemoSpectext")%>" size=7>
</td><td>
<textarea name="MemoSpec" style="display:none" rows="1" cols="20"><%=Server.HTMLEncode(rs("MemoSpec"))%></textarea>

<iframe ID="Edit4" 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" 
 <%if rs("Remark")=0 then%>checked<%end if%>> 否
 <input type="radio" name="Remark" value="1" 
 <%if rs("Remark")=1 then%>checked<%end if%>> 是 
&nbsp;<img src=../images/admin/memo.gif alt='选择“是”将设为推荐商品'></TD></TR>

<TR><TD width=100 align=center>是否特价</td><td>
 <input type="radio" name="tejia" value="0" 
 <%if rs("tejia")=0 then%>checked<%end if%>> 否
 <input type="radio" name="tejia" value="1" 
 <%if rs("tejia")=1 then%>checked<%end if%>> 是 
&nbsp;<img src=../images/admin/memo.gif alt='特价商品将出现在主页“特价商品”栏目中'></TD></TR>

<TR><TD width=100 align=center>是否提升</td><td>
 <input type="radio" name="up" value="0" checked> 否
 <input type="radio" name="up" value="1" > 是 
&nbsp;<img src=../images/admin/memo.gif alt='若选择“是”，将实现：<br>前台：此商品将成为首页第一个商品<br>后台：出现在列表顶端'></TD></TR>

<TR><TD width=100 align=center>浏览次数</td><td>
 此商品已被浏览 <input type=text name=ClickTimes value=<%=rs("ClickTimes")%> size=5 maxlength=5> 次
&nbsp;<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>

<%
end if
rs.close
set rs=nothing
end if
end sub


'提升
sub tisheng()
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("AddDate")=now()
rs.update
rs.close
end if
response.write "<script language='javascript'>"
response.write "alert('所选商品已被提升到列表顶端，单击“确定”返回商品列表。');"
response.write "location.href='"&url&"';"
response.write "</script>"
end sub


'推荐或取消推荐
sub tuijian()
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
if rs("remark")="1" then 
rs("remark")="0"
rs("tjdate")=rs("adddate")
tjian="所选商品已取消推荐，单击“确定”返回商品列表。"
else
rs("remark")="1"
rs("tjdate")=now()
tjian="所选商品已列为推荐商品，单击“确定”返回商品列表。"
end if
rs.update
rs.close
end if
response.write "<script language='javascript'>"
response.write "alert('"&tjian&"');"
'response.write "location.href='javascript:history.go(-1)';"
response.write "location.href='"&url&"';"
response.write "</script>"
end sub


'设置或取消特价
sub tejia()
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
if rs("tejia")="1" then 
rs("tejia")="0"
tjia="所选商品已列为非特价商品，单击“确定”返回商品列表。"
else
rs("tejia")="1"
tjia="所选商品已列为特价商品，单击“确定”返回商品列表。"
end if
rs.update
rs.close
end if
response.write "<script language='javascript'>"
response.write "alert('"&tjia&"');"
response.write "location.href='"&url&"';"
response.write "</script>"
end sub
%>

</body>
</html>