Question

内页如何设置网站标题?

我的网站是www.szbeijia.com www.szshihan.net www.szswer.com 我现在想用内页优化关键词,但是每个页面的标题都是一样的?如何解决啊.

Answer 1

Left函数截取'获取对应ID的上下篇文章
FunctionGetNext(tab,id)
str=""
str=str&"<span>下一篇：</span>"&GetRecord(tab,">"&id)&"<br/>"&vbcrlf
str=str&"<span>上一篇：</span>"&GetRecord(tab,"<"&id&"OrderByIDDesc")
GetNext=str
EndFunctionFunctionGetRecord(tab,sqlstr)
DimRsn,strn
CallOpenObj(Rsn,"SelectTop1Title,FilePathFrom"&tab&"Wheresh=1Andid"&sqlstr,1)
IfNotRsn.EofThen
strn="<ahref='"&Rsn(1)&"'title='"&Rsn(0)&"'>"&Left(Rsn(0),30)&"</a>"
Else
strn="没有了!"
EndIf
CallCloseObj(Rsn)
GetRecord=strn
EndFunctionSubOpenObj(Obj,sql,ty)
SetObj=Server.CreateObject("ADODB.RECORDSET")
Obj.OpenSql,conn,1,ty
EndSubSubCloseObj(Obj)
Obj.close()
SetObj=Nothing
EndSub

Answer 2

谢谢分享好的经验,学习是必需的！经验学习中！