📄 usercontrolpad.asp

📁 三鸟个人网站源码。

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/function.asp"-->
<%
if CheckUserLogined()=False then
	response.Redirect "UserLogin.asp"
end if
dim Action
Action=trim(request("Action"))
response.write "<html><head><title>3鸟设社管理系统--用户控制面板</title></head>" & vbcrlf
response.write "<frameset id='frame' framespacing='0' border='false' cols='180,*' frameborder='1' scrolling='yes'>" & vbcrlf
response.write "	<frame name='left' scrolling='auto' marginwidth='0' marginheight='0' src='User_Left.asp'>" & vbcrlf
response.write "	<frameset framespacing='0' border='false' rows='35,*' frameborder='0' scrolling='yes'>" & vbcrlf
response.write "		<frame name='top' scrolling='no' src='User_Top.asp'>" & vbcrlf
response.write "		<frame name='main' scrolling='auto' src='"
if Action="ArticleAdd" then
	response.write "UserArticleAdd.asp"
elseif Action="ArticleManage" then
	response.write "UserArticleManage.asp"
elseif Action="ModifyPwd" then
	response.write "UserModifyPwd.asp"
elseif Action="ModifyInfo" then
	response.write "UserModifyInfo.asp"
else
	response.write "UserArticleManage.asp"
end if
response.write "'>" & vbcrlf
response.write "	</frameset>" & vbcrlf
response.write "</frameset>" & vbcrlf
response.write "<noframes><body><p>你的浏览器版本过低！！！本系统要求IE5及以上版本才能使用本系统。</p></body></noframes>" & vbcrlf
response.write "</html>"
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -