?? function.asp
字號:
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=menu onmouseout='HideMenu()'><tr height=23><td nowrap align=left class=MenuBody>" + 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;
}
}
</script>
<%
response.write "<script language='JavaScript' type='text/JavaScript'>" & vbcrlf
response.write "//菜單列表" & vbcrlf
'自選風格的菜單定義
strMenu="var menu_skin=" & chr(34)
dim rsSkin
set rsSkin=conn.execute("select SkinID,SkinName from Skin")
do while not rsSkin.eof
strMenu=strMenu & " <a style=font-size:9pt;line-height:14pt; href='SetCookie.asp?Action=SetSkin&ClassID=" & ClassID & "&SkinID=" & rsSkin(0) & "'>" & rsSkin(1) & "</a><br>"
rsSkin.movenext
loop
rsSkin.close
set rsSkin=nothing
response.write strMenu & chr(34) & ";" & vbcrlf
response.write "</script>" & vbcrlf
else
%>
<script language="JavaScript" type="text/JavaScript">
function HideMenu()
{
}
</script>
<%
end if
if ChannelID>=2 and ChannelID<=4 then
'無限級下拉菜單的JS代碼文件
response.write "<script type='text/javascript' language='JavaScript1.2' src='stm31.js'></script>"
if ShowClassTreeGuide="Yes" then
%>
<script language="JavaScript" type="text/JavaScript">
//樹形導航的JS代碼
document.write("<style type=text/css>#master {LEFT: -200px; POSITION: absolute; TOP: 25px; VISIBILITY: visible; Z-INDEX: 999}</style>")
document.write("<table id=master width='218' border='0' cellspacing='0' cellpadding='0'><tr><td><img border=0 height=6 src=images/menutop.gif width=200></td><td rowspan='2' valign='top'><img id=menu onMouseOver=javascript:expand() border=0 height=70 name=menutop src=images/menuo.gif width=18></td></tr>");
document.write("<tr><td valign='top'><table width='100%' border='0' cellspacing='5' cellpadding='0'><tr><td height='400' valign='top'><table width=100% height='100%' border=1 cellpadding=0 cellspacing=5 bordercolor='#666666' bgcolor=#ecf6f5 style=FILTER: alpha(opacity=90)><tr>");
document.write("<td height='10' align='center' bordercolor='#ecf6f5'><font color=999900><strong>欄 目 樹 形 導 航</strong></font></td></tr><tr><td valign='top' bordercolor='#ecf6f5'>");
document.write("<iframe width=100% height=100% src='classtree.asp?ChannelID=<%=ChannelID%>' frameborder=0></iframe></td></tr></table></td></tr></table></td></tr></table>");
var ie = document.all ? 1 : 0
var ns = document.layers ? 1 : 0
var master = new Object("element")
master.curLeft = -200; master.curTop = 10;
master.gapLeft = 0; master.gapTop = 0;
master.timer = null;
if(ie){var sidemenu = document.all.master;}
if(ns){var sidemenu = document.master;}
setInterval("FixY()",100);
function moveAlong(layerName, paceLeft, paceTop, fromLeft, fromTop){
clearTimeout(eval(layerName).timer)
if(eval(layerName).curLeft != fromLeft){
if((Math.max(eval(layerName).curLeft, fromLeft) - Math.min(eval(layerName).curLeft, fromLeft)) < paceLeft){eval(layerName).curLeft = fromLeft}
else if(eval(layerName).curLeft < fromLeft){eval(layerName).curLeft = eval(layerName).curLeft + paceLeft}
else if(eval(layerName).curLeft > fromLeft){eval(layerName).curLeft = eval(layerName).curLeft - paceLeft}
if(ie){document.all[layerName].style.left = eval(layerName).curLeft}
if(ns){document[layerName].left = eval(layerName).curLeft}
}
if(eval(layerName).curTop != fromTop){
if((Math.max(eval(layerName).curTop, fromTop) - Math.min(eval(layerName).curTop, fromTop)) < paceTop){eval(layerName).curTop = fromTop}
else if(eval(layerName).curTop < fromTop){eval(layerName).curTop = eval(layerName).curTop + paceTop}
else if(eval(layerName).curTop > fromTop){eval(layerName).curTop = eval(layerName).curTop - paceTop}
if(ie){document.all[layerName].style.top = eval(layerName).curTop}
if(ns){document[layerName].top = eval(layerName).curTop}
}
eval(layerName).timer=setTimeout('moveAlong("'+layerName+'",'+paceLeft+','+paceTop+','+fromLeft+','+fromTop+')',30)
}
function setPace(layerName, fromLeft, fromTop, motionSpeed){
eval(layerName).gapLeft = (Math.max(eval(layerName).curLeft, fromLeft) - Math.min(eval(layerName).curLeft, fromLeft))/motionSpeed
eval(layerName).gapTop = (Math.max(eval(layerName).curTop, fromTop) - Math.min(eval(layerName).curTop, fromTop))/motionSpeed
moveAlong(layerName, eval(layerName).gapLeft, eval(layerName).gapTop, fromLeft, fromTop)
}
var expandState = 0
function expand(){
if(expandState == 0){setPace("master", 0, 10, 10); if(ie){document.menutop.src = "images/menui.gif"}; expandState = 1;}
else{setPace("master", -200, 10, 10); if(ie){document.menutop.src = "images/menuo.gif"}; expandState = 0;}
}
function FixY(){
if(ie){sidemenu.style.top = document.body.scrollTop+10}
if(ns){sidemenu.top = window.pageYOffset+10}
}
</script>
<%
end if
end if
end sub
'==================================================
'過程名：ShowSearchForm
'作 用：顯示文章搜索表單
'參 數：ShowType ----顯示方式。1為簡潔模式，2為標準模式，3為高級模式
'==================================================
sub ShowSearchForm(Action,ShowType)
if ShowType<>1 and ShowType<>2 and ShowType<>3 then
ShowType=1
end if
response.write "<table border='0' cellpadding='0' cellspacing='0'>"
response.write "<form method='Get' name='SearchForm' action='" & Action & "'>"
response.write "<tr><td height='28' align='center'>"
if ShowType=1 then
response.write "<input type='text' name='keyword' size='15' value='關鍵字' maxlength='50' onFocus='this.select();'> "
response.write "<input type='hidden' name='field' value='Title'>"
response.write "<input type='submit' name='Submit' value='搜索'>"
'response.write "<br><br>高級搜索"
elseif Showtype=2 then
response.write "<select name='Field' size='1'>"
if ChannelID=2 then
response.write "<option value='Title' selected>文章標題</option>"
response.write "<option value='Content'>文章內容</option>"
response.write "<option value='Author'>文章作者</option>"
response.write "<option value='Editor'>編輯姓名</option>"
elseif ChannelID=3 then
response.write "<option value='SoftName' selected>軟件名稱</option>"
response.write "<option value='SoftIntro'>軟件簡介</option>"
response.write "<option value='Author'>軟件作者</option>"
response.write "<option value='Editor'>編輯姓名</option>"
elseif ChannelID=4 then
response.write "<option value='PhotoName' selected>圖片名稱</option>"
response.write "<option value='PhotoIntro'>圖片簡介</option>"
response.write "<option value='Author'>圖片作者</option>"
response.write "<option value='Editor'>編輯姓名</option>"
else
response.write "<option value='Title' selected>文章標題</option>"
response.write "<option value='Content'>文章內容</option>"
response.write "<option value='Author'>文章作者</option>"
response.write "<option value='Editor'>編輯姓名</option>"
end if
response.write "</select> "
response.write "<select name='ClassID'><option value=''>所有欄目</option>"
call Admin_ShowClass_Option(5,0)
response.write "</select> <input type='text' name='keyword' size='20' value='關鍵字' maxlength='50' onFocus='this.select();'> "
response.write "<input type='submit' name='Submit' value=' 搜索 '>"
elseif Showtype=3 then
end if
response.write "</td></tr></form></table>"
end sub
'==================================================
'過程名：ShowGuest
'作 用：顯示網站留言
'參 數：GuestTitleLen ---顯示留言標題長度
' GuestItemNum ---顯示留言條數
'==================================================
sub ShowGuest(GuestTitleLen,GuestItemNum)
dim sqlGuest,rsGuest
if GuestItemNum<=0 or GuestItemNum>50 then
GuestItemNum=10
end if
sqlGuest="select top " & GuestItemNum & " * from Guest where GuestIsPassed=True order by GuestMaxId desc"
Set rsGuest= Server.CreateObject("ADODB.Recordset")
rsGuest.open sqlGuest,conn,1,1
if rsGuest.bof and rsGuest.eof then
response.Write " 沒有任何留言"
else
do while Not rsGuest.eof
response.write "<font color=#b70000><b>·</b></font><a href='guestbook.asp' "
response.write " title='主題：" & rsGuest("GuestTitle") & vbcrlf & "姓名：" & rsGuest("GuestName") & vbcrlf & "時間：" & rsGuest("GuestDatetime") &"'"
response.write " target='_blank'>"
response.write gotTopic(rsGuest("GuestTitle"),GuestTitleLen)
response.write "</a><br>"
rsGuest.movenext
Loop
end if
rsGuest.close
set rsGuest=nothing
end sub
'==================================================
'過程名：ShowAD
'作 用：顯示廣告
'參 數：ADType ---廣告類型
'==================================================
sub ShowAD(ADType)
dim sqlAD,rsAD,AD,arrSetting,popleft,poptop,floatleft,floattop,fixedleft,fixedtop
sqlAD="select * from Advertisement where IsSelected=True"
sqlAD=sqlAD & " and (ChannelID=0 or ChannelID=" & ChannelID & ")"
sqlAD=sqlAD & " and ADType=" & ADtype & " order by ID Desc"
set rsAD=server.createobject("adodb.recordset")
rsAD.open sqlAD,conn,1,1
if not rsAd.bof and not rsAD.eof then
do while not rsAD.eof
if rsAD("isflash")=true then
AD= "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0'"
if rsAD("ImgWidth")>0 then AD = AD & " width='" & rsAD("ImgWidth") & "'"
if rsAD("ImgHeight")>0 then AD = AD & " height='" & rsAD("ImgHeight") & "'"
AD = AD & "><param name='movie' value='" & rsAD("ImgUrl") & "'><param name='quality' value='high'><embed src='" & rsAD("ImgUrl") & "' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'"
if rsAD("ImgWidth")>0 then AD = AD & " width='" & rsAD("ImgWidth") & "'"
if rsAD("ImgHeight")>0 then AD = AD & " height='" & rsAD("ImgHeight") & "'"
AD = AD & "></embed></object>"
else
AD ="<a href='" & rsAD("SiteUrl") & "' target='_blank' title='" & rsAD("SiteName") & "：" & rsAD("SiteUrl") & "'><img src='" & rsAD("ImgUrl") & "'"
if rsAD("ImgWidth")>0 then AD = AD & " width='" & rsAD("ImgWidth") & "'"
if rsAD("ImgHeight")>0 then AD = AD & " height='" & rsAD("ImgHeight") & "'"
AD = AD & " border='0'></a>"
end if
if ADtype=0 then
if session("PopAD"&rsAD("ID")&ChannelID)<>True then
if instr(rsAD("ADSetting"),"|")>0 then
arrSetting=split(rsAD("ADSetting"),"|")
popleft=arrsetting(0)
poptop=arrsetting(1)
end if
response.write "<SCRIPT language=javascript>"
response.write "window.open(""PopAD.asp?Id="& rsAD("ID")&""",""popad"&rsAD("ID")&""",""toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,width="&rsAD("ImgWidth")&",height="&rsAD("ImgHeight")&",top="&poptop&",left="&popleft&""");"
response.write "</SCRIPT>"
session("PopAD"&rsAD("ID")&ChannelID)=True
end if
elseif ADtype=1 then
response.write AD
exit do
elseif ADtype=2 then
response.write AD
exit do
elseif ADtype=3 then
response.write AD
exit do
elseif ADtype=4 then
if instr(rsAD("ADSetting"),"|")>0 then
arrSetting=split(rsAD("ADSetting"),"|")
floatleft=arrsetting(0)
floattop=arrsetting(1)
end if
response.write "<div id='FlAD' style='position:absolute; z-index:10;left: "&floatleft&"; top: "&floattop&"'>" & AD & "</div>"
call FloatAD()
exit do
elseif ADtype=5 then
if instr(rsAD("ADSetting"),"|")>0 then
arrSetting=split(rsAD("ADSetting"),"|")
fixedleft=arrsetting(0)
fixedtop=arrsetting(1)
end if
response.write "<div id='FixAD' style='position:absolute; z-index:10;left: "&fixedleft&"; top: "&fixedtop&"'>" & AD & "</div>"
call FixedAD()
exit do
elseif ADtype=6 then
response.write rsAD("ImgUrl")
exit do
end if
rsAD.movenext
loop
end if
rsAD.close
set rsAD=nothing
end sub
'==================================================
'過程名：FloatAD
'作 用：浮動廣告
'參 數：無
'==================================================
sub FloatAD()
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -