📄 index.asp
字号:
<!--#include file="incbook/conn.asp"-->
<!--#include file="incbook/copyright.asp"-->
<!--#include file="incbook/top_menu.asp"-->
<%
''主设置部分
sql_admin="select * from admin where adminid=1"
set rs_admin=conn.execute(sql_admin)
if not rs_admin.bof and not rs_admin.eof then
Version_number=rs_admin("Version_number")
userid=0
yourname = rs_admin("name")
name = rs_admin("name")
home = rs_admin("myhome")
myhome = rs_admin("myhome")
homename = rs_admin("homename")
homeurl = rs_admin("homepage")
homepage = rs_admin("homepage")
admin = rs_admin("admin")
password = rs_admin("password")
adminmail = rs_admin("email")
messagemax = rs_admin("messagemax")
pagesize = rs_admin("pagesize")
ubb = rs_admin("ubb")
mylogo=rs_admin("logo")
badwords=rs_admin("badwords")
mystyle=rs_admin("styleid")
end if
%>
<%
'防止用户跨越管理
if session("user")<>request("user") then
session("user")=""
end if
%>
<%
'标题
if request("user")<>"" then
sql_user="select homename,userid,user,logo,myhome,styleid,homepage,name from user where user = '"&request("user")&"'"
set rs_user=conn.execute(sql_user)
if not rs_user.bof and not rs_user.eof then
homename=rs_user("homename")
istrue=rs_user("userid")
user=rs_user("user")
logo=rs_user("logo")
homepage = rs_user("homepage")
name = rs_user("name")
userid=rs_user("userid")
if rs_user("myhome")<>"" then
myhome=rs_user("myhome")
else
myhome=rs_user("user")
end if
mystyle=rs_user("styleid")
else
myhome=home
homename=homename
logo=mylogo
end if
rs_user.close
else
homename=homename
logo=mylogo
end if
if request("user")="" or istrue="" then
istrue=0
user=admin
end if
%>
<html>
<head>
<title><%=homename%>留言簿</TITLE>
<meta NAME="Description" content="免费主页空间，免费留言簿">
<meta NAME="Keywords" content="免费主页空间,免费asp空间,asp+access,免费CGI,JAVA,JavaScript,免费留言簿,免费论坛,免费聊天室,免费邮箱,虚拟主机,软件下载,免费域名,免费二级域名.">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<%
if request("styleid")<>"" and isInteger(request("styleid"))=true then
mystyle=request("styleid")
end if
if mystyle<>"" then
styleid=mystyle
else
styleid=1
end if
sql_style="select * from style where styleid="&styleid&""
set rs_style=conn.execute(sql_style)
if not rs_style.bof and not rs_style.eof then
css_name=rs_style("css_name")
link=rs_style("link")
bgcolor=rs_style("bgcolor")
bggraphic=rs_style("bggraphic")
MainTableColor=rs_style("MainTableColor")
LTablebgColor=rs_style("LTablebgColor")
OutBorderColor=rs_style("OutBorderColor")
InBorderColor=rs_style("InBorderColor")
TopLeft=rs_style("TopLeft")
TopMid=rs_style("TopMid")
TopRight=rs_style("TopRight")
BottomLeft=rs_style("BottomLeft")
BottomMid=rs_style("BottomMid")
BottomRight=rs_style("BottomRight")
LBorderGraphic=rs_style("LBorderGraphic")
MainBorderGraphic=rs_style("MainBorderGraphic")
else
link="css/uming_xp/uming_xp.css"
end if
rs_style.close
%>
<link rel="stylesheet" href="<%=link%>" type="text/css">
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<script langague="javascript">
function openScript(url, width, height){
var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=yes' );
}
</script>
</head>
<body topmargin="5" bgcolor=<%=bgcolor%> background="css/<%=css_name%>/<%=bggraphic%>" onkeydown='if((event.keyCode==68 && event.ctrlKey) | (event.keyCode==78 && event.ctrlKey)) alert("Sorry!")'>
<!--#include file="incbook/right_click_menu.asp"-->
<%show()%>
<TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0
cellPadding=0 width="550" border=0 align="center">
<TBODY>
<TR>
<TD bgColor=<%=OutBorderColor%> width="2"></TD>
<TD>
<%
if request("page")<>"" then
page=request("page")
else
page=1
end if
select case request("action")
case "write"
%>
<!--#include file="incbook/write_msg.asp"-->
<%
write_msg()
case "add"
%>
<!--#include file="incbook/add_msg.asp"-->
<%
add_msg()
case "reply"
%>
<!--#include file="incbook/reply.asp"-->
<%
reply()
case "replyok"
%>
<!--#include file="incbook/replyok.asp"-->
<%
replyok()
case "registration"
%>
<!--#include file="incbook/registration.asp"-->
<%
registration()
case "adduser"
%>
<!--#include file="incbook/adduser.asp"-->
<%
adduser()
case "isadmin"
%>
<!--#include file="incbook/isadmin.asp"-->
<%
isadmin()
case "logout"
%>
<!--#include file="incbook/logout.asp"-->
<%
logout()
case "adminok"
%>
<!--#include file="incbook/adminok.asp"-->
<%
adminok()
case "delete"
%>
<!--#include file="incbook/delete.asp"-->
<%
delete()
case "edit"
%>
<!--#include file="incbook/edit.asp"-->
<%
edit()
case "editok"
%>
<!--#include file="incbook/editok.asp"-->
<%
editok()
case "modify"
%>
<!--#include file="incbook/modify.asp"-->
<%
modify()
case "administrator"
%>
<!--#include file="incbook/administrator.asp"-->
<%
administrator()
case "deleteuser"
%>
<!--#include file="incbook/deleteuser.asp"-->
<%
deleteuser()
case "confirmok"
%>
<!--#include file="incbook/confirmok.asp"-->
<%
confirmok()
case "confirmno"
%>
<!--#include file="incbook/confirmno.asp"-->
<%
confirmno()
case "modifyok"
%>
<!--#include file="incbook/modifyok.asp"-->
<%
modifyok()
case "help_ubb"
%>
<!--#include file="incbook/help_ubb.asp"-->
<%
help_ubb()
case "read_notice"
%>
<!--#include file="incbook/read_notice.asp"-->
<%
read_notice()
case "write_notice"
%>
<!--#include file="incbook/write_notice.asp"-->
<%
write_notice()
case "add_notice"
%>
<!--#include file="incbook/add_notice.asp"-->
<%
add_notice()
case "edit_notice"
%>
<!--#include file="incbook/edit_notice.asp"-->
<%
edit_notice()
case "editok_notice"
%>
<!--#include file="incbook/editok_notice.asp"-->
<%
editok_notice()
case "delete_notice"
%>
<!--#include file="incbook/delete_notice.asp"-->
<%
delete_notice()
case "admin_modify"
%>
<!--#include file="incbook/admin_modify.asp"-->
<%
admin_modify()
case "admin_modifyok"
%>
<!--#include file="incbook/admin_modifyok.asp"-->
<%
admin_modifyok()
case else
%>
<!--#include file="incbook/read.asp"-->
<%
read()
end select
%>
</TD>
<TD bgColor=<%=OutBorderColor%> width="2"></TD>
</TR>
</TBODY>
</TABLE>
<%copyright()%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -