對動網論壇作搜尋引擎最佳化

來源:互聯網
上載者:User
搜尋引擎|最佳化|搜尋引擎|最佳化
今天對 車米網 的論壇作了最佳化,發現動網論壇7.0本來就考慮到了搜尋引擎的問題,只需要簡單修改就可以很好的最佳化了.

動網論壇採用javascript+模版的方式顯示頁面,伺服器將沒有深加工的資料和js代碼一起發送到用戶端解析,減輕了伺服器負擔,但是搜尋引擎一般不會解析javascript代碼的,不過動網論壇的主要頁面都有判斷瀏覽器類型,如果是搜尋引擎,自動跳轉到專門為瀏覽器顯示的頁面,但是這些頁面做得不是太好,下面是我修改的結果:


昨天我把論壇的meta標籤的description部分去掉,google發現這個標籤後就會忽略下面的內容,直接區標籤中的內容。

修改index.asp:

      將函數Sub Show_Index_Footer()中的

Dim BrowserType

If BrowserType.IsSearch Then Response.redirect "indexNew.asp"

提升到index.asp的前面,讓頁面一檢測到是搜尋引擎就跳轉到最佳化後的頁面,原來那樣子的結果是google僅僅抓取了Show_Index_Footer()中的資訊,前面的都給忽略了。

修改indexnew.asp

將Dvbbs.head()改為Dvbbs.head()

注釋掉

Dvbbs.ActiveOnline()

Show_Index_Top

Show_Index_Footer

Response.Write Replace(template.html(9),"{$Getlink}",Getlink())

If Dvbbs.Forum_setting(29)="1" Then Call birthuser()

Dvbbs.Footer()

Response.Write Dvbbs.value

Response.Write template.html(8)(1)

這樣子跳轉後的首頁顯示的就相對比較簡單了,但是代碼還是有些冗餘,如果想再精簡些,就不要用dvbbs的模版了,直接用asp產生靜態頁面,能去掉的都去掉。

同樣修改list_show.asp

將Dvbbs.head()改為Dvbbs.head()

注釋掉

News

Board_Online

Show_List_Footer

Dvbbs.ActiveOnline()

Dvbbs.Footer()

再修改printpage.asp

如果你的論壇需要註冊使用者才能瀏覽,而你又要搜尋引擎能夠抓取資訊的話,把If Dvbbs.GroupSetting(2)="0"  Then Dvbbs.AddErrcode(31)這行注釋掉。

其他的沒什麼好改的,這個頁面的模版已經做得非常精簡了,你可以試著修改page_postjob模版來增加些其他的串連。

下面作一個更有實際效果的索引頁面,很多不錯的php論壇都有這樣的頁面,效果很好:

建立一個目錄,隨便什麼,然後在裡面建立一個index.asp檔案,這個檔案的代碼我直接用了動網論壇的newtopic.asp,把裡面的js去掉就行了:

<!--#include file="../conn.asp"-->
<!--#Include File="../inc/Dv_ClsMain.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<title>車米網</title>
<link rel="stylesheet" href="../style.css" type="text/css" />
</head>
<body>
<div class="main">
<div class="top"><a href="../index.asp">車米網</a> - 論壇新貼</div>
<div class="body">
<%
'DVBBS 7.0 動網論壇首頁調用-----主題調用
dim bbsurl,lockboardid,picurl
'############以下為修改項######################
dim lockurl
lockurl=""
'只允許調用網址,要以"HTTP://"開頭,為空白則不開放此功能.(可允許多網址限制,要以","分隔。)
'例如只允許此兩個網址調用: lockurl="http://www.artistsky.net/,http://www.artbbs.net/"
bbsurl="http://bbs.my-car.cn/"       '請填寫你論壇的正確地址,要以"HTTP://"開頭
lockboardid="1,2,3"          '請填寫限制調用的論壇版塊ID,用逗號隔開。(當lock參數為1,2時生效)
picurl="http://bbs.my-car.cn/skins/default/topicface/" '心情表徵圖目錄位址
'############以上為修改項######################
'bbsurl=getservepath(request.ServerVariables("server_name")&request.ServerVariables("URL"))
'function getservepath(str)
'dim tmpstr
'tmpstr=split(str,"/")
'getservepath="http://"&replace(str, tmpstr(ubound(tmpstr)), "")
'end function
'*************************************
'上傳到與CONN.ASP同級的目錄下
'以上地址參數一定要修改,否則所調用的連結是去了以上的論壇.
'若有問題,可以運行一起上傳的newscode.ASP檔案進行調試(newscode.ASP運行前要修改調用參數)
' FSSUNWIN 2003.12.31
'*************************************
'if trim(lockurl)<>"" and checkserver(lockurl)=false then
' response.write "document.write ('資料被保護,禁止被其他網站調用!"
' response.end 
'end if

Private function checkserver(str)
 dim i,servername
 checkserver=false
 if str="" then exit function
 str=split(Cstr(str),",")
 servername=Request.ServerVariables("HTTP_REFERER")
 for i=0 to Ubound(str)
 if right(str(i),1)="/" then str(i)=left(trim(str(i)),len(str(i))-1)
  if Lcase(left(servername,len(str(i))))=Lcase(str(i)) then
   checkserver=true
   exit for
  else
   checkserver=false
  end if
 next
end function

dim rs,sql
dim orders,reply,topic,isbest,lock,board,action,info,tlen,showpic
dim bname,ars
dim postinfo,postname,POSTTIME
dim NowUseBbs,boardname,boardid
dim i,k,n,sdate,searchdate
 i=0:k=0
 lock=0  'cint(trim(request("lock")))
 orders=4 'trim(request("orders"))
 boardid="all" 'trim(request("boardid"))
 sdate=3 'trim(request("sdate"))
 action=1 'cint(request("action"))
 info=3  'request("info")
 tlen=16  'request("tlen")
 reply=0  'request("reply")
 showpic=0 'request("showpic")
 n=100  'trim(request("n"))
 bname=0  'request("bname")
 if n<>"" and IsNumeric(n) then
 n=cint(n)
 else
 n=1
 end if

 if orders=1 then
  orders="hits desc,"
 Elseif orders=2 or orders=3 then
  orders="dateandtime desc,"
 end if
 If boar



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。