?? index.asp
字號:
<!--#include file="MarcosCB.asp"-->
<%
dim i,str,list,mList,pageCode,pageTitle,pageOther,PageIndex
getConn()
str=getMainCode(mySkinId)
pageTitle="<a href=index.asp>首頁</a>"
pageOther="<script>document.title+=' - 首頁';</script>"
nowWhere "論壇首頁","index.asp"
pageCode=getPageCode(mySkinId,"PageIndex")
PageIndex=split(pageCode,"$$$")
showHead str,pageTitle,pageOther
showBody()
showFoot(str)
sub showBody()
dim str,body,theBody,tableEnd,tableStart
if getApp("pageIndexCode_"&mySkinId)<>"" then
echo getApp("pageIndexCode_"&mySkinId)
exit sub
end if
sql="select boardId,boardName from Marcos_Board where topBoardId=0 order by bigOrder"
set rs_sys=conn.execute(sql)
queryTimes=queryTimes+1
do until rs_sys.eof
theBody=""
tableStart=PageIndex(0)
tableEnd=PageIndex(2)
tableStart=replace(tableStart,"{$fatherBoardName}",rs_sys(1))
sql="select * from Marcos_Board where topBoardId="&rs_sys(0)&" order by smallOrder"
rs.open sql,conn,1,1
queryTimes=queryTimes+1
do until rs.eof
body=PageIndex(1)
body=replace(body,"{$boardName}",rs("boardName"))
body=replace(body,"{$topicCount}",rs("topicCount"))
body=replace(body,"{$replyCount}",rs("replyCount"))
if rs("lastPostInfo")<>"" then
body=replace(body,"{$lastPostInfo}",rs("lastPostInfo"))
else
body=replace(body,"{$lastPostInfo}","<div align=center>暫無帖子</div>")
end if
if rs("boardManagerList")<>"" then
mList=""
list=split(rs("boardManagerList"),",")
for i=0 to ubound(list)
mList=mList & "<a href=""userInfo.asp?userName="&list(i)&""" target=_blank>"&list(i)&"</a><br>"
next
else
mList="暫無版主"
end if
body=replace(body,"{$boardManagerList}",mList)
body=replace(body,"{$boardDescription}",enCodeStr(rs("boardDescription")))
body=replace(body,"{$boardLink}","topicList.asp?boardName=" & rs("boardName") & "&boardId=" & rs("boardId"))
theBody=theBody&body
rs.movenext
loop
rs.close
str=str&tableStart&theBody&tableEnd
rs_sys.movenext
loop
str=str&PageIndex(0)
str=replace(str,"{$fatherBoardName}","<a href=""voteList.asp"">系統投票區</a>")
sql="select top 1 * from Marcos_Vote order by lastVoteTime desc"
rs.open sql,conn,1,1
if rs.eof then
str=str&"<tr height=""53""><td align=""center"" colspan=6>暫時沒有任何投票</td></tr>"
else
str=str&"<tr align=center height=""39""><td colspan=6><img src="""&rs("voteMood")&"""> "&rs("voteTitle")&_
" 作者:"&rs("userName")&" 最后更新:"&rs("lastVoteTime")&"</td></tr>"
end if
rs.close
queryTimes=queryTimes+1
str=str&PageIndex(2)
setApp "pageIndexCode_"&mySkinId,str
echo str
end sub
closeConn()
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -