📄 inc.asp
字号:
<%
'作者:邱乾城,网名:翱翔,QQ:1083934
'··················
'· 全站搜索表单 ·
'··················
'过滤SQL非法字符
function checkStr(str)
if isnull(str) then
checkStr = ""
exit function
end if
checkStr=replace(str,"'","''")
checkStr=replace(str,"%","")
end function
'过滤表单字符
function HTMLcode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
HTMLcode = fString
end if
end function
'过滤HTML代码
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
' fString=ChkBadWords(fString)
HTMLEncode = fString
end if
end function
function HTMLancode(fString)
if not isnull(fString) then
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
' fString=ChkBadWords(fString)
HTMLancode = fString
end if
end function
function HTMLEncodaa(fString)
fString = Replace(fString, "", CHR(13))
fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))
fString = Replace(fString, "<BR>",CHR(10) )
HTMLEncodaa = fString
end function
sub websearch()
Response.Write "<form id='form2' name='form2' method='post' action='search.asp'><label>栏 目: <select name='search' class='Input'><option value='搜索动态'>搜索设计动态</option><option value='搜索图片'>搜索设计图片</option><option value='搜索会员'>搜索联盟会员</option><option value='搜索下载'>搜索下载资源</option><option value='搜索文摘'>搜索设计文摘</option></select></label><br />方 式: <label><select name='mode' class='Input'><option value='按标题'>标题方式搜索</option></select></label><br />关键字:<label><input name='key' type='text' class='Input' size='14' maxlength='50' /></label><br /><label><input name='Submit3' type='submit' class='Input' value='搜 索' /></label> <label><input name='Submit4' type='reset' class='Input' value='清 空' /></label></form>"
end sub
'··················
'·函数名：hacker ·
'·功 能：防止黑客攻击（后台） ·
'··················
sub hacker()
myurl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if myurl="" then
response.write "<script>alert('对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。');</script>"
response.write "<script>location.href='index.asp';</script>"
else
outurl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
if mid(myurl,len(outurl)+1,1)=":" then
outurl=outurl & ":" & Request.ServerVariables("SERVER_PORT")
end if
outurl=lcase(outurl & request.ServerVariables("SCRIPT_NAME"))
if lcase(left(myurl,instrrev(myurl,"/")))<>lcase(left(outurl,instrrev(outurl,"/"))) then
response.write "<script>alert('对不起，为了系统安全，不允许从外部链接地址访问本系统的后台管理页面。')</script>"
response.write "<script>location.href='index.asp';</script>"
end if
end if
end sub
sub adminjj()
if session("adminjj")<>"1" then
if adminsuper<>admin then
response.Write "<script>alert('对不起,你没有这个权限！');this.location.href='index.asp';</script>"
Response.End
end if
end if
end sub
'··················
'·函数名：adminleft ·
'·功 能：管理左边框架（后台） ·
'··················
sub adminleft()
response.Write "<table width='200' border='0' cellspacing='0' cellpadding='0'><tr><td colspan='2'><img src='images/Lv2/adminmge.gif' width='200' height='30' /></td></tr><tr><td height='20' colspan='2' align='left'> 您好!"
if adminsuper<>"admin" then response.write "基层管理员" else response.write "高层管理员" end if
response.write " "&adminname&""
response.Write "</td></tr><tr><td height='20' colspan='2' align='left' background='images/Lv2/adminbg2.gif'> ::基本设置::</td></tr><tr><td width='100' height='20' align='center'><a href='admin.asp'>管理首页</a></td><td width='100' height='20' align='center'><a href='userout.asp'>安全退出</a></td></tr><tr><td height='20' align='center'><a href='adminsite.asp'>网站设置</a></td><td height='20' align='center'><a href='adminlink.asp'>友情链接</a></td></tr><tr><td height='20' align='center'><a href='adminadmin.asp'>MG 管理</a></td><td height='20' align='center'><a href='adminaffiche.asp'>公告管理</a></td></tr><tr><td height='20' align='center'><a href='adminuser.asp'>会员管理</a></td><td height='20' align='center'><a href='adminother.asp'>频道管理</a></td></tr><tr><td height='20' colspan='2' align='left' background='images/Lv2/adminbg2.gif'> ::栏目管理::</td></tr><tr><td height='20' align='center'><a href='adminnews.asp'>设计动态</a></td><td height='20' align='center'><a href='adminweb.asp'>设计网址</a></td></tr><tr><td height='20' align='center'><a href='adminpic.asp'>设计展示</a></td><td height='20' align='center'><a href='admindown.asp'>设计下载</a></td></tr><tr><td height='20' align='center'><a href='adminbook.asp'>设计文摘</a></td><td height='20' align='center'><a href='admingbook.asp'>留言管理</a></td></tr><tr><td height='20' align='center'> </td><td height='20' align='center'> </td></tr><tr><td height='20' colspan='2' align='left' background='images/Lv2/adminbg2.gif'> ::关于版权::</td></tr><tr><td height='20' colspan='2' align='left'> 程序设计: 翱翔 QQ号1083934</td></tr><tr><td height='20' colspan='2' align='left'> 授权单位: 蓝焰设计工作室</td></tr><tr><td height='20' colspan='2' align='left'> 官方网址: <a href='http://www.designz.cn'>http://www.designz.cn</a></td></tr><tr><td height='20' colspan='2' align='left'> 论坛交流: <a href='http://bbs.designz.cn'>http://bbs.designz.cn</a></td></tr></table>"
end sub
'过程名：html
'功 能：后台公用编辑器
sub html()%>
<link rel="STYLESHEET" type="text/css" href="images/edit.css">
<Script Src="images/DhtmlEdit.js"></Script>
<table id="oblog_Container" class="oblog_Body" height="300" width="100%" cellpadding=3 cellspacing=0 border=0 >
<tr><td><table cellpadding=0 cellspacing=0>
<tr class="yToolbar" ID="ExtToolbar0"><td>
<select ID="oblog_formatSelect" class="oblog_TBGen" onchange="oblog_doSelectClick('FormatBlock',this)" class="class">
<option class="class">段落格式</option>
<option VALUE="<P>">普通格式</option>
<option VALUE="<H1>">标题 1</option>
<option VALUE="<H2>">标题 2</option>
<option VALUE="<H3>">标题 3</option>
<option VALUE="<H4>">标题 4</option>
<option VALUE="<H5>">标题 5</option>
<option VALUE="<H6>">标题 6</option>
<option VALUE="<H7>">标题 7</option>
<option VALUE="<PRE>">已编排格式</option>
<option VALUE="<ADDRESS>">地址</option>
</select>
</td><td>
<select language="javascript" class="oblog_TBGen" id="FontName" onchange="FormatText ('fontname',this[this.selectedIndex].value);" class="class">
<option class="class" selected>字体</option>
<option value="宋体">宋体</option>
<option value="黑体">黑体</option>
<option value="楷体_GB2312">楷体</option>
<option value="仿宋_GB2312">仿宋</option>
<option value="隶书">隶书</option>
<option value="幼圆">幼圆</option>
<option value="新宋体">新宋体</option>
<option value="细明体">细明体</option>
<option value="Arial">Arial</option>
<option value="Arial Black">Arial Black</option>
<option value="Arial Narrow">Arial Narrow</option>
<option value="Bradley Hand ITC">Bradley Hand ITC</option>
<option value="Brush Scrip MT">Brush Script MT</option>
<option value="Century Gothic">Century Gothic</option>
<option value="Comic Sans MS">Comic Sans MS</option>
<option value="Courier">Courier</option>
<option value="Courier New">Courier New</option>
<option value="MS Sans Serif">MS Sans Serif</option>
<option value="Script">Script</option>
<option value="System">System</option>
<option value="Times New Roman">Times New Roman</option>
<option value="Viner Hand ITC">Viner Hand ITC</option>
<option value="Verdana">Verdana</option>
<option value="Wide Latin">Wide Latin</option>
<option value="Wingdings">Wingdings</option>
</select><select language="javascript" class="oblog_TBGen" id="FontSize" onchange="FormatText('fontsize',this[this.selectedIndex].value);" class="class">
<option class="class" selected>字号</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
</select>
<td id="forecolor" name=forecolor class="oblog_Btn" TITLE="字体颜色" LANGUAGE="javascript" onclick="oblog_foreColor();" onmouseover=this.className='oblog_BtnMouseOverUp'; onmouseout=this.className='oblog_Btn'; >
<img class="oblog_Ico" src="images/fgcolor.gif" WIDTH="16" HEIGHT="16" unselectable="on" ></td>
<td id="backcolor" class="oblog_Btn" TITLE="字体背景颜色" LANGUAGE="javascript" onclick="oblog_backColor();ondrag='return false;'" onmouseover=this.className='oblog_BtnMouseOverUp'; onmouseout=this.className='oblog_Btn';>
<img class="oblog_Ico" src="images/fbcolor.gif" WIDTH="16" HEIGHT="16" unselectable="on"></td>
<td class="oblog_Btn" TITLE="插入特殊符号" LANGUAGE="javascript" onclick="insertSpecialChar();" onmouseover=this.className='oblog_BtnMouseOverUp'; onmouseout=this.className='oblog_Btn';>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -