📄 user_controlpad.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/Conn_User.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/func.asp"-->
<%
if CheckUserLogined()=False then
response.Redirect "User_Login.asp"
end if
dim Action
Action=trim(request("Action"))
response.write "<html><head><title>用户控制面板</title></head>" & vbcrlf &_
"<frameset rows='60,*' framespacing='0' frameborder='1' border='false' scrolling='yes'>" & vbcrlf &_
"<frame name='top' scrolling='no' src='User_ControlPad_Top.asp'>" & vbcrlf &_
" <frameset framespacing='0' border='false' cols='170,10,*' frameborder='0' id='frame' scrolling='yes'>" & vbcrlf &_
" <frame name='left' scrolling='auto' marginwidth='0' marginheight='0' src='user_controlpad_Left.asp'>" & vbcrlf &_
" <frame name='center' scrolling='no' src='ad_Index_center.asp' noresize>" & vbcrlf &_
" <frame name='main' scrolling='auto' src='"
if Action="ArticleAdd" then
response.write "User_infoAdd.asp"
elseif Action="ArticleManage" then
response.write "User_infoManage.asp"
elseif Action="ModifyPwd" then
response.write "User_ModifyPwd.asp"
elseif Action="ModifyInfo" then
response.write "User_ModifyInfo.asp"
else
response.write "User_infoManage.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 + -