prod1.asp

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

</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">抱歉,您使用的是未注册版本,未提供本功能. 

客户服务及反馈中心
Phone:[phone] 13366690044 QQ:88353022 
注：非在线支付购买的用户,汇完款 请QQ或电话联系管理员,
我们将为你提供优质服务,谢谢!
</textarea>
<iframe ID="edit3" src="../webedit/ewebeditor.asp?id=MemoSpec&style=putong" frameborder="0" scrolling="no" width="620" HEIGHT="500"></iframe> 
</TD></TR>

<TR><TD width=100 align=center>是否推荐</td><td>
<input type="radio" name="Remark" value="0" checked>否&nbsp;<input type="radio" name="Remark" value="1">是
&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" checked>否&nbsp;<input type="radio" name="tejia" value="1">是 
&nbsp;<img src=../images/admin/memo.gif alt='特价商品将出现在主页“特价商品”栏目中'></TD></TR>

<TR><TD colspan=2><INPUT TYPE="hidden" name=add value=ok>
      </TD>
    </TR>

</form>
</TABLE>
<table width="98%" 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> 
      <div align="center"><b><font color="#FF0000"> <font color="#FFFFFF">抱歉,您使用的是未注册版本,未提供本功能. 
        </font></font></b></div>
    </td>
  </tr>
  <tr> 
    <td width=13% height=25 align=center>&nbsp;</td>
    <td width="87%"><b><font color="#FF0000">客户服务及反馈中心 抱歉,您使用的是未注册版本,未提供本功能.</font></b></td>
  </tr>
  <tr> 
    <td width=13% height=25 align=center valign=top"><font color="#FF0000">联系方式</font></td>
    <td width="87%"><b><font color="#FF0000">Phone:[phone] 13366690044 MSN:[e-mail] 
      QQ:88353022  </font></b></td>
  </tr>
  <form action='prod0.asp?action=addMidclass' method=post name=addmidclass>
    <tr> 
      <td width=13% height=25 align=center><font color="#FF0000">备 注</font></td>
      <td width="87%"><b><font color="#FF0000">非在线支付购买的用户,汇完款 请QQ或电话联系管理员</font></b></td>
    </tr>
    <tr> 
      <td colspan=2> 
        <div align="center"><b><font color="#FF0000"><a href="http://www.asp3721.cn/"><font color="#990000">asp3721软件中心 
          我们将为你提供优质服务,谢谢!http://www.asp3721.cn/</font></a></font></b> </div>
      </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")'是否推荐
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 
%>
<%
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>