📄 admin_prod.asp
字号:
response.write "<input type=checkbox name=array_num("&i&") value="&rs("TypeNo")&j
response.write ">"&trim(sheet(j-1))&" "
next
response.write "</td></tr><tr>"
rs.movenext
next
response.write "<INPUT TYPE='hidden' name=i value="&i&">"
rs.close
set rs=nothing
end if
%>
<TR><TD align="right">项目编码</TD>
<TD><input name="ProdId" type="text" value="" size="20" maxlength="20"></TD></TR><TR><TD width="20%" align="right">项目名称</TD>
<TD width="80%"> <input name="ProdName" type="text" value="" size="40" maxlength="40"></TD></TR><TR><TD width="20%" align="right">演示地址</TD>
<TD width="80%"><input name="Model" type="text" value=""></TD></TR>
<TR><TD width="20%" align="right">设计报价</TD>
<TD width="80%"><input name="PriceList" type="text" value="0" size="6" maxlength="5"> 元 [如'0' 则显示：请咨询客服]</TD></TR>
<TR><TD width="20%" align="right">设计周期</TD>
<TD width="80%"><input name="Quantity" type="text" value="99999" size="6" maxlength="5"> 个 [如'0' 则显示：一周]</TD></TR>
<TR><TD align="right">设计师</TD>
<TD><input name="ProduceArea" type="text" value="aee" size="12" maxlength="10"></TD></TR><TR><TD align="right">项目简介</TD>
<TD><textarea name="ProdDisc" cols="50" rows="3"></textarea></TD> </TR><TR><TD align="right">外观尺寸</TD>
<TD> 长<input name="ProdLong" type="text" value="11" size="5" maxlength="5"> 宽<input name="ProdWidth" type="text" value="11" size="5" maxlength="5"> 高<input name="ProdHeight" type="text" value="11" size="5" maxlength="5"></TD></TR><TR>
<TD align="right">略图地址</TD>
<TD><input name="ImgPrev" type="text" value="prod/none.gif" size="50" maxlength="100"> <INPUT TYPE="button" value="上传" onclick="javascript:uppic('_sml','ImgPrev');"></TD></TR><TR><TD align="right">略图尺寸</TD>
<TD> 宽<input name="ImgPrevWidth" type="text" value="81" size="5" maxlength="5"> 高<input name="ImgPrevHeight" type="text" value="76" size="5" maxlength="5"></TD></TR>
<TR><TD align="right">全图地址</TD><TD><input name="ImgFull" type="text" value="prod/none_d.gif" size="50" maxlength="100"> <INPUT TYPE="button" value="上传" onclick="javascript:uppic('_lar','ImgFull');"></TD></TR>
<TR><TD align="right">全图尺寸</TD><TD> 宽<input name="ImgFullWidth" type="text" value="220" size="5" maxlength="5"> 高<input name="ImgFullHeight" type="text" value="172" size="5" maxlength="5"></TD>
</TR>
<TR><TD align="right">其它图片</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('_hug"+i+"','Hug"+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>
<TD><INPUT TYPE="radio" NAME="FileOther" checked value=0 onclick=JM_wu(s1)>无<br>
<INPUT TYPE="radio" NAME="FileOther" value=1 onclick=JM_you(s1)>有 <span id=s1 style="display:none"><input name="Hug" type=text value='' size='1' maxlength='1'> <input type=button value="张其它大图片" onClick="createForm('Hug',document.prodtable.Hug.value);"><br>
<span id=cust style="position:relative;"></select></select>
</TD>
</TR>
<TR><TD align="right">详细说明</TD>
<TD><textarea name="MemoSpec" cols="65" rows="8"></textarea></TD>
</TR><TR><TD align="right">是否首页推荐</TD>
<TD><input type="radio" name="Remark" value="0" checked>否
<input type="radio" name="Remark" value="1">是 </TD></TR><TR>
<TD align="right"> </TD><TD><INPUT TYPE="hidden" name=add value=ok>
<input type="submit" name="action" value="加商品"> <input type="reset" name="Submit2" value="重设">
新增商品默认不在线，请在列表中修改它的属性</TD></TR>
</form></TABLE>
<%
end if
end sub
sub proddel()
if delid="" or isnull(delid) then
Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='admin_prod.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_prod.asp""></BLOCKQUOTE>"
else
conn.execute("delete from ProdMain where ProdNum in ("&delid&")")
if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description
err.clear
else
conn.close
set conn=nothing
Response.write "<BLOCKQUOTE><br><br>产品删除成功！<A HREF='admin_prod.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_prod.asp""></BLOCKQUOTE>"
end if
end if
end sub
sub proddetail()
if id="" then
response.write "请重新确认您的产品编号!"
response.write "<meta http-equiv=refresh content=""1;URL=admin_prod.asp"">"
else
'修改产品资料
if request("modify")="ok" then
num = request("i")
Dim bbb
Dim SearchType
bbb=checkreal(request.form("array_num(0)"))
for i=1 to num-1
bbb = bbb&","&checkreal(request.form("array_num("&i&")"))
next
SearchType = mid(bbb,2) '去掉前面的竖号
set rs=server.createobject("adodb.recordset")
sql = "select * from ProdMain where ProdId='"&id&"'"
rs.open sql,conn,1,3
if err.number<>0 then
response.write "数据库操作失败：" & err.description '错误描述
err.clear
else
if not (rs.eof and rs.bof) then
rs("ProdId")=request.form("ProdId")
rs("ProdName")=request.form("ProdName")
rs("Model")=request.form("Model")
rs("PriceList")=request.form("PriceList")
rs("LarCode")=request.form("LarCode")
rs("MidCode")=request.form("Midcode")
if SearchType<>"" then rs("SearchType")=SearchType
rs("ProduceArea")=request.form("ProduceArea")
rs("ProdDisc")=request.form("ProdDisc")
rs("ProdLong")=request.form("ProdLong")
rs("ProdHeight")=request.form("ProdHeight")
rs("ProdWidth")=request.form("ProdWidth")
rs("ImgPrev")=request.form("ImgPrev")
rs("ImgPrevWidth")=request.form("ImgPrevWidth")
rs("ImgPrevHeight")=request.form("ImgPrevHeight")
rs("ProdHeight")=request.form("ProdHeight")
rs("ImgFull")=request.form("ImgFull")
rs("ImgFullHeight")=request.form("ImgFullHeight")
rs("ImgFullWidth")=request.form("ImgFullWidth")
rs("Quantity")=request.form("Quantity")
rs("FileOther")=request.form("FileOther")
rs("MemoSpec")=request.form("MemoSpec")
rs("Remark")=request.form("Remark")
rs.update
rs.close
end if
'判断是否有多个图片
if request.form("FileOther")="1" then
set rsfile=Server.Createobject("ADODB.recordset")
sql="select * from FileOther where ProdId='"&request.form("ProdId")&"'"
rsfile.open sql,conn,3,3
if not rsfile.eof then '如果不是新添加，先删除旧的
conn.execute("delete from FileOther where ProdId='"&request.form("ProdId")&"'")
end if
rsfile.close
set rsfile=nothing
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "FileOther" ,conn,3,3
For m=1 to request("m")
rs.addnew
rs("FilePath")=request.form("Hug"&m)
rs("ProdId")=request.form("ProdId")
if error>0 then
response.write " 操作产品大图列表生成错误！！"
return
end if
rs.update
next
set rs=nothing
end if
end if
response.write "产品资料已经修改"
response.write "<meta http-equiv=refresh content=""1;URL=admin_prod.asp?action=detail&id="&id&""">"
' response.write "<meta http-equiv=refresh content=""1;URL=admin_prod.asp"">"
response.end
end if
'显示详细资料
set rs = server.createobject("adodb.recordset")
sql = "select * from ProdMain where ProdId='"&id&"'"
rs.open sql,conn,1,1
if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description '错误描述
err.clear
else
if not (rs.eof and rs.bof) then
%>
<br><TABLE width="95%" border=1 cellpadding=3 style="border-collapse: collapse" bordercolor="#3D5489" align=center>
<form name=prodtable method="post" action='admin_prod.asp?action=detail&id=<%=id%>'><tr><td><B><font color="yellow"> 序列ID : <%=rs("ProdNum")%></font></B></td><td align=right><input type="button" name="action" onclick="javascript:location.href='admin_prod.asp?action=加商品';" value="加商品"></td></tr>
<% Dim a,b,c
if request("LarCode")<>"" then
LarCode=request("LarCode")
else
LarCode=rs("LarCode")
end if
MidCode=rs("MidCode")
'显示产品类别表
set rslar=server.createobject("adodb.recordset")
set rsmid=server.createobject("adodb.recordset")
sqllar="select distinct LarCode,LarSeq from ProdClass order by LarSeq"
sqlmid="select distinct LarCode,LarSeq,MidCode,midSeq from ProdClass"
if LarCode<>"" then sqlmid=sqlmid&" where LarCode='"&LarCode&"'"
sqlmid= sqlmid & " order by LarSeq,MIdSeq "
rslar.Open sqllar,conn,1,1
rsmid.Open sqlmid,conn,1,1
%>
<TR><TD width="20%" align="right">所属大类</TD>
<TD width="80%"><%if LarCode<>rs("LarCode") then
tempMid="原 "&rs("MidCode")&" 改为 -->"%>原 <%=rs("LarCode")%> 改为--> <%end if%>
<select name="LarCode" onchange="window.location.href='admin_prod.asp?action=detail&id=<%=id%>&Larcode='+this.options[this.selectedIndex].value; this.selectedIndex=0">
<%
if rslar.bof and rslar.eof then
response.write "<option selected value='未归类' >-暂无分类-</option>"
else
response.write "<option value='未归类' >--不归类-</option>"
Do While Not rslar.eof
response.write "<option value="&rslar("LarCode")
if LarCode=rslar("LarCode") then response.write " selected"
response.write ">"&rslar("LarCode")&"</option>"
rslar.movenext
if rslar.eof then
exit do
end if
loop
end if
response.write "</select>"
rslar.close
set rslar=nothing
%>
</TD></TR><TR><TD width='20%' align='right'>所属中类</TD> <TD width='80%'>
<%
response.write tempMid&" <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
response.write "<option value='"&rsmid("MidCode")&"'"
if MidCode=rsmid("MidCode") then response.write " selected"
response.write ">"&rsmid("LarCode")&"-"&rsmid("MidCode")&"</option>"
rsmid.movenext
loop
end if
rsmid.close
set rsmid=nothing
%>
</TD></TR>
<%
'如果选择了大类则显示该类的搜索类别
sql="select distinct ID,TypeNo,LarCode,SearchName,SearchContain from SearchType order by LarCode desc"
set rstype=server.createobject("adodb.recordset")
rstype.open sql,conn,1,1
count=rstype.RecordCount
response.write "<TR><TD width='20%' align='right' rowspan="&count&">搜索类别(按符合的来选)</TD>"
IF rstype.eof and rstype.bof then
response.write "<td align=center colspan=2 class=b><a href=admin_prod.asp?action=SearchTypeAdd><b>暂时没有搜索分类，要添加吗？</b></a></td></tr><tr>"
else
'Dim array_num()
for i=1 to count
response.write "<td width='80%'>"&rstype("SearchName")&":<br>"
sheet=Split(rstype("SearchContain"),"|") '用竖号|转化 上海|北京|南京 为数组
for j=1 to ubound(sheet)+1
response.write "<input type=checkbox name=array_num("&i&") value="&rstype("TypeNo")&j
if instr(rs("SearchType"),rstype("TypeNo")&j)>0 then response.write " checked "
response.write ">"&trim(sheet(j-1))&" "
next
response.write "</td></tr><tr>"
rstype.movenext
next
response.write "<INPUT TYPE='hidden' name=i value="&i&">"
rstype.close
set rstype=nothing
end if
%>
<TR><TD align="right">产品编码</TD>
<TD><input name="ProdId" type="text" value="<%=rs("ProdId")%>" size="20" maxlength="20"></TD></TR><TR><TD width="20%" align="right">产品名称</TD>
<TD width="80%"> <input name="ProdName" type="text" value="<%=rs("ProdName")%>" size="40" maxlength="40"></TD></TR><TR><TD width="20%" align="right">产品型号</TD>
<TD width="80%"><input name="Model" type="text" value="<%=rs("Model")%>"></TD></TR>
<TR><TD width="20%" align="right">最新售价</TD>
<TD width="80%"><input name="PriceList" type="text" value="<%=rs("PriceList")%>" size="6" maxlength="5"> 元 [如'0' 则显示：请咨询客服]</TD></TR>
<TR><TD width="20%" align="right">库存数</TD>
<TD width="80%"><input name="Quantity" type="text" value="<%=rs("Quantity")%>" size="6" maxlength="5"> 个 [如'0' 则显示：备货中]</TD></TR>
<TR><TD align="right">产地</TD>
<TD><input name="ProduceArea" type="text" value="<%=rs("ProduceArea")%>" size="12" maxlength="10"></TD></TR><TR><TD align="right">产品简介</TD>
<TD><textarea name="ProdDisc" cols="50" rows="3"><%=rs("ProdDisc")%></textarea></TD> </TR><TR><TD align="right">外观尺寸</TD>
<TD>长 <input name="ProdLong" type="text" value="<%=rs("ProdLong")%>" size="5" maxlength="5">宽 <input name="ProdWidth" type="text" value="<%=rs("ProdWidth")%>" size="5" maxlength="5">高 <input name="ProdHeight" type="text" value="<%=rs("ProdHeight")%>" size="5" maxlength="5"></TD></TR><TR>
<TD align="right">略图地址</TD>
<TD><input name="ImgPrev" type="text" value="<%=rs("ImgPrev")%>" size="50" maxlength="100"> <INPUT TYPE="button" value="上传" onclick="javascript:uppic('_sml','ImgPrev');"></TD></TR>
<TR><TD align="right">略图尺寸</TD>
<TD>宽 <input name="ImgPrevWidth" type="text" value="<%=rs("ImgPrevWidth")%>" size="5" maxlength="5"> 高 <input name="ImgPrevHeight" type="text" value="<%=rs("ImgPrevHeight")%>" size="6" maxlength="6"></TD></TR>
<TR><TD align="right">全图地址</TD><TD><input name="ImgFull" type="text" value="<%=rs("ImgFull")%>" size="50" maxlength="100"> <INPUT TYPE="button" value="上传" onclick="javascript:uppic('_lar','ImgFull');"></TD></TR>
<TR><TD align="right">全图尺寸</TD><TD>宽 <input name="ImgFullWidth" type="text" value="<%=rs("ImgFullWidth")%>" size="5" maxlength="5"> 高 <input name="ImgFullHeight" type="text" value="<%=rs("ImgFullHeight")%>" size="5" maxlength="5"></TD></TR>
<TR><TD align="right">其它图片</TD>
<TD><INPUT TYPE="radio" NAME="FileOther" <%if rs("Fileother")=0 then%>checked<%end if%> value=0 onclick=JM_wu(s1)>无<br>
<INPUT TYPE="radio" NAME="FileOther" <%
if rs("Fileother")=1 then
response.write "checked value=1 onclick=JM_you(s1)>有 <span id=s1 style='display:'>"
Set rsfile=Server.CreateObject("ADODB.Recordset")
sql="select * from fileother where ProdId='"&id&"'"
rsfile.open sql,conn,1,1
m=1
if rsfile.eof and rsfile.bof then
response.write "<font color=yellow><b>← 产品大图已删除,请设为'无'，或者</b></font>"
set rsfile=nothing
else
count=rsfile.RecordCount '已经有的大图总数
For m=1 to count
response.write "<br> <a href='"&rsfile("FilePath")&"' target='blank_'><font color=yellow>"&m&"</font></a> <input size=40 type=text name=Hug"&m&" value='"&rsfile("FilePath")&"'> <a href='admin_prod.asp?action=delother&FilePath="&rsfile("FilePath")&"&id="&rsfile("ProdId")&"'>删除</a>"
rsfile.movenext
next
end if
response.write " <input type=button value='增加到' onClick=""createForm('Hug',document.prodtable.Hug.value,"&m&");"">"
response.write "<input name='Hug' type=text value='"&m&"' size='1' maxlength='1'><br><span id=cust style=""position:relative;""><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 = "'";
//number= number + count;
if (number < 11 && number > -1) {
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -