📄 fi.asp

📁 矮子多用户版客户管理系统2.0Bate2
💻 ASP
字号:
<!--#include file="conn.asp" --> 
<%
dim filename,download
mclass=request("mclass")
sclass=request("sclass")
filename="index.asp"
dim msearchword
msearchword=Request("search")
vestid=Request("id")
   if not isempty(request("page")) then
 currentPage=cint(request("page"))
   else
 currentPage=1
   end if
if mclass="" then
mclass="1"
end if
%>
<html>
<head>
<title>管理员页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
a:link {  text-decoration: none}
body {  font-size: 10.5pt}
table {  font-size: 10.5pt}
a:active {  text-decoration: none}
a:hover {  text-decoration: none}
a:visited {  text-decoration: none}
-->
</style>
<base target="mainFrame">
</head>
<body bgcolor="#333333" link="#FFFFFF" text="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF"><%
sql="select * from mclass  where mclass_id="&session("dd")&"" 
set rs=server.createobject("adodb.recordset")
rs.Open sql,conn,1,3
if not rs.EOF then
allcust=rs("allcust")
rs.close
set rs=nothing
end if
%>
<p align="center"><font color="#FFFFFF" size="2"><%if session("ming")="未填" then
response.write session("name")
 else
 response.write session("ming")
end if%>,你好！</font></p><p align=center>
<a target="mainFrame" href="admin.asp"><font size="2">系统首页</font></a><font size="2">
</font>
<p align=center>
<font color="#FFFFCC"><font size="2">客户分类 </font>
<hr size="1">
<p align="center"><a href="userlist.asp?mclass=<%=session("dd")%>&s=1">
<font size="2" color="#FF6600"><%=allcust%></font></a><font size="2"><br><%
   
		set folderrs=server.createobject("adodb.recordset")  
		foldersql="select * from sclass where vest="&session("dd")&" order by paixu asc;"
		folderrs.open foldersql,conn,1,1 
  do while not folderrs.EOF 
   Response.Write " <font color=#ffd078><a  target=mainFrame href=userlist.asp?mclass="&session("dd")&"&sclass="&folderrs("sclass_id")&">"&folderrs("sclass_folder")&"</font></a><br>"
folderrs.movenext
loop
folderrs.close
set folderrs=nothing
  %><br>
</font>
<hr size="1">
<p align="center">
<a target="mainFrame" href="all_userlist.asp?mclass=<%=session("dd")%>">
<font color="#FF6600" size="2">所有联系人</font></a><font size="2">
<%if session("quanxian")>=2 then%></font></p>
<p align=center>
<A target="mainFrame" HREF="step2.asp?mclass=<%=session("dd")%>">
<font color="#FFCC00" size="2">添加客户</font></A><font size="2">
<%end if%><br>
</font><a target="mainFrame" href="reg.asp"><font size="2">个人资料</font></a><font size="2">
<%if session("quanxian")=3 then%>
<br>
<A HREF="gtitle.asp" target="mainFrame">分类管理</A></span>
<br>
<a target="mainFrame" href="system_userlist.asp?mclass=<%=session("dd")%>">用户管理</a></span>
<br>
<a target="mainFrame" href="system.asp?mclass=<%=session("dd")%>">系统管理</a></span>
<br>
<a href="bug.asp">错误报告</a></span><%end if%>
<%if session("super")="1" then%><br>
<a target="_top" href="admin/guanli.asp"><font color="#FF6600">超级管理</font></a><%end if%>
<br>
<a  target="_top" href="loginout.asp">退出管理</a>
</font>
</font>
<p align="center"><font size="2">Ver2.0Bate</font></p>
</body>
</html>
⌨️ 快捷键说明

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