usercontrolpad.asp

来自「三鸟个人网站源码。」· ASP 代码 · 共 34 行

ASP
34
字号
<%@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 + =
减小字号Ctrl + -
显示快捷键?