IDC资讯中心
今天对 车米网 的论坛作了优化，发现动网论坛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 boardid<>”all” and isnumeric(boardid) then
if boardid=444 then
response.write “document.write (错误的版块参数，调用被中止！”
response.end
else
board=” and boardid=”&cint(boardid)
if lock=3 then board=” and boardid in (select boardid from board where parentid=”&cint(boardid)&”) “
end if
end if
if lock=1 then
board=” and boardid not in (“&lockboardid&”) “
elseif lock=2 then
board=” and boardid in (“&lockboardid&”) “
end if
dvbbs.getforum_setting
connectiondatabase
if sdate<>”” and isnumeric(sdate) then
sdate=cint(sdate)
if issqldatabase=1 then
searchdate=” and datediff(day,dateandtime,”&sqlnowstring&”)<“&sdate
else
searchdate=” and datediff(d,dateandtime,”&sqlnowstring&”)<“&sdate
end if
else
searchdate=””
end if
if action=1 then
显示主题
if orders=2 then orders=”lastposttime,”
if orders=4 then orders=””
set rs=conn.execute(“select top “&n&” postusername,title,topicid,boardid,dateandtime,topicid,hits,expression,lastpost from dv_topic where boardid<>444 “&board&searchdate&” order by “&orders&” topicid desc”)
elseif action=2 then
显示精华主题
if searchdate<>”” then searchdate=replace(searchdate,” and”,” where”)
if searchdate=”” and board<>”” then board=replace(board,” and”,” where”)
set rs=conn.execute(“select top “&n&” postusername,title,rootid,boardid,dateandtime,announceid,id,expression from dv_besttopic “&board&searchdate&” order by “&orders&” id desc”)
else
显示主题或回复
set rs=conn.execute(“select top “&n&” username,topic,rootid,boardid,dateandtime,announceid,body,expression from “&dvbbs.nowusebbs&” where (not boardid=444) “&board&searchdate&” order by “&orders&” announceid desc”)
end if
if not rs.eof then
sql=rs.getrows(-1)
else
response.write “暂未有新帖子！”
response.end
end if
rs.close
set rs=nothing
for i=0 to ubound(sql,2)
topic=sql(1,i)
if topic=”” then
topic=sql(6,i)
end if
topic=stringhtml(topic)
if len(topic)>cint(tlen) then
topic=left(topic,tlen)&”…”
end if
postname=sql(0,i)
posttime=sql(4,i)
if action=1 and reply=1 then
if sql(8,i)<>”” then
postinfo=split(sql(8,i),”$”)
postname=postinfo(0)
posttime=postinfo(2)
end if
end if
response.write “<li class=list>”
if showpic=1 then
response.write “<img src=”””&picurl&sql(7,i)&””” border=0 >”
else
end if
if bname=1 then
set ars=conn.execute(“select boardtype from dv_board where boardid=”&sql(3,i))
boardname=ars(0)
ars.close
response.write “[<a href=”&bbsurl&”list.asp?boardid=”&sql(3,i)&” target=””_blank””>”&dvbbs.htmlencode(boardname)&”</a>] “
end if
response.write “<a href=”&bbsurl&”printpage.asp?boardid=”&sql(3,i)&”&id=”&sql(2,i)&”&replyid=”&sql(5,i)&” target=””_blank”” title=”&topic&”>”
response.write “”&topic&””
response.write “</a>”
select case cint(info)
case 0
case 1
response.write “(<a href=”&bbsurl&”dispuser.asp?name=”&postname&” target=_blank>”&postname&”</a>,<font color=green>”&formatdatetime(posttime,0)&”</font>)”
case 2
response.write “(<font color=green>”&posttime&”</font>)”
case 3
response.write “(<a href=”&bbsurl&”dispuser.asp?name=”&postname&” target=_blank>”&postname&”</a>)”
case 4
response.write “(<a href=”&bbsurl&”dispuser.asp?name=”&postname&” target=_blank>”&postname&”</a>”
if cint(action)=1 then response.write “,<font color=green>”&sql(6,i)&”</font>”
response.write “)”
case 5
if cint(action)=1 then
response.write “(<font color=green>”&sql(6,i)&”</font>)”
end if
case 6
response.write “(<a href=”&bbsurl&”dispuser.asp?name=”&postname&” target=_blank>”&postname&”</a>,<font color=green>”&formatdatetime(posttime,1)&”</font>)”
case 7
response.write “(<font color=green>”&formatdatetime(posttime,1)&”</font>)”
case else
end select
response.write “</li>”
k=k+1
next
call closeobject
sub closeobject()
set template = nothing
set myboardonline = nothing
set dvbbs = nothing
set conn = nothing
end sub
function stringhtml(str)
dim re
set re=new regexp
re.ignorecase =true
re.global=true
re.pattern=”<(.*)>”
str=re.replace(str, “”)
re.pattern=”\[(.*)\]”
str=re.replace(str, “”)
str = replace(str, chr(34), “”””)
str = replace(str, chr(39), “\”)
str = replace(str, chr(13), “”)
str = replace(str, chr(10), “”)
str = replace(str, “>”, “>”)
str = replace(str, “<“, “<”)
if str=”” then str=”…”
stringhtml=str
end function
%>
</div>
</div>
</body>
</html>
效果见http://bbs.my-car.cn/newtopic
然后再去修改indexnew.asp，加上这个页面的索引就行了。
剩下的大家去挖掘吧~哈哈
