[70] 問:
把首頁的論壇新帖和最新留言移到網(wǎng)站下面去
進(jìn)入后臺
分頁面模板(page_index)
編輯該模塊：語言包 新 | 圖片 新 | 界面風(fēng)格 新
電擊頁面風(fēng)格
搜索 論壇新貼 最新留言
將其所屬table標(biāo)簽 移動(dòng)到
<tr>
<td class="tdbg_mainall"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="60%" class="title_main2">論壇新貼</td>
<td width="1%"> </td>
<td width="39%" class="tdbg_main2">最新留言</td>
</tr>
<tr>
<td valign="top" class="tdbg_main"><script src=‘http://bbs.asp163.net/newtopic.asp?boardid=all&lock=0&bname=0&tlen=16&n=8&sdate=1&orders=2&info=3&action=1&reply=0'></script></td>
<td> </td>
<td valign="top" class="tdbg_main">{$showGuest}</td>
</tr>
把這一段隨便換到別的位置
然后修改 保存 點(diǎn)擊修改生效
[71] 問:
修改最新留言的數(shù)目
首頁的最新留言只顯示5條，
而論壇是顯示8條的，
不和諧！·
在index.asp中“TempStr = Replace(TempStr,"{$showGuest}",showGuest(18,8))”的8改為10即可！
原來還要去inc/function.asp里修改！
[72] 問:
怎樣改變首頁最新文章一欄顯示圖片的大小
打開 Index.asp ，找到 TempStr = Replace(TempStr,"{$ShowPicArticle1}",ShowPicArticle(0,2,20,1,1,120,90,200,false,false))，其中120為圖片寬度，90為圖片高度。把這兩個(gè)數(shù)值修改成你需要的大小即可。
[73] 問:
page_index內(nèi)部變量描述(首頁一些最新的欄目調(diào)用）
內(nèi)部變量描述：<li>{$width}：表格寬度變量；（主模塊(Main_Style)基本設(shè)置） <li>{$ShowAnnounce}：公告信息變量；<li>{$ShowUserLogin}:用戶登錄窗口調(diào)用；<li>{$ShowPicArticle1}：最新文章圖片調(diào)用；<li>{$ShowNewArticle1}：最新文章標(biāo)題調(diào)用；<li>{$ShowNewSoft}：最新下載調(diào)用；<li>{$showGuest}：最新留言調(diào)用；<li>{$ShowNewarticle2}：最新欄目文章調(diào)用（分欄目調(diào)用）；<li>{$ShowNewPhoto}：最新圖片調(diào)用；<li>{$ShowPicArticle2}：最新圖片文章調(diào)用；<li>{$ShowVote}：最新調(diào)查調(diào)用；<li>{$ShowHot}：最新熱點(diǎn)（熱門）調(diào)用；<li>{$ShowSpecial}：專題欄目調(diào)用；<li>{$ShowSiteCountAll}：網(wǎng)站統(tǒng)計(jì)調(diào)用；<li>{$ShowTopUser}：用戶排行調(diào)用；<li>{$ShowFriendSite}：友情鏈接調(diào)用；
[74] 問:
把760寬度改為1000的寬度
動(dòng)力默認(rèn)是760的寬度。如果要變成1024的可以參看如下方法：
修改模板的頭部和尾部代碼，把寬度調(diào)整為1000（比1024略小，避免出現(xiàn)橫向滾動(dòng)條）
對于各版面中部代碼，修改如下：
<table width="1000" border="0">
<tr>
<td width="760"><div align="center">原來的中部代碼，全部復(fù)制在這里</div></td>
<td><div align="center">新增加的內(nèi)容，建議用dw編輯</div></td>
</tr>
</table>
新增加的內(nèi)容如果需要分成若干行，可插入如下代碼：
<tr><td>第一行內(nèi)容</td></tr>
<tr><td>第二行內(nèi)容</td></tr>
[75] 問:
文章欄目怎么才能成一排顯示？
并排的兩個(gè)表格變成一個(gè)表格，在function.asp里修改
查找：if iClassID mod 2=0 then
改成：if iClassID mod 1=0 then
注意：還得要進(jìn)入后臺點(diǎn)擊“修改生效”后方可看到郊果！
[76] 問:
可以由瀏覽者自行調(diào)節(jié)文字大小
后臺
main_style模板里在head前面加上
<script>
function doZoom(size){
document.getElementById(‘zoom‘).style.fontSize=size+‘px‘
}
</script>
下面的我只能說概要了，因?yàn)槲业臏y試站是全模板的
在article_show中，找到顯示正文的<td ＞表格控制 加上id號
就是這樣的
<td id="zoom">
在你需要的地方插入字體的 大 中 小控制就可以了
代碼如下
<p align=right>調(diào)整字體: <b>【<a href="#" onclick="doZoom(18);return false;">大號</a>】</b><b>【<a href="#" onclick="doZoom(15);return false;">中號</a>】</b><b>【<a href="#" onclick="doZoom(12);return false;">小號</a>】</b> </p>
[77] 問:
圖片瀏覽不計(jì)數(shù)的BUG
photo_viewer.asp
找到
if FoundErr<>True then
sql = "update Soft set Hits=Hits+1"
if datediff("D",rs("LastHitTime"),now())<=0 then
sql=sql&",DayHits=DayHits+1"
else
sql=sql&",DayHits=1"
end if
if datediff("ww",rs("LastHitTime"),now())<=0 then
sql=sql&",WeekHits=WeekHits+1"
else
sql=sql&",WeekHits=1"
end if
if datediff("m",rs("LastHitTime"),now())<=0 then
sql=sql&",MonthHits=MonthHits+1"
else
sql=sql&",MonthHits=1"
end if
sql=sql&",LastHitTime=now()"
set rs=nt2003.execute(sql)
end if
替換成
if FoundErr<>True then
rs("Hits")=rs("Hits")+1
if datediff("D",rs("LastHitTime"),now())<=0 then
rs("DayHits")=rs("DayHits")+1
else
rs("DayHits")=1
end if
if datediff("ww",rs("LastHitTime"),now())<=0 then
rs("WeekHits")=rs("WeekHits")+1
else
rs("WeekHits")=1
end if
if datediff("m",rs("LastHitTime"),now())<=0 then
rs("MonthHits")=rs("MonthHits")+1
else
rs("MonthHits")=1
end if
rs("LastHitTime")=now()
rs.update
end if
[78] 問:
3。6背景修改的方法
后臺編輯CSS里面修改
BODY
{
FONT-SIZE: 9pt;background:url(Skin/xxxxx/bg.gif);
}
[79] 問:
網(wǎng)站注冊自動(dòng)返回文件下載及修改方法
好象很多朋友需要,這個(gè)改法也非常簡單,但不會破壞網(wǎng)站和論壇的任何東西,不影響論壇升級,所以我也一直使用的這個(gè)方法.大家覺得可以就用,也幫頂一下.
本文件只適用動(dòng)力3.6+動(dòng)網(wǎng)7.0SP2
首先將bbs_reg.asp文件傳到論壇根目錄
這主要利用動(dòng)網(wǎng)論壇模版化的功能,下面的動(dòng)網(wǎng)后臺的添加必須在你所使用的默認(rèn)的默板里添加,當(dāng)然你把你所有的模版都加上也可以,不影響論壇登陸,最好先備份論壇數(shù)據(jù)庫.
第一步:
一\\\\\這是網(wǎng)站直接使用論壇的注冊協(xié)議及注冊頁面的動(dòng)力修改的地方
修改INC目錄里的function.asp文件,找到<a href=‘User_Reg.asp‘>用戶注冊</a>將User_Reg.asp改為bbs_reg.asp改過后為<a href=‘bbs_reg.asp‘>用戶注冊</a>
二\\\\\\這是使用動(dòng)力3.6注冊協(xié)議修改動(dòng)力的地方
修改User_Reg.asp文件:
找到<form action="<%=forum_dir%>/reg.asp?action=apply" method="post">修改為
<form action="<%=forum_dir%>/bbs_reg.asp?action=apply" method="post">
第二步:太長,就不復(fù)制了,自己下文件去看吧
http://mm.y00.net/bbs_reg.rar
[80] 問:
給首頁做個(gè)網(wǎng)站導(dǎo)航
參考文件syscode_Article.asp syscode_soft.asp syscode_Photo.asp里ShowClassNavigation（顯示欄目導(dǎo)航），略加修改，做成首頁的網(wǎng)站導(dǎo)航。
演示：http://www.shuxue123.com/xyz/
方法：1、在index.asp下面任一個(gè)end function后添加以下3個(gè)過程函數(shù)。
2、在index.asp中任一個(gè)TempStr = Replace．．．后插入下面代碼：
TempStr = Replace(TempStr,"{$ShowArticleClassNavigation}",ShowArticleClassNavigation)
TempStr = Replace(TempStr,"{$ShowSoftClassNavigation}",ShowSoftClassNavigation)
TempStr = Replace(TempStr,"{$ShowPhotoClassNavigation}",ShowPhotoClassNavigation)
3、后臺分頁面模板(page_index) 適當(dāng)位置，在某個(gè)<td></td>之間加入標(biāo)簽：
{$ShowArticleClassNavigation}{$ShowSoftClassNavigation}{$ShowPhotoClassNavigation}
說明：出現(xiàn)編譯器錯(cuò)誤的原因是代碼中<br>被執(zhí)行了，因而不能把代碼貼上。
點(diǎn)擊：http://www.shuxue123.com/xyz/abc.rar 下載下面3個(gè)函數(shù)代碼。
‘=================================================
‘過程名：ShowArticleClassNavigation
‘作 用：顯示首頁文章欄目導(dǎo)航
‘參 數(shù)：無
‘=================================================
‘=================================================
‘過程名：ShowSoftClassNavigation
‘作 用：顯示首頁下載欄目導(dǎo)航
‘參 數(shù)：無
‘=================================================
‘=================================================
‘過程名：ShowPhotoClassNavigation
‘作 用：顯示首頁圖片欄目導(dǎo)航
‘參 數(shù)：無
‘=================================================
[81] 問:
徹底解決升級后留言板不能顯示問題。
首先，把數(shù)據(jù)庫后綴名改為mdb，例如：fp360609.asp改為fp360609.mdb，然后，用Access打開，在Guest下增加字段GuestTypeadmin，屬性為最后四項(xiàng)為：否，是，有，是，就可以解決問題，不能修改文件syscode_guest.asp，否則，不能正確顯示用戶名字。
[82] 問:
最新文章、軟件顯示其所在欄目的方法
演示：http://www.shuxue123.com/xyz/
1、最新文章顯示其所在欄目的方法
文件syscode_Article.asp里
‘=================================================
‘過程名：ShowNewArticle
‘作 用：顯示最新文章
‘參 數(shù)：ArticleNum ----最多顯示多少篇文章
‘ TitleLen ----標(biāo)題最多字符數(shù)，一個(gè)漢字=兩個(gè)英文字符
‘=================================================
function ShowNewArticle(ArticleNum,TitleLen)
dim sqlNew,rsNew,strrow,strcol,i,tmpdata
nt2003.Name="NewArticle"
If nt2003.ObjIsEmpty() Then
sqlNew="select top 20 A.ArticleID,A.Title,A.Author,A.UpdateTime,A.Hits,A.ReadLevel,A.ClassID,L.LayoutFileName from article A inner join Layout L on L.LayoutID=A.LayoutID where A.Deleted=False and A.Passed=True order by A.articleid desc"
Set rsNew = nt2003.execute(sqlNew)
if rsNew.bof and rsNew.eof then
nt2003.value=""
else
nt2003.value = rsNew.GetString(,,"|||","@@@","")
end if
rsNew.close
set rsNew=nothing
end if
if TitleLen<0 or TitleLen>255 then TitleLen=50
if nt2003.value="" then
tmpdata = "<font color=#ff9900>·</font>沒有任何文章"
else
strrow=Split(nt2003.value,"@@@")
dim loopnum
if ArticleNum<UBound(strrow) then
loopnum=ArticleNum-1
else
loopnum=UBound(strrow)-1
end if
for i = 0 to loopnum
strcol=Split(strrow(i),"|||")
if strcol(5)=>Userlevel then
tmpdata = tmpdata & "<table width=100% border=0 cellpadding=0 cellspacing=0><tr><td><font color=#ff9900>·</font><a href=‘Article_Class.asp?ClassID="&strcol(6)&"‘><font color=#4474A3>[" & conn.execute("select * from ArticleClass where ClassID = "& strcol(6))("ClassName") & "]</font></a><a href=‘" & strcol(7) & "?ArticleID=" & strcol(0) &"‘ title=‘文章標(biāo)題：" & strcol(1) & vbcrlf & "文章作者：" & strcol(2) & vbcrlf & "更新時(shí)間：" & strcol(3) & vbcrlf & "點(diǎn)擊次數(shù)：" & strcol(4) & "‘ target=‘_blank‘>" & gotTopic(strcol(1),TitleLen) & "</a></td><td align=right>[<font color=#999999>"
if month(strcol(3))<10 then
tmpdata = tmpdata & "0"
end if
tmpdata = tmpdata & month(strcol(3)) & "-"
if day(strcol(3))<10 then
tmpdata = tmpdata & "0"
end if
tmpdata = tmpdata & day(strcol(3)) & "</font>]</td></tr></table>"
end if
next
end if
ShowNewArticle=tmpdata
end function
2、最新軟件顯示其所在欄目的方法
文件Index.asp里
‘=================================================
‘過程名：ShowNewSoft
‘作 用：顯示最新軟件更新
‘=================================================
function ShowNewSoft
dim sqlNew,rsNew,strrow,strcol,i,strtemp
nt2003.Name="NewSoft"
If nt2003.ObjIsEmpty() Then
sqlNew="select top 8 S.SoftID,S.ClassID,S.SoftName,S.SoftVersion,S.Author,S.UpdateTime,S.Editor,S.Hits,S.DayHits,S.WeekHits,S.MonthHits,S.SoftSize,S.SoftLevel,S.SoftPoint from Soft S where S.Deleted=False and S.Passed=True order by S.SoftID desc"
Set rsNew = nt2003.execute(sqlNew)
if rsNew.bof and rsNew.eof then
nt2003.value=""
else
nt2003.value = rsNew.GetString(,,"|||","@@@","")
end if
rsNew.close
set rsNew=nothing
end if
if nt2003.value="" then
strtemp = "<font color=#ff9900>·</font>沒有任何下載"
else
strrow=Split(nt2003.value,"@@@")
for i = 0 to UBound(strrow)-1
strcol=Split(strrow(i),"|||")
strtemp = strtemp & "<table width=100% border=0 cellpadding=0 cellspacing=0><tr><td><font color=#ff9900>·</font><a href=‘soft_Class.asp?ClassID="&strcol(1)&"‘><font color=#4474A3>[" & conn.execute("select * from softClass where ClassID = "& strcol(1))("ClassName") & "]</font></a><a href=‘Soft_Show.asp?SoftID=" & strcol(0) & "‘ title=‘軟件名稱：" & strcol(2) & vbcrlf & "軟件版本：" & strcol(3) & vbcrlf & "文件大?。? & strcol(11) & " K" & vbcrlf & "軟件作者：" & strcol(4) & vbcrlf & "更新時(shí)間：" & strcol(5) & vbcrlf & "下載次數(shù)：今日:" & strcol(8) & " 本周:" & strcol(9) & " 本月:" & strcol(10) & " 總計(jì):" & strcol(7) & "‘ target=‘_blank‘>" & gotTopic(strcol(2) & " " & strcol(3),30) & "</td><td align=right>["
if CDate(FormatDateTime(strcol(5),2))=date() then
strtemp = strtemp & "<font color=red>"
else
strtemp = strtemp & "<font color=#999999>"
end if
if month(strcol(5))<10 then
strtemp = strtemp & "0"
end if
strtemp = strtemp & month(strcol(5)) & "-"
if day(strcol(5))<10 then
strtemp = strtemp & "0"
end if
strtemp = strtemp & day(strcol(5)) & "</font>]</td></tr></table>"
next
end if
ShowNewSoft=strtemp
end function
點(diǎn)擊修改生效
[83] 問:
如何不顯示最新欄目文章標(biāo)題后的時(shí)間
文件function.asp：
‘*************************************************
‘緩存文章欄目
‘=================================================
‘過程名：ArticleContentshiyu
‘作 用：顯示文章屬性、標(biāo)題、作者、更新日期、點(diǎn)擊數(shù)等信息
‘參 數(shù)：intTitleLen ----標(biāo)題最多字符數(shù)，一個(gè)漢字=兩個(gè)英文字符
‘ ShowProperty ----是否顯示文章屬性（固頂/推薦/普通），True為顯示，F(xiàn)alse為不顯示
‘ ShowIncludePic ---是否顯示“[圖文]”字樣，True為顯示，F(xiàn)alse為不顯示
‘ ShowAuthor -------是否顯示文章作者，True為顯示，F(xiàn)alse為不顯示
‘ ShowDateType -----顯示更新日期的樣式，0為不顯示，1為只顯示月日，2為顯示年月日。
‘ ShowHits ---------是否顯示文章點(diǎn)擊數(shù)，True為顯示，F(xiàn)alse為不顯示
‘ ShowHot ----------是否顯示熱門文章標(biāo)志，True為顯示，F(xiàn)alse為不顯示
‘=================================================
strtemp = strtemp & ArticleContentshiyu(20,True,True,False,1,False,False)
< p="">
