📄 sysadmin_class.asp

📁 ASP网页
💻 ASP
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--
	scrollbar-face-color:#31615a;scrollbar-highlight-color:#31615a;
	scrollbar-arrow-color:#fefefe;scrollbar-track-color:#efefef;
	scrollbar-shadow-color:#31615a;scrollbar-darkshadow-color:#31615a;
	scrollbar-base-color:#31615a
-->
<style type=text/css>
<!--
body{font-size: 12px; color: #000; font-family: 宋体;}
td,p,input,select,body {font-size:12px;}

.t1 {font:12px 宋体;color=000000} 
.t2 {font:12px 宋体;color:ffffff} 
.bt1 {font:14px 宋体;color=000000} 
.bt2 {font:14px 宋体;color:ffffff} 

A:link {color: #000077}
A:visited {color: #000077}
A:hover {color: #ff0000}

A.r1:link {font:13px;text-decoration:none;color: #000000}
A.r1:visited {font-size:13px;text-decoration:none;color: #000000}
A.r1:hover {font-size:13px;text-decoration:underline;color: #ff6600}
-->
</style>
<script language="Javascript">
	var Obj;
	var imgOpen = new Image()
	var imgClose = new Image()
	imgOpen.src="open.gif"
	imgClose.src="close.gif"
	
	function expand(el)
	{
		Obj = eval("child"+el)
		var whichEl = (event) ? event.srcElement : false
		if(!whichEl.name) whichEl = eval("document.all.img" + el)
	
		if(Obj.style.display == "none")
			{
			Obj.style.display = "block"
			whichEl.src = imgOpen.src
			}
		else
			{
			Obj.style.display = "none"
			whichEl.src = imgClose.src
			}
	}

	function switchbar()
	{
		if (switchpoint.innerText==3)
			{
			switchpoint.innerText=4
			document.all("xxx").style.display="none" 
			top.content.cols="10,*"
			}
		else
			{
			switchpoint.innerText=3
			document.all("xxx").style.display="" 
			top.content.cols="180,*"
			}	
	}
</script>

<body leftmargin=0 topmargin=0>
<%
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")

if Session("mylogin")="11" then
	myip=Request.ServerVariables("Remote_HOST")
	mydate=year(now())&"-"&month(now())&"-"&day(now())
	mytime=time()

	sqltext="update syswork set count=count+1 where code='101'"
	cn.execute(sqltext)
	
	sqltext="insert into webcount (ipaddress,logindate,logintime) values ('"&myip&"','"&mydate&"','"&mytime&"')"
	cn.Execute (sqltext)
	Session("mylogin")="1"
end if
i=1
sqltext="select classcode,classname from product_class where parentcode='0' order by sortnum"
rs.Open sqltext,cn,1,1
if rs.RecordCount>22 then
	tablewith=142
else
	tablewith=158
end if

%>
<body topmargin=0 marginheight=0 leftmargin=0 marginwidth=0 bgcolor=#ffffff>
<table width="<%=tablewith%>" height="100%" border="0" cellspacing="0" cellpadding="0" align="center" background="admin_back.jpg" style="background-position:bottom;background-repeat:no-repeat">
  <tr><td height=3></td></tr>	
  <tr>
	<td width="10%"></td><td valign=top> 
     <%
		do while not rs.EOF
     %>
      <div id=parent<%=i%> class=parent style="display='block'">
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height=18>
		<tr><td width=20><a class=r1 href="#" onclick="expand(<%=i%>);return false;"><img name="img<%=i%>" src="close.gif" border=0></a></td>
		<td><a class=r1 href="#" onclick="expand(<%=i%>);return false;"><%=trim(rs(1))%></a></td></tr>
      </table>
      </div>
		<div id=child<%=i%> class=child style="display='none'">
			<table width=100%>
     <%
			sqltext="select classcode,classname from product_class where parentcode='"+rs(0)+"' order by sortnum"
			rs2.Open sqltext,cn,1,1
			do while not rs2.EOF
	 %>		
				<tr><td width=18>&nbsp;</td><td><a href="../product/product_admin.asp?classcode=<%=trim(rs2(0))%>" target=main><%=trim(rs2(1))%></a></td></tr>
	 <%		
				rs2.MoveNext
			loop
			rs2.Close
	 %>
			</table>
		</div>	
	 <%		
			i=i+1
			rs.MoveNext		
		loop	
     %>
    </td>
  </tr>
</table>
</body>
</html>

<script language="Javascript">
</script>
⌨️ 快捷键说明

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