?? 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 + -