📄 admin_prod.asp
字号:
for (i=count; 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>
<%
else
response.write "value=1 onclick=JM_you(s1)>有 <span id=s1 style='display:none'>"
response.write "<input name='m' type=text value='' size='1' maxlength='1'> <input type=button value=添加 onClick=createForm('Hug',document.prodtable.m.value);><br>"
response.write "<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 + " <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>
<%end if%>
</TD></TR>
<TR><TD align="right">详细说明</TD>
<TD><textarea name="MemoSpec" cols="65" rows="8"><%=rs("MemoSpec")%></textarea><br>支持html代码</TD>
</TR><TR><TD align="right">是否首页推荐</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%>>
是 </TD></TR><TR>
<TD align="right"> <INPUT TYPE="hidden" name=modify value=ok></TD><TD>
<input type="submit" name="action" value="提交修改"> <input type="reset" name="Submit2" value="重新修改">
</TD></TR>
</form></TABLE>
<%
else
response.write "<BR><BLOCKQUOTE>无此序号商品！<br><br><font color=yellow><B>请检查！</B></font><BR></BLOCKQUOTE>"
end if
end if
rs.close
set rs=nothing
end if
end sub
sub manageclass()
set rs=server.createobject("adodb.recordset")
sql="select * from ProdClass order by LarSeq asc , MidSeq asc"
rs.open sql,conn,1,3
if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description '错误描述
err.clear
else
Dim a,b,c
if rs.eof and rs.bof then
response.write "<table width=100% ><tr><td colspan=""2"" height=150 align=center>暂时没有商品类别，<a href=""admin_prod.asp?action=addLarclass""><font color=yellow>增加类别么</font></a>？</td></tr>"
else
response.write "<br><BLOCKQUOTE><B>请注意：</B>如果已经是旧的类别，已经和产品关联了，修改，删除类别后，页面可能不能直接找到原类别产品，最好不要轻易修改，增加完一个大类后自动产生一个临时中类，<b>修改完临时中类名称以后再增加别的类别</b>。</BLOCKQUOTE><table border=1 width=90%"" align=center style='border-collapse: collapse' cellpadding=3 cellspacing=1 bordercolor=#3D5489>"
a=rs("LarCode")
Do While Not rs.eof
if (a<>b) then
response.write "<tr><td bgcolor='#999999'>"&rs("LarSeq")&" <a href='admin_prod.asp?action=editclass&LarCode="&rs("LarCode")&"'>"&rs("LarCode")&"</a></td><td bgcolor='#999999'><a href='admin_prod.asp?action=delLarclass&LarCode="&rs("LarCode")&"'>删除大类</a> | <a href='admin_prod.asp?action=addLarclass'>增加大类</a></td></tr>"
a=rs("LarCode")
else
end if
response.write "<tr><td> "&rs("MidSeq")&"-<a href='admin_prod.asp?action=editclass&MidCode="&rs("MidCode")&"'>"&rs("MidCode")&"</a><br></td><td> <a href='admin_prod.asp?action=delMidclass&MidCode="&rs("MidCode")&"'>删除中类</a> | <a href='admin_prod.asp?action=addMidclass&LarCode="&rs("LarCode")&"'>增加中类</a></td></tr>"
rs.movenext
if rs.eof then
exit do
end if
b=rs("LarCode")
Loop
end if
response.write "</table>"
end if
rs.close
set rs=nothing
end sub
sub addmidclass()
'增加中类
larclass=request("LarCode")
if request("add")="ok" then
sql="select * from ProdClass where LarCode='"&larclass&"' order by MidSeq"
set rs=conn.execute(sql)
if Not (rs.eof and rs.bof) then
while Not rs.eof
counter=rs("MidSeq")
larseq=rs("LarSeq")
larcode=rs("LarCode")
rs.movenext
wend
counter=counter+1
else
counter=1
end if
set rsadd=server.createobject("adodb.recordset")
application.lock
rsadd.open "ProdClass",conn,3,3
rsadd.addnew
rsadd("LarSeq")=larseq
rsadd("LarCode")=larCode
rsadd("MidSeq")=counter
rsadd("MidCode")=request.form("newclass")
rsadd.update
application.unlock
rsadd.close
set rsadd=nothing
rs.close
set rs=nothing
response.write "<br><br> 新增中类："&request("newclass")&"<br><br>"
response.write "<meta http-equiv=refresh content=""1;URL=admin_prod.asp?action=cls"">"
else
response.write "大类："&larclass&"<br>中类:<br>"
set rs=server.createobject("adodb.recordset")
sql="select * from ProdClass where LarCode='"&larclass&"' order by MidSeq asc"
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
response.write " "&rs("MidSeq")&"|"&rs("MidCode")&"<br>"
rs.movenext
loop
end if
response.write "<form action=admin_prod.asp?action=addMidclass method=post name=addmidclass> 新增中类:<INPUT TYPE='text' NAME='newclass' size=20 maxlength=12> <INPUT TYPE='hidden' name=add value='ok'><INPUT TYPE='hidden' name=LarCode value='"&larclass&"'><INPUT TYPE='submit' value='提交'></form>"
rs.close
set rs=nothing
end if
end sub
sub delmidclass()
'删除中类
sql= "delete from ProdClass where MidCode='"&request("MidCode")&"'"
conn.execute sql
conn.close
response.write "<br><br> 删除中类："&request("MidCode")&"<br><br>"
response.write "<meta http-equiv=refresh content=""1;URL=admin_prod.asp?action=cls"">"
end sub
sub addlarclass()
'增加大类
if request("add")="ok" then
sql="select * from ProdClass order by LarSeq asc"
set rs=conn.execute(sql)
if Not (rs.eof and rs.bof) then
while Not rs.eof
counter=rs("LarSeq")
rs.movenext
wend
counter=counter+1
else
counter=1
end if
set rsadd=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM ProdClass"
application.lock
rsadd.open sql,conn,3,3
rsadd.addnew
rsadd("LarSeq")=counter
rsadd("MidSeq")=1
rsadd("LarCode")=request.form("newclass")
rsadd("MidCode")="临时中类"
rsadd.update
application.unlock
rsadd.close
set rsadd=nothing
rs.close
set rs=nothing
response.write "<br><br> 新增大类："&request("newclass")&"<br><br>"
response.write "<meta http-equiv=refresh content=""1;URL=admin_prod.asp?action=cls"">"
else
response.write "<br> 现有大类："
set rs=server.createobject("adodb.recordset")
sql="select distinct LarCode,LarSeq from ProdClass order by LarSeq asc"
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
response.write " "&rs("LarCode")
rs.movenext
loop
end if
response.write "<form action=admin_prod.asp?action=addLarclass method=post name=addmidclass> 新增大类:<INPUT TYPE='text' NAME='newclass' size=20 maxlength=12> <INPUT TYPE='hidden' name=add value='ok'><INPUT TYPE='hidden' name=LarCode value='"&larclass&"'><INPUT TYPE='submit' value='提交'></form>"
rs.close
set rs=nothing
end if
end sub
sub delLarclass()
'删除大类
sql= "delete from ProdClass where LarCode='"&request("LarCode")&"'"
conn.execute sql
conn.close
response.write "<br><br> 删除大类："&request("LarCode")&"<br><br>"
response.write "<meta http-equiv=refresh content=""1;URL=admin_prod.asp?action=cls"">"
end sub
sub editclass()
'编辑类别
if request("MidCode")<>"" then
sql="select * from ProdClass where MidCode='"&request("MidCode")&"'"
text="MidCode"
else
if request("LarCode")<>"" then
sql="select * from ProdClass where LarCode='"&request("LarCode")&"'"
text="LarCode"
end if
end if
if request("edit")="ok" then
if request("MidCode")<>"" then
conn.execute("update ProdClass set "&text&"='"&request(text)&"' where ClassId="&request("ClassId"))
elseif request("LarCode")<>"" then
conn.execute("update ProdClass set "&text&"='"&request(text)&"' where "&text&"="&request("old"))
end if
conn.close
response.write "<br><br> '"&request("old")&"' 更新为-->'"&request(text)&"'<br><br>"
response.write "<meta http-equiv=refresh content=""2;URL=admin_prod.asp?action=cls"">"
else
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
response.write "<form name=editform action='admin_prod.asp?action=editclass' method=post><INPUT TYPE='text' NAME="&text&" size=20 maxlength=14 value='"&rs(text)&"'>"
response.write "<INPUT TYPE='hidden' name=old value='"&rs(text)&"'> <INPUT TYPE='hidden' name=ClassId value='"&rs("ClassId")&"'><INPUT TYPE='hidden' name=edit value=ok><INPUT TYPE='submit' name=submit value='提交'></form>"
rs.close
set rs=nothing
end if
end sub
sub SearchType()
sql="select distinct ID,LarCode,SearchName,SearchContain from SearchType order by LarCode desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
IF rs.eof and rs.bof then
response.write "<tr><td align=center height=150 colspan=2 class=b><a href=admin_prod.asp?action=SearchTypeAdd>暂时没有搜索分类，请添加</a></td></tr>"
response.end
end if
response.write "<br><TABLE width='98%' border=1 cellpadding=3 style='border-collapse: collapse' bordercolor='#3D5489' align=center><tr><td><b>搜索类别</b></td><td><b> [<font color=yellow>格式长度<255字：AA|BB|CC*|DD</font>带*号前台不可见 ]</b></td><td><b>具体操作</b></td></tr>"
count=rs.RecordCount
for i=1 to count
response.write "<form name=form"&i&" action=admin_prod.asp?action=SearchTypeModify&id="&rs("ID")&" method=post><tr><td align=right>"&rs("SearchName")&"</td><td><input name=SearchContain value="&rs("SearchContain")&" size=60 maxlength=255></td><td class=b><a href='admin_prod.asp?action=searchtypedel&id="&rs("ID")&"' onclick=""{if(confirm('如添加产品后已经建立了搜索关联，请尽量不要删除，采用停用。否则容易出错\n按确定-- 删除！\n按取消-- 不删除！')){return true;}return false;}"">删除</a>|<INPUT TYPE=submit value=修改></td></tr></form>"
rs.movenext
next
response.write "</table><br><a href=admin_prod.asp?action=SearchTypeAdd>添加搜索类别</a>"
rs.close
set rs=nothing
end sub
sub searchtypedel()
conn.execute("delete from SearchType where ID="&cint(request("id")))
response.write "<tr><td align=center height=150 colspan=2 class=b>删除成功！</td></tr>"
response.write "<meta http-equiv=refresh content=""0;url=admin_prod.asp?action=SearchType"">"
end sub
sub SearchTypeModify()
conn.execute("update SearchType set SearchContain='"&request.form("SearchContain")&"' where ID="&request("id"))
response.write "修改成功！"
response.write "<meta http-equiv=refresh content=""0;url=admin_prod.asp?action=SearchType"">"
end sub
sub SearchTypeAdd()
if request("send")="ok" then
dim TypeNo
SearchName=request("SearchName")
SearchContain=request("SearchContain")
sql2="select * from SearchType"
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,1
TypeNo = rs2.RecordCount + 1
if TypeNo< 10 then TypeNo = "0"&TypeNo
set rs2=nothing
sql="INSERT into SearchType (SearchName,SearchContain,TypeNo) VALUES ('"&SearchName&"','"&SearchContain&"','"&TypeNo&"')"
conn.execute sql
response.write "<tr><td align=center height=150 colspan=2 class=b>添加成功</td></tr>"
response.write "<meta http-equiv=refresh content=""1;url=admin_prod.asp?action=SearchType"">"
response.end
end if
response.write "<TABLE width='98%' border=1 cellpadding=3 style='border-collapse: collapse' bordercolor='#3D5489' align=center><form name=form1 action=admin_prod.asp?action=SearchTypeAdd method=post onsubmit='return checkform();'><tr><td >搜索类别</td><td>搜索名：如品牌，厂商<br><input name=SearchName value='' size=15 maxlength=15><br><br>格式：AA|BB|CC 长度小于255个字符<BR><input name=SearchContain value='' size=70 maxlength=255></td></tr>"
response.write "<tr><td></td><td><INPUT TYPE='hidden' name=send value=ok><INPUT TYPE=submit value=添加></td></tr></form></table><br>"
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -