📄 admin_class_ok.asp

📁 全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述：软件名称：全球商务网站系统当前版本：V1.0 最新版本：V1.1 运行环境：WINNT+（IIS）
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ codepage ="936" %>
<%
if Request.Cookies("globalec")("globalecmaster")="" or Request.Cookies("globalec")("masterflag")="" then
response.write "<script language='javascript'>"
response.write"this.location.href='../login.asp';</SCRIPT>" 
response.end
end if
if instr(Request.Cookies("globalec")("masterflag"),"91")=0 then
response.redirect "../err.asp"
response.end
end if
%>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/style.css" rel=stylesheet type=text/css>
</head>
<%
dim body
call main()
rs1.close
set rs1=nothing
set rs=nothing
conn.close
set conn=nothing
sub main()
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0"  align=center class="tableBorder"> 
  <tr> 
     <th height=25 colspan="2" class="tableHeaderText">网站行业类别管理 </th> 
  </tr> 
  <tr> 
     <td colspan="2" class="forumRowHighlight"><p><B>注意</B>：<BR> 
         <font color="blue">①类别直接与发布的信息相关联，删除类别可能会影响到会员发布的供求商机信息。<br>
		 ②点击类别名称进入相应下级分类，点击相应的分类操作属性进行相应操作。</font><br>
		 <font color="blue">③如果改变了网站行业分类，一定要重新<a href="makeallclass.asp"><font color="red"><b>生成行业分类JS文件</b></font></a>。</font><br>
		 <font color="red">④如：要添加三级分类——>先点击大类进入二级类——>点击二级类进入三级类——>添加三级类别</font>
[<a href="sort.asp">返回大类</a>]    </td> 
  </tr> 
</table>
<br>
<%
if request("action") ="add_class_1" then 
call add_class_1()
elseif request("action")="add_class_1_ok" then
call add_class_1_ok()

elseif request("action")="add_class_2" then
call add_class_2()
elseif request("action")="add_class_2_ok" then
call add_class_2_ok()

elseif request("action")="add_class_3" then
call add_class_3()
elseif request("action")="add_class_3_ok" then
call add_class_3_ok()

elseif request("action")="edit_class_1" then
call edit_class_1()
elseif request("action")="edit_class_2" then
call edit_class_2()
elseif request("action")="edit_class_3" then
call edit_class_3()

elseif request("action")="savedit_1" then
call savedit_1()
elseif request("action")="savedit_2" then
call savedit_2()
elseif request("action")="savedit_3" then
call savedit_3()

elseif request("action")="del_class_1" then
call del_class_1()
elseif request("action")="del_class_2" then
call del_class_2()
elseif request("action")="del_class_3" then
call del_class_3()

else
call linkinfo()
end if
%>
<%
end sub
sub add_class_1()
%>
<TABLE width=100% border="0" align="center" cellPadding=3 cellSpacing=1 class="tableBorder">
    <FORM name=FORM1 onsubmit="return FORM1_onsubmit()" action=admin_class_ok.asp?action=add_class_1_ok method=post>
<TR> 
      <Th colSpan=2 height="25" class="tableHeaderText">添加行业一级类别</Th> 
    </TR>
<TR>
<TD width=40% height=25 class="forumRowHighlight" align=center><b>行业一级类别名称</b></TD>
<TD width=60% height=25 class="forumRowHighlight"><INPUT maxLength=16 size=40 name=class_name></TD>
</TR>
<TR>
<TD colSpan=2 height="27" align=center class="forumRowHighlight">
<INPUT type=submit value='确 定 添 加' name=Submit2>
</TD>
</TR>
</FORM>
</TABLE>
<SCRIPT language=javascript>
function FORM1_onsubmit()
{
if(document.FORM1.class_name.value.length<1)
{
alert("您必须输入大类名称!");
document.FORM1.class_name.focus();
return false;
}
}
</SCRIPT>
<%
end sub
sub add_class_2()
%>
<TABLE width=100% border="0" align="center" cellPadding=3 cellSpacing=1 class="tableBorder">
    <FORM name=FORM1 onsubmit="return FORM1_onsubmit()" action=admin_class_ok.asp?action=add_class_2_ok method=post>
<TR> 
      <Th colSpan=2 height="25" class="tableHeaderText">添加行业二级类别</Th> 
    </TR>
<TD width=40% height=25 class="forumRowHighlight" align=center><b>所属行业一级分类</b></TD>
<TD width=60% height=25 class="forumRowHighlight"><select name="class_1_id"> 
<%
sqlsort="select * from Class_1 where sortid="&request("sortid")&""
set rssort=conn.execute(sqlsort) 
response.write"<OPTION value='"&rssort("sortid")&"' selected>"&rssort("sort")&"</OPTION>"
%> 
<%
set rsc=conn.execute("select * from class_1")
do while not rsc.eof
response.write "<option value='"&rsc("sortid")&"'>"&rsc("sort")&"</option>"&chr(13)+chr(10)
rsc.movenext
loop
rsc.close
%>
</select></TD>
</TR>
<TR>
<TD width=40% height=25 class="forumRowHighlight" align=center><b>行业二级分类名称</b></TD>
<TD width=60% height=25 class="forumRowHighlight"><input type="text" name="class_2_name" size="40"></TD>
</TR>
<TR>
<TD colSpan=2 height="27" align="center" class="forumRowHighlight"> <INPUT type=submit size=3 value='确 定 添 加' name=Submit2></TD>
</TR>
</form>
</TABLE> 　
<SCRIPT language=javascript>
function FORM1_onsubmit()
{
if(document.FORM1.class_2_name.value.length<1)
{
alert("您必须输入二级分类名称!");
document.FORM1.class_2_name.focus();
return false;
}
}
</SCRIPT>
<%
end sub
sub add_class_2_ok()
set rs=server.createobject("adodb.recordset")
sqltext="select * from Class_2 where typename='"&request.form("class_2_name")&"' and sortid=" & request.form("class_1_id")&""
rs.open sqltext,conn,1,1
'查找数据库，检查二级分类是否已经存在
if rs.recordcount >= 1 then 
if rs("typename")=Lcase(request.form("class_2_name")) then
response.write "<script language='javascript'>"
response.write "alert('此二级分类已经存在，请选用其它名称!');"
response.write"javascript:history.back(-1)</SCRIPT>"
response.end
rs.close
end if
else
set rs=server.createobject("adodb.recordset")
sqltext="select * from Class_2"
rs.open sqltext,conn,3,3
'添加一个二级分类到数据库
rs.addnew
rs("typename")=Replace_Text(request.form("class_2_name"))
rs("sortid")=request.form("class_1_id")
rs.update
response.redirect "type.asp?sortid="&request.form("class_1_id")&""
end if
end sub
sub add_class_3()
%>
<script language = "JavaScript"> 
sall=new Array();
<%
Dim i
i=0
set rsc2=conn.execute("select * from class_2")
do while not rsc2.eof
%>
sall[<%=i%>]=new Array("<%=rsc2("typename")%>","<%=rsc2("sortid")%>","<%=rsc2("typeid")%>");
<%
i=i+1
rsc2.movenext
loop
rsc2.close
%>
function changeselect(selvalue)  
   { 
      document.FORM1.class_2_typeid.length=0;  
      var selvalue=selvalue;
      var i;
      for(i=0;i<sall.length;i++) 
	{
	    if(sall[i][1]==selvalue) 
      		{
  	var newOption1=new Option(sall[i][0],sall[i][2]);
	document.all.class_2_typeid.add(newOption1);
		}
	}
}
</script>
<TABLE width=100% border="0" align="center" cellPadding=3 cellSpacing=1 class="tableBorder">
    <FORM name=FORM1 onsubmit="return FORM1_onsubmit()" action=admin_class_ok.asp?action=add_class_3_ok method=post>
<TR> 
      <Th colSpan=2 height="25" class="tableHeaderText">添加行业三级类别</Th> 
    </TR>
<TD width=40% height=25 class="forumRowHighlight" align=center><b>所属行业一级及二级分类</b></TD>
<TD width=60% height=25 class="forumRowHighlight"><select name="class_1_id" onChange="changeselect(document.FORM1.class_1_id.options[document.FORM1.class_1_id.selectedIndex].value)" size="1"> 
<%
sqlsort="select * from Class_1 where sortid="&request("sortid")&""
set rssort=conn.execute(sqlsort) 
response.write"<OPTION value='"&rssort("sortid")&"' selected>"&rssort("sort")&"</OPTION>"
%> 
<%
set rsc=conn.execute("select * from class_1")
do while not rsc.eof
response.write "<option value='"&rsc("sortid")&"'>"&rsc("sort")&"</option>"&chr(13)+chr(10)
rsc.movenext
loop
rsc.close
%>
</select> 
<select name="class_2_typeid"> 
<%
sqltype="select * from Class_2 where typeid="&request("typeid")&""
set rstype=conn.execute(sqltype) 
response.write"<OPTION selected value="&rstype("typeid")&">"&rstype("typename")&"</OPTION>"
%> 
</select></TD>
</TR>
<TR>
<TD width=40% height=25 class="forumRowHighlight" align=center><b>行业三级分类名称</b></TD>
<TD width=60% height=25 class="forumRowHighlight"><input type="text" name="class_3_name" size="40"></TD>
</TR>
<TR>
<TD colSpan=2 height="27" align="center" class="forumRowHighlight"> <INPUT type=submit size=3 value='确 定 添 加' name=Submit2></TD>
</TR>
</form>
</TABLE> 　
<SCRIPT language=javascript>
function FORM1_onsubmit()
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -