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 + -
显示快捷键?