left.asp
来自「采用ASP。NET做的网上游戏交易平台」· ASP 代码 · 共 74 行
ASP
74 行
<html>
<%
dim currentid
currentid=cint(request.querystring("currentid"))
'session("up"),session("down")控制菜单显示总数
const menu_w=160
const menu_h=25
const menu_c="#91D5F8"
const blank_c="#CBE5F2"
dim menu,menu_str,blank_h
menu=array("登陆个人管理","注册用户管理","交易信息管理","用户提问管理")
childmenu="本站信息统计,退出个人管理*注册用户管理*交易信息管理*用户提问回复"
if session("currentuser")="admin" then
session("up")=0
session("down")=6
else
session("up")=0
session("down")=3
end if
blank_h=280-(session("down")+1)*menu_h
%>
<head>
<style>
a {color:#000000;text-decoration:none}
</style>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../wgcs.css" rel=stylesheet>
</head>
<body leftmargin="2" topmargin="0">
<table width="160" border="0" cellspacing="0" cellpadding="0" height="5">
<tr>
<td bgcolor="#cccccc"></td>
</tr>
</table>
<table width="160" border="0" cellspacing="0" cellpadding="0" height="300">
<tr>
<td>
<%for i=session("up") to session("down")%>
<table width=<%=menu_w%> >
<tr>
<td align="center" height=<%=menu_h%> bgcolor=<%=menu_c%>> <font color="#FFFFFF">‥</font><a href="left.asp?currentid=<%=i%>"><%=menu(i)%></a><font color="#FFFFFF">‥</font></td>
</tr>
</table>
<%
if i=currentid then
dim temparr,arrlen,tempchildarr
temparr=split(childmenu,"*")
tempchildarr=split(temparr(currentid),",")
arrlen=ubound(tempchildarr) '49
%>
<table width=<%=menu_w%> height=<%=blank_h%>>
<tr>
<td align="center" bgcolor=<%=blank_c%>>
<%for j=0 to arrlen%><font color="#FFFFFF" size="2">→</font> <a href="right.asp?strid=<%=cstr(i)&cstr(j)%>" target="right"><%=tempchildarr(j)%></a><br><br><%next%>
</td>
</tr>
</table>
<%
end if%>
<%next%>
</td>
</tr>
</table>
<table width="160" border="0" cellspacing="0" cellpadding="0" height="4">
<tr>
<td bgcolor="#cccccc"></td>
</tr>
</table>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?