📄 manage.asp

📁 电子商城代码

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%
if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
adminflag()
End if
Select Case Request("action")
	Case "admin_top" : admin_top()
	Case "admin_left" : admin_left()
        case "admin_footer" : admin_footer()
        case else
        main()
End Select
Sub admin_top
sqlc="select * from [56770_orders] where orderzt='0'"
Set rsc=Server.CreateObject("ADODB.RecordSet")
rsc.open sqlc, conn, 1, 1
sqlcc="select * from [56770_orders]"
Set rscc=Server.CreateObject("ADODB.RecordSet")
rscc.open sqlcc, conn, 1, 1
%>
<HTML>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Utf-8">
<link href=css.css rel=STYLESHEET type=text/css>
<script>
function preloadImg(src)
{
	var img=new Image();
	img.src=src
}
preloadImg("images/top_open.gif");

var displayBar=true;
function switchBar(obj)
{
	if (displayBar)
	{
		parent.frame.cols="0,*";
		displayBar=false;
		obj.src="images/top_open.gif";
		obj.title="鎵撳紑宸﹁竟绠＄悊鑿滃崟";
	}
	else{
		parent.frame.cols="180,*";
		displayBar=true;
		obj.src="images/top_close.gif";
		obj.title="鍏抽棴宸﹁竟绠＄悊鑿滃崟";
	}
}
</script>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#FFFFFF">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TR>
    <TD vAlign=top width="100%" bgColor=#BDBFDE>
      <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=0 width=760 border=0>
        <TR>
          <TD width=760 height=60 background="images/top_b.gif">
</TD></TR></TABLE></TD></TR></TABLE>
  <table border="0" cellpadding="0" cellspacing="0" width="100%" height="31" bgcolor="#FFFFFF">
    <tr>
      <td width="15%" height="31" align="left"><img onclick="switchBar(this)" src="images/top_close.gif" title="鍏抽棴宸﹁竟绠＄悊鑿滃崟" style="cursor:hand" align="sbsmiddle"></td><td width="35%" height="31" align="left">&nbsp;&nbsp;灏氭湭澶勭悊璁㈠崟鏁伴噺锛

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -