📄 const.asp
字号:
<%
'****************************************************************
' 柯南留言本1.0版
' 程序制作：柯南.Net
' 作者住址：山东省威海市经济技术开发区望岛
' 邮政编码：264200
' 电子邮件：zhimengcn@163.com
' 个人主页：http://nenannet.yeah.net
' OICQ : 94165910
' UC ：15948091
'【版权声明】
' 本留言本提供个人网站免费使用和各网页制作者学习使用，请勿非法修改,
' 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'****************************************************************
' 请您尊重我的劳动和版权，不要删除以上的版权声明部分，谢谢合作
' 如有任何问题请到我的论坛告诉我。
' 论坛地址：http://kenannet.yeah.net
' 请勿删除以上信息。
'****************************************************************
'****************************************************************
dim ipsql
dim rs
dim websql
dim webrs
dim time1
dim showIP
dim bodywidth
dim titlewidty
dim maxsize
dim webadmin
dim homepage
dim email
dim webname
dim kenanbooktime
dim time2
dim Version
dim contextmemu
dim download
'******************封ＩＰ***************************************
Sub ipcheck()
ipsql="select IP from iplock where IP='"&Request.servervariables("REMOTE_ADDR")&"'"
set rs=conn.execute(ipsql)
If not rs.BOF Then
Response.Redirect("error.asp?err=100")
End If
End Sub
websql="select * from config"
set webrs=conn.execute(websql)
time1=timer()
contextmenu = true '---------是否屏蔽右键菜单
downloas = true '--------->是否防止下载
showIP = false '--------->是否显示留言作者的IP地址
bodywidth = "680" '--------->留言本主体表格宽度
titlewidth = "680" '--------->留言本标题菜单表格宽度
maxsize = webrs("maxsize") '-------->每页显示留言数
webadmin = webrs("username") '-------->网站站长姓名
homepage = webrs("url") '-------->网站首页url
email = webrs("mail") '-------->站长的电子信箱
webname = webrs("userweb") '--------->网站名称
kenanbooktime = webrs("booktime") '--------->发贴间隔时间
webrs.close
set webrs=nothing
Sub header()
Response.Write("<BODY onmousemove=HideMenu() leftMargin=6 topMargin=6>")
Response.Write("<DIV id=menuDiv style=""Z-INDEX: 2; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #9cc5f8""></DIV>")
Response.Write("<table width="""&titlewidth&""" cellspacing=""0"" cellpadding=""0"" align=""center"" height=""16"" class=table001 >")
Response.Write("<tr>")
Response.Write("<td height=""22"" align=""center"">")
Response.Write("[<a href=""write.asp"">我要留言</a>] [<a href=""mailto:"&email&""">联系站长</a>] [<a href=""adminindex.asp"">超级管理</a>] [<a href=""index.asp"">返回首页</a>] [<a href="""&homepage&""">网站首页</a>] [<a href=""http://kenannet.yeah.net"" target=""_blank"">技术支持</a>] [<a href=""#"" onMouseOver=ShowMenu(stylelist,100)>自选风格</a>]")
If session("kenanbook")<>"" Then Response.Write(" [<a href=""loginout.asp"">退出管理</a>]")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
End Sub
Version="<a href=http://kenannet.yeah.net target=_blank>留言本1.0版</a>"
Sub footer()
time2=timer()
Response.Write("<table width=""760"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
Response.Write("<tr>")
Response.Write("<td align=""center"">版权所有:" &webname& " 本站站长:" &webadmin& "<br><br>")
Response.Write("Copyright ©2000 - 2002 柯南 <font color=""#990000"">.NET</font> " & Version & " 页面执行时间:"&FormatNumber((time2-time1)*1000,3)&"毫秒<br>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
End Sub
If Request.Cookies("kenan")("style") = "" Then
Response.Cookies("kenan")("style")="1"
Response.Cookies("kenan").expires=now()+100 '---------->Cookies值设为100天
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="柯南留言本">
<meta name="description" content="柯南留言本">
<link rel="stylesheet" href="style/<%=Request.Cookies("kenan")("style")%>.css" type="text/css">
<script language="JavaScript">
var h;
var w;
var l;
var t;
var topMar = 1;
var leftMar = -2;
var space = 1;
var isvisible;
var MENU_SHADOW_COLOR='#999999';//定义下拉菜单阴影色
var global = window.document
global.fo_currentMenu = null
global.fo_shadows = new Array
function HideMenu()
{
var mX;
var mY;
var vDiv;
var mDiv;
if (isvisible == true)
{
vDiv = document.all("menuDiv");
mX = window.event.clientX + document.body.scrollLeft;
mY = window.event.clientY + document.body.scrollTop;
if ((mX < parseInt(vDiv.style.left)) || (mX > parseInt(vDiv.style.left)+vDiv.offsetWidth) || (mY < parseInt(vDiv.style.top)-h) || (mY > parseInt(vDiv.style.top)+vDiv.offsetHeight)){
vDiv.style.visibility = "hidden";
isvisible = false;
}
}
}
function ShowMenu(vMnuCode,tWidth) {
vSrc = window.event.srcElement;
vMnuCode = "<table id='submenu' cellspacing=1 cellpadding=3 style='width:"+tWidth+"' class=tableborder1 onmouseout='HideMenu()'><tr height=23><td nowrap align=left class=tablebody1>" + vMnuCode + "</td></tr></table>";
h = vSrc.offsetHeight;
w = vSrc.offsetWidth;
l = vSrc.offsetLeft + leftMar+4;
t = vSrc.offsetTop + topMar + h + space-2;
vParent = vSrc.offsetParent;
while (vParent.tagName.toUpperCase() != "BODY")
{
l += vParent.offsetLeft;
t += vParent.offsetTop;
vParent = vParent.offsetParent;
}
menuDiv.innerHTML = vMnuCode;
menuDiv.style.top = t;
menuDiv.style.left = l;
menuDiv.style.visibility = "visible";
isvisible = true;
makeRectangularDropShadow(submenu, MENU_SHADOW_COLOR, 4)
}
function makeRectangularDropShadow(el, color, size)
{
var i;
for (i=size; i>0; i--)
{
var rect = document.createElement('div');
var rs = rect.style
rs.position = 'absolute';
rs.left = (el.style.posLeft + i) + 'px';
rs.top = (el.style.posTop + i) + 'px';
rs.width = el.offsetWidth + 'px';
rs.height = el.offsetHeight + 'px';
rs.zIndex = el.style.zIndex - i;
rs.backgroundColor = color;
var opacity = 1 - i / (i + 1);
rs.filter = 'alpha(opacity=' + (100 * opacity) + ')';
el.insertAdjacentElement('afterEnd', rect);
global.fo_shadows[global.fo_shadows.length] = rect;
}
}
var stylelist = '<a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=1\">默认设置</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=2\">橘子红了</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=3\">天蓝色</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=4\">淡黄</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=5\">蓝灰</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=6\">粉色回忆</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=7\">黑白世界</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=8\">土黄色</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=9\">蓝色</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=10\">灰绿</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=11\">清新淡绿</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=12\">兰色记忆</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=13\">深蓝色</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=14\">星夜传说</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=15\">心情灰色</a><br><a style=font-size:9pt;line-height:12pt; href=\"change.asp?style=16\">真实的虚幻</a><br>'
</script>
<%
If contextmenu=true Then
Response.Write("<BODY oncontextmenu=""return false;"">")
End If
If download=true Then
Response.Write("<noscript><iframe src=*.html></iframe></noscript>")
End If %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -