user_top.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 82 行

ASP
82 行
字号 
<%@ LANGUAGE = VBScript CodePage = 936%>
<!--#include file="conn.asp"-->
<!--#include file="inc/class_sys.asp"-->
<!--#include file="inc/md5.asp"-->
<!-- #include file="API/Class_API.asp" -->
<%
Dim t,tName,nowurl,cssfile,actiontype,url

url=request.QueryString("url")
t=Request("t")
actiontype=request("actiontype")
nowurl=lcase(Request.ServerVariables("PATH_INFO"))
dim oblog,uurl
set oblog=new class_sys
oblog.start

G_P_PerMax=20
'退出系统
If request("t")="logout" Then

    If API_Enable Then 
		oblog.CheckUserLogined
		Dim strUrl,j
		For j=0 To UBound(aUrls)
			strUrl=Lcase(aUrls(j))
			If Left(strUrl,7)="http://" Then
				response.write("<script language=JavaScript src="""&strUrl&"?syskey="&MD5(oblog.l_uName&oblog_Key)&"&username="&oblog.l_uName&"&password=""></script>")&vbcrlf
			End If
		Next
	End If 

	If cookies_domain <> "" Then
        response.Cookies(cookies_name).domain = cookies_domain
    End If
	Response.Cookies(cookies_name)("username")=oblog.CodeCookie("")
	Response.Cookies(cookies_name)("password")=oblog.CodeCookie("")
	Response.Cookies(cookies_name)("userurl")=oblog.CodeCookie("")
	If API_Enable Then
		response.write "<script language=JavaScript>setTimeout(""window.location='index.asp'"",1000);</script>"
	Else 
		if request("re")="1" then
			response.Write("<script language=JavaScript>top.location='"&oblog.comeurl&"';</script>")
		else
			response.Write("<script language=JavaScript>top.location='index.asp';</script>")
		End If
	End if
	Set oBlog=Nothing
	response.End()
End If

Select Case t
    Case 0, ""
    	t = 0
        tName = "日志"
    Case 1
        tName = "相册"
    Case 2
        tName = "通讯录"
    Case 3
        tName = "订阅"
    Case Else
        t = 0
        tName = "日志"
End Select
if not oblog.checkuserlogined() then
	response.Redirect("login.asp?fromurl="&replace(oblog.GetUrl,"&","$"))
else
	if oblog.l_ulevel=6 then
		oblog.adderrstr("您未通过管理员审核，不能进入后台")
		oblog.showerr
	end if
end if
'服务器端控制禁止页面单独出现
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=oblog.l_uname%>-用户管理后台</title>
<link rel="stylesheet" href="oBlogStyle/style.css" type="text/css" />
<script src="inc/main.js" type="text/javascript"></script>
<script src="oBlogStyle/menu.js" type="text/javascript"></script>

user_top.asp - 源码说明

本页面展示了「是个不错的文件代码,希望大家好好用,」中的 user_top.asp 源码文件，采用 ASP 编程语言编写，共 82 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与代码相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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