📄 pro_class.asp

📁 狼道公司源码下载
💻 ASP
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!--#include file="Check.asp" -->
<!--#include file="../Inc/Conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
.STYLE3 {font-size: 12pt}
.STYLE4 {
	color: #FF0000;
	font-weight: bold;
}
-->
</style>
</head>
<body leftmargin=0 bottommargin=0 rightmargin=0 topmargin=0>
<script src="images/admin.js" type="text/javascript"></script>
<div class=menuskin id=popmenu 
      onmouseover="clearhidemenu();highlightmenu(event,'on')" 
      onmouseout="highlightmenu(event,'off');dynamichide(event)" style="Z-index:100"></div>
<div align=center>
  <!--#include file="Top.asp" -->
  <form name="AddForm" method="post" action="LessonClassSave.asp">
  <table cellpadding="2" cellspacing="1" border="0" width="96%" class="tableBorder" align=center>
<tr>
  <th width="100%" height=25>产品类别维护(类别的中英文名称请写在一起中间必须用"@"隔离开)</th>
</tr>
<tr>
  <td height=23 class=BodyTitle><a href="#" class="STYLE4" onClick="Class1_Add()">新增大类</a></td>
</tr>

<%
Set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Class1 order by OrderID",conn,1,1
AllCount=rs.recordcount
Cou=1
do while not rs.eof
%>
<tr>
  <td height=31 align="center" class="forumRowHighlight"><TABLE width="100%" border="0" align="center" cellpadding="4" cellspacing="0" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" style="border-collapse: collapse">
    <TBODY>
      <TR height=25>
        <TD width="66%" height="25" align="left" class=BodyTitle style="FONT-SIZE: 9pt; FILTER: dropshadow(color=#FFFFFF,offx=1,offy=1); COLOR: #000000;">&nbsp;<%=rs("Title")%></TD>
        <TD width="34%" align="left" class=BodyTitle style="FONT-SIZE: 9pt; FILTER: dropshadow(color=#FFFFFF,offx=1,offy=1); COLOR: #000000;"><span class="BodyTitle" style="FONT-SIZE: 9pt; FILTER: dropshadow(color=#FFFFFF,offx=1,offy=1); COLOR: #000000;">[<a href="#" onClick="Class2_Add('<%=rs("ID")%>')">添加小类</a>]&nbsp; [<a href="#" onClick="Class1_Mod('<%=rs("ID")%>','<%=rs("Title")%>')">修改</a>]&nbsp; [<a href="Class1_OK.asp?ID=<%=rs("ID")%>&act=del" onClick="Ask()">删除</a>]
            <%
		if Cou<>1 and AllCount>1 then
		%>
&nbsp; [<a href="Class1_OK.asp?ID=<%=rs("ID")%>&act=order1&OrderID=<%=rs("OrderID")%>">前移</a>]
<%
		end if
		if Cint(Cou)<Cint(AllCount) and Cint(AllCount)>1 then
		%>
&nbsp; [<a href="Class1_OK.asp?ID=<%=rs("ID")%>&act=order2&OrderID=<%=rs("OrderID")%>">后移</a>]
<%end if%>
        </span></TD>
      </TR>
      <TR height="20">
        <TD colspan="2" align="center"><table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <%
		  Set Crs=server.CreateObject("adodb.recordset")
		  Crs.open "select * from Class2 where ClassID1="&Rs("ID")&" order by OrderID",Conn,1,1
	      AllCount1=Crs.recordcount
	      Cou1=1	
		  TrCou=0	  
		  do while not Crs.eof
		  if TrCou mod 2=0 and TrCou<>0 then Response.Write("<tr>")
		  %>
              <td width="50%"><table width="100%" border="0">
                  <tr>
                    <td width="4%" align="center"><span class="STYLE3">&#8226;</span></td>
                    <td><%=Crs("Title")%>&nbsp;[<a href="#" onClick="Class2_Mod('<%=Crs("ID")%>','<%=Crs("Title")%>')">修改</a>]&nbsp; [<a href="Class2_OK.asp?ID=<%=Crs("ID")%>&act=del&ClassID1=<%=rs("ID")%>" onClick="Ask()">删除</a>]
                      <%
		if Cou1<>1 and AllCount1>1 then
		%>
&nbsp; [<a href="Class2_OK.asp?ID=<%=Crs("ID")%>&act=order1&OrderID=<%=Crs("OrderID")%>&ClassID1=<%=rs("ID")%>">前移</a>]
<%
		end if
		if Cint(Cou1)<Cint(AllCount1) and Cint(AllCount1)>1 then
		%>
&nbsp; [<a href="Class2_OK.asp?ID=<%=Crs("ID")%>&act=order2&OrderID=<%=Crs("OrderID")%>&ClassID1=<%=rs("ID")%>">后移</a>]
<%end if%></td>
                    </tr>
              </table></td>
              <%
		 Cou1=Cou1+1
		 TrCou=TrCou+1
		 Crs.movenext
		 loop
		 Crs.close
		 set Crs=nothing
		 %>
            </tr>
        </table></td>
      </TR>
    </TABLE></td>
</tr>
      <%
	  cou=cou+1
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set rs=nothing
%>
</table>
  </form>
  <BR>
<BR>
</div>
</body></html>
  <script language="vbscript">
sub ask()
  if not confirm("你确定要删除吗？") then
    window.event.returnvalue=false
	exit sub
  end if
end sub

sub Class1_Mod(ID,Title)
  dim NewPro
  NewPro=inputbox("请输入您要修改的名称：","修改大类",Title)
  if Trim(NewPro)<>Trim(Title) and trim(NewPro)<>"" then
     window.location="Class1_OK.asp?ID="&ID&"&Title="&NewPro&"&act=mod"
  end if
end sub

sub Class1_Add()
  dim NewPro
  NewPro=inputbox("请输入您要添加的大类名称：","新增大类","")
  if trim(NewPro)<>"" then
     window.location="Class1_OK.asp?Title="&NewPro&"&act=add"
  end if
end sub

sub Class2_Add(ClassID1)
  dim NewCity
  NewCity=inputbox("请输入您要添加的小类的名称：","新增小类","")
  if trim(NewCity)<>"" then
     window.location="Class2_OK.asp?Title="&NewCity&"&act=add&ClassID1="&ClassID1
  end if
end sub

sub Class2_Mod(ID,Title)
  dim NewPro
  NewPro=inputbox("请输入您要修改的名称：","修改大类",Title)
  if Trim(NewPro)<>Trim(Title) and trim(NewPro)<>"" then
     window.location="Class2_OK.asp?ID="&ID&"&Title="&NewPro&"&act=mod"
  end if
end sub
</script>
⌨️ 快捷键说明

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