admin_class_ok.asp

全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述： 软件名称：全球商务网站系统 当前版本：V1.0 最新版本：V1.1 运行环境：WINNT+（IIS）

{
if(document.FORM1.class_3_name.value.length<1)
{
alert("您必须输入三级分类名称!");
document.FORM1.class_3_name.focus();
return false;
}
}
</SCRIPT>
<%
end sub
sub add_class_3_ok()
set rs=server.createobject("adodb.recordset")
sqltext="select * from Class_3 where typename_2='"&request.form("class_3_name")&"' and sortid=" & request.form("class_1_id")&" and typeid=" & request.form("class_2_typeid")&""
rs.open sqltext,conn,1,1
'查找数据库，检查二级分类是否已经存在
if rs.recordcount >= 1 then 
if rs("typename_2")=Lcase(request.form("class_3_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_3"
rs.open sqltext,conn,3,3
'添加一个三级分类到数据库
rs.addnew
rs("typename_2")=Replace_Text(request.form("class_3_name"))
rs("sortid")=request.form("class_1_id")
rs("typeid")=Replace_Text(request.form("class_2_typeid"))
rs.update
response.redirect "type_2.asp?typeid="&request.form("class_2_typeid")&""
end if
end sub
sub edit_class_1()
set rs=server.createobject("adodb.recordset")
sqltext="select * from Class_1 where sortid="+Cstr(request("id"))
rs.open sqltext,conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
<form name=FORM1 action="Admin_Class_Ok.asp?action=savedit_1" method=post>
<input type=hidden name=id value="<%=Cstr(request("id"))%>">
<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%" class="forumRowHighlight"> 
<input type="text" name="class_1_name" size='25' value=<%=rs("sort")%>>
</td>
</tr>
<tr> 
<td height="30" colspan="2" class="forumRowHighlight" align="center"> 
<input type="submit" name="Submit" value="确 定 修 改">
</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>
<%
rs.close
set rs=nothing
end sub
sub edit_class_2()
set rs=server.createobject("adodb.recordset")
sqltext="select * from Class_2 where typeid="+Cstr(request("id"))
rs.open sqltext,conn,1,1
set rs2=server.createobject("adodb.recordset")
sqltext2="select * from Class_1 where sortid="+Cstr(rs("sortid"))
rs2.open sqltext2,conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
    <form name=form1 action=Admin_Class_Ok.asp?action=savedit_2 method=post>
<input type=hidden name=id value=<%=Cstr(request("id"))%>>
<input type=hidden name=sortid value=<%=Cstr(request("sortid"))%>>
<TR> 
      <Th colSpan=2 height="25" class="tableHeaderText">行业二级类别修改</Th> 
    </TR>
<tr> 
<td width="40%" class="forumRowHighlight" align=center><b>所属一级分类</b></td>
<td width="60%" class="forumRowHighlight"><select name="forum_setting" id="forum_setting" disabled=true>
	<option value="0"><%=rs2("sort")%> 
	</select></td>
</tr>
<tr> 
<td width="40%" class="forumRowHighlight" align=center><b>二级分类名称</b></td>
<td width="60%"> 
<input type="text" name="class_2_name" size='40' value=<%=rs("typename")%>>
</td>
</tr>
<tr> 
<td height="30" colspan="2" class="forumRowHighlight" align="center">
<input type="submit" name="Submit" value="确 定 修 改">
</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>
<%
rs.close
rs2.close
set rs=nothing
set rs2=nothing
end sub
sub edit_class_3()
set rs=server.createobject("adodb.recordset")
sqltext="select * from Class_3 where typeid_2="+Cstr(request("id"))
rs.open sqltext,conn,1,1
set rs2=server.createobject("adodb.recordset")
sqltext2="select * from Class_2 where typeid="+Cstr(rs("typeid"))
rs2.open sqltext2,conn,1,1
set rs3=server.createobject("adodb.recordset")
sqltext3="select * from Class_1 where sortid="+Cstr(rs2("sortid"))
rs3.open sqltext3,conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">
    <form name=form1 action=Admin_Class_Ok.asp?action=savedit_3 method=post>
<input type=hidden name=id value=<%=Cstr(request("id"))%>>
<input type=hidden name=typeid value=<%=Cstr(request("typeid"))%>>
<TR> 
      <Th colSpan=2 height="25" class="tableHeaderText">行业三级类别修改</Th> 
    </TR>
<tr> 
<td width="40%" class="forumRowHighlight" align=center><b>所属一级及二级分类</b></td>
<td width="60%" class="forumRowHighlight"><select name="sort" id="sort" disabled=true>
	<option value="0"><%=rs3("sort")%> 
	</select> <select name="typename" id="typename" disabled=true>
	<option value="0"><%=rs2("typename")%> 
	</select></td>
</tr>
<tr> 
<td width="40%" class="forumRowHighlight" align=center><b>三级分类名称</b></td>
<td width="60%"> 
<input type="text" name="class_3_name" size='40' value=<%=rs("typename_2")%>>
</td>
</tr>
<tr> 
<td height="30" colspan="2" class="forumRowHighlight" align="center">
<input type="submit" name="Submit" value="确 定 修 改">
</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>
<%
rs.close
rs2.close
rs3.close
set rs=nothing
set rs2=nothing
set rs3=nothing
end sub
sub savedit_1()
set rs= server.createobject ("adodb.recordset")
sql ="select * from class_1 where sortid="+Cstr(request("id"))
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
body=body+"<br>"+"错误，数据库操作错误，没有找到此条信息。"
else
rs("sort")=Trim(Request.Form ("class_1_name"))
rs.Update
end if 
response.redirect "sort.asp"
end sub
sub savedit_2()
set rs= server.createobject ("adodb.recordset")
sql ="select * from class_2 where typeid="+Cstr(request("id"))
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
body=body+"<br>"+"错误，数据库操作错误，没有找到此条信息"
else
rs("typename")=Trim(Request.Form ("class_2_name"))
rs.Update
end if 
response.redirect "type.asp?sortid="&request("sortid")&""
end sub
sub savedit_3()
set rs= server.createobject ("adodb.recordset")
sql ="select * from class_3 where typeid_2="+Cstr(request("id"))
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
body=body+"<br>"+"错误，数据库操作错误，没有找到此条信息"
else
rs("typename_2")=Trim(Request.Form ("class_3_name"))
rs.Update
end if 
response.redirect "type_2.asp?typeid="&request("typeid")&""
end sub
sub del_class_1()
conn.execute("delete from [class_1] where sortid="+Cstr(request("id")))
conn.execute("delete from [class_2] where sortid="+Cstr(request("id")))
conn.execute("delete from [class_3] where sortid="+Cstr(request("id")))
response.redirect "sort.asp"
end sub
sub del_class_2()
conn.execute("delete from [class_2] where typeid="+Cstr(request("id")))
conn.execute("delete from [class_3] where typeid="+Cstr(request("id")))
response.redirect "type.asp?sortid="&request("sortid")&""
end sub
sub del_class_3()
conn.execute("delete from [class_3] where typeid_2="+Cstr(request("id")))
response.redirect "type_2.asp?typeid="&request("typeid")&""
end sub
sub add_class_1_ok()
set rs=server.createobject("adodb.recordset")
sqltext="select * from Class_1 where sort='"&request.form("class_name")&"'"
rs.open sqltext,conn,1,1
'查找数据库，检查大类是否已经存在
if rs.recordcount >= 1 then 
if rs("Class_1_name")=Replace_Text(request.form("class_name")) then
response.write "<script language='javascript'>"
response.write "alert('此类别已经存在，请选用其它名称！');"
response.write"javascript:history.back(-1)</SCRIPT>"
response.end
end if
else
set rs=server.createobject("adodb.recordset")
sqltext="select * from Class_1"
rs.open sqltext,conn,3,3
rs.addnew
rs("sort")=request.form("class_name")
rs.update
response.redirect "sort.asp"
end if
end sub
%>
<br>
<!--#include file="../copy.asp" -->