www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/typeadmin.asp
<html>
<head>
<title>管理中心 -共享世纪新闻文章管理系统</title>
<meta copy="WWW.2KY.CN 共享世纪">
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<!--#include file="top.asp"-->
<!--#include file="check.asp"-->
<!--#include file="mdb_path_user.asp"-->
<%
'==========================================
'
' 晓宇听幽新闻文章管理系统 2004
'
' 主页地址：http://www.xoYu.com
'
'==========================================
'程序名称：晓宇听幽新闻文章管理系统
'英文名称：xoYu News 2004 Professional
'程序创建时间：2003-7-10
'程序完成时间：2003-9-11
'最后修改时间：2003-10-10
'==========================================
user=Request.cookies("xoYuStudioUserName")
if xoYuStudioAdminDj=0 then SF="普通会员"
if xoYuStudioAdminDj=1 then SF="认证会员"
if xoYuStudioAdminDj=2 then SF="栏目管理员"
if xoYuStudioAdminDj=3 then SF="系统管理员"
if xoYuStudioAdminDj=4 then SF="超级管理员"
if user<>"" then
user=replace(user," ","+++ close")
else
response.write("<li>您没有进入本页面的权限,本次操作已被记录!<br><li>如果你是本站会员请先<a href=login.asp target=_top>登陆</a>后进入.")
response.end
end if
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from UserInfo where user='"&user&"'",conn,1,2
if rs.eof then
xoYuStudioMsg="错误:"&user&"用户资料读取错误,请重新登陆!"
else
face=rs("face")
email=rs("email")
oicq=rs("oicq")
homepage=rs("homepage")
sex=rs("sex")
face=rs("face")
qm=rs("qm")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<th width="100%" class="tableHeaderText" colspan=2 height=25>文章栏目管理
</th>
</tr>
<tr>
<td width="100%" class=forumHeaderBackgroundAlternate colspan=2 height=25>欢迎用户<%=xoYuStudioAdminName%>登陆
晓宇听幽后台进行管理
<a href="edit.asp">(修改用户的资料)</a></td>
</tr>
<tr>
<td class="forumrow" colspan=2>
<table border="0" width="100%" height="104">
<tr>
<td width="26%" height="100" valign="middle">
<p align="center"><img border="0" src="images/admin.jpg"></td>
<td width="74%" height="100" valign="middle">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="83">
<tr>
<td width="100%" height="20">用户等级：<%=SF%></td>
</tr>
<tr>
<td width="100%" height="21">用户名：<%=xoYuStudioAdminName%></td>
</tr>
<tr>
<td width="100%" height="21">E-mail：<%=email%></td>
</tr>
<tr>
<td width="100%" height="21">QQ：<%=oicq%></td>
</tr>
<tr>
<td width="100%" height="21">个人主页：<%=homepage%></td>
</tr>
<tr>
<td width="100%" height="21">性别：<%=sex%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" class=forumHeaderBackgroundAlternate colspan=2 height=25>用户栏目管理
</td>
</tr>
<tr>
<td width="100%"colspan=2 height=25>
<%
if xoYuStudioAdminDj=2 then
types=split(xoYuType,",")
s=ubound(types)
for k=0 to s
typel=typel&"<a href=""html_listLB.asp?id="&types(""&k&"")&""">管理目录察看("&k+1&")</a><br>"
next
%>
<%=typel%>
<% else
thistype="<a class=xoYuNewsSort href=html_listLB.asp>进入文章管理页面</b></a>"
%>
<%=thistype%>
<% end if %>
</td>
</tr>
</table>
</td>
</tr>