b2b_addnewproduce.asp

信运网店系统是一套功能完善、简洁美观

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
'限制查看权限管理员
if session("rank")=3 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
%>
<title>添加新商品</title>

<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE1 {
	color: #000000;
	font-weight: bold;
}
.STYLE2 {color: #FF0000}
-->
</style><table width="99%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF"> 
<tr> 
  <td height="20" background="images/topbg.gif" bgcolor="#F2f2f2"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -&gt; <span class="STYLE2">添加商品</span></span></td>
</tr> 
<tr>  
<form name="myform" method="post" action="b2b_cs.asp">
<td bgcolor="#FFFFFF"> 
  <br>
  <table width="98%" border="2" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
          <tr> 
            <td width="17%" align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>选择分类： </strong></td>
            <td width="83%" bgcolor="#FFFFFF"> 
			<select name="categoryid">  
<%
sort(0)
dim ii
ii=0
sub sort(selec)
	sql="select * from category where ParentID = "&selec&" order by categoryorder"
	Set Rs1=Conn.Execute(sql)
	do while not rs1.eof
if selec=0 then
%>
<option value="<%=int(rs1("categoryid"))%>"><%=rs1("category")%></option>
<%
else
%>
<option value="<%=int(rs1("categoryid"))%>"><%=string(ii*2,"　")%><%=rs1("category")%></option>
<%
end if
ii=ii+1
	sort rs1("categoryid")
ii=ii-1
	rs1.movenext
	loop
rs1.close
Set Rs1 = Nothing
end sub

%>
		</select>           </td>
          </tr>
          <tr>
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>商品名称： </strong></td>
            <td bgcolor="#FFFFFF"><input name="name" type="text" class="input_sr" id="name" size="30" />            </td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>商品编号：            </strong></td>
            <td bgcolor="#FFFFFF"> <input name="code" type="text" class="input_sr" id="code" size="30">            </td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>商品品牌：            </strong></td>
            <td bgcolor="#FFFFFF"> <input name="mark" type="text" class="input_sr" id="mark" size="30" >
            <%
set rsMark=server.createobject("adodb.recordset")
rsMark.open "select * from b2b_parductppp order by MarkTop ",conn,1,1
%>
              <select name="SelectMark" onChange="(document.myform.mark.value=this.options[this.selectedIndex].value)">
                <option selected>请选择品牌</option>
				<% Do While Not rsMark.Eof %>
                <option value="<% = Trim(rsMark("MarkName")) %>"><% = rsMark("MarkName")%></option>
                <%
rsMark.movenext
Loop
rsMark.close
set rsMark=nothing
%>
            </select></td>
          </tr>
          <tr>
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>供货商信息：</strong></td>
            <td bgcolor="#FFFFFF"><input name="Supplier" type="text" class="input_sr" id="Supplier" size="30" >
                <select name="selectSupplier" id="selectSupplier" onChange="(document.myform.Supplier.value=this.options[this.selectedIndex].value)">
                  <option selected>请选择供货商</option>
                  <%
				sql="select SupplierName from Supplier Order by SupplierCode"
				set michaelrs=conn.execute(sql)
				while not michaelrs.eof
				%>
                  <option value="<%=Trim(michaelrs("SupplierName"))%>"><%=Trim(michaelrs("SupplierName"))%></option>
                  <%
				michaelrs.movenext
				wend
				%>
              </select></td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>简介关键字：</strong></td>
            <td bgcolor="#FFFFFF"> <input name="introduce" type="text" class="input_sr" id="introduce" size="30" ></td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong> 商品价格：</strong></td>
            <td height="70" bgcolor="#FFCC00" ><table width="100%" border="0" cellspacing="2" cellpadding="2">
              <tr>
                <td>市场价：</td>
                <td>普通会员价：</td>
                <td><%
			  	mSql="select * from b2b_userjb where grpID <> 4 order by grpID"
				set mRs=conn.execute(mSql)
				dim p(3),i
				i=1
				while not mRs.eof
					p(i)=mRs("grpName")
					i=i+1
					mRs.movenext 
				wend
				response.write p(1)&"价"
			  %>
                  ：</td>
                <td><%response.write p(2)&"价"%>
                  ：</td>
                <td><%response.write p(3)&"价"%>
                  ：</td>
                <td>成本价：</td>
              </tr>
              <tr>
                <td><img src="images/pic6.gif" width="22" height="22" align="absmiddle" />
                  <input name="price1" type="text" class="input_sr" id="price1" value="1" size="5" />
                  元</td>
                <td><img src="images/pic6.gif" width="22" height="22" align="absmiddle" />
                  <input name="price2" type="text" class="input_sr" id="price2"  value="1" size="5" />
                  元</td>
                <td><img src="images/pic6.gif" width="22" height="22" align="absmiddle" />
                  <input name="price3" type="text" class="input_sr" id="price3" value="1" size="5" />
                  元</td>
                <td><img src="images/pic6.gif" width="22" height="22" align="absmiddle" />
                  <input name="price4" type="text" class="input_sr" id="price4" value="1" size="5" />
                  元</td>
                <td><img src="images/pic6.gif" width="22" height="22" align="absmiddle" />
                  <input name="price5" type="text" class="input_sr" id="price5" value="1" size="5" />
                  元</td>
                <td><img src="images/pic6.gif" width="22" height="22" align="absmiddle" />
                  <input name="price6" type="text" class="input_sr" id="price6" value="1" size="5" />
                  元</td></tr>
            </table>            </td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>库存积分：</strong></td>
            <td bgcolor="#FFFFFF" > 库　存： 
              <INPUT NAME="stock" TYPE="text" class="input_sr" VALUE="10" SIZE="6">
              件，赠送积分： 
              <INPUT NAME="score" TYPE="text" class="input_sr" VALUE="0" SIZE="4">
            分(库存为0显示缺货，库存小于0商品隐藏)</td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong> 商品材质：</strong></td>
            <td bgcolor="#FFFFFF"> <input name="grade" type="text" class="input_sr" id="grade" size="10">
              <select name="selectMaterial" onChange="(document.myform.grade.value=this.options[this.selectedIndex].value)">
			  <option selected>请选择材质</option>
			  <%
			  	mSql="select * from buy2buyMaterial order by IndexID"
				set mRs=conn.execute(mSql)
				if not (mRs.eof and mRs.bof) then
				while not mRs.eof
			  %>
			   <option value="<% = Trim(mRs("MaterialName")) %>"><% = mRs("MaterialName")%></option>
			  <%
			  		mRs.movenext
			  	wend
				end if
				mRs.close
				set mRs=nothing			  
			  %>
            </select>              </td>
          </tr>
          <tr> 
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>商品单位：</strong></td>
            <td bgcolor="#FFFFFF"><input name="type" type="text" class="input_sr" id="type2" size="10">
              <select name="selectUnit" onChange="(document.myform.type.value=this.options[this.selectedIndex].value)">
			  <option selected>请选择单位</option>
			  <%
			  	mSql="select * from buy2buyUnits order by IndexID"
				set mRs=conn.execute(mSql)
				if not (mRs.eof and mRs.bof) then
				while not mRs.eof
			  %>
			   <option value="<% = Trim(mRs("UnitName")) %>"><% = mRs("UnitName")%></option>
			  <%
			  		mRs.movenext
			  	wend
				end if
				mRs.close
				set mRs=nothing			  
			  %>
            </select>              </td>
          </tr>
          <tr>
            <td align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong>商品重量： </strong></td>
            <td bgcolor="#FFFFFF"><input name="pweight" type="text" class="input_sr" id="pweight" size="30" /></td>
          </tr>
          <tr>
            <td height="9" align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong> 附加邮费：</strong></td>
            <td bgcolor="#FFFFFF"><INPUT NAME="vipprice" TYPE="text" class="input_sr" ID="vipprice" value="0" SIZE="6">
            元</td>
          </tr>
          <tr>
            <td height="9" align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong> 商品缩略图：</strong></td>
            <td bgcolor="#FFFFFF"><input name="spic" type="text" class="input_sr" id="spic" value="../images/buynopic.gif" size="30" />
                <input name="Submit11" type="button" class="input_bot" onclick="window.open('b2b_upimgloads.asp?formname=myform&amp;editname=spic','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')" value="上传商品缩图" />            </td>
          </tr>
          <tr> 
            <td height="9" align="right" background="images/topbg.gif" bgcolor="#f4f4f4"><strong> 商品原图：</strong></td>
            <td bgcolor="#FFFFFF"> <input name="pic" type="text" class="input_sr" id="pic" VALUE="../images/buynopic.gif" size="30"> 
              <input name="Submit11" type="button" class="input_bot" onClick="window.open('b2b_upimgload.asp?formname=myform&editname=pic','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')" value="上传商品原图">            </td>
          </tr>
          <tr> 
            <td align="right" valign="top" bgcolor="#f4f4f4"><strong>详细简介：            </strong></td>
            <td bgcolor="#FFFFFF"> <INPUT type="hidden" name="detail" value="<% =rs(11) %>">	
              <iframe ID="detail" src="htmledit/ewebeditor.asp?id=detail&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe>            </td>
          </tr>

          <tr>
            <td height="25" align="right" bgcolor="#f4f4f4"><strong>商品类别：</strong></td>
            <td bgcolor="#FFFFFF">
                <input name="recommend" type="radio" value="1" checked="checked" />
              新品上架：如果您选择新品中架，此商品将在首页新品区块显示；<br />
              <input type="radio" name="recommend" value="2" />
              首页推荐：此商品将不在新品区块显示，而是直接显示在首页推荐商品区块；<br />
              <input type="radio" name="recommend" value="3" />
              暂不上架：此商品将暂时不发布，但是此数据将收集在下架商品管理里，您可以在下架商品管理里进行上架发布。
              <hr size="0" />
                <input name="Submit2" type="submit" class="input_bot" onclick="return checkpro();" value="确认以上修改" />               </td>
          </tr>
</table>
  <br></td></form></tr> </table>