回复:<title></title>能改一改么 ?
内容页“show.asp”中改成:
Dim Url,Html,start,over,RsBK
Url= RUrl & request.ServerVariables("QUERY_STRING")
msg = getHTTPPage(Url)
start=Instr(msg,"<title>") +7
over=Instr(msg,"</title>")
-16
RsBK=mid(msg,start,over-start)
分类页“list.asp”中改成:
Dim Url,Html,start,over,RsBK
Url= RUrl & Request("class")
msg = getHTTPPage(Url)
start=Instr(msg,"<title>") + 7
over=Instr(msg,"</title>")
-8
RsBK=mid(msg,start,over-start)
测试了一下,OK了!
http://www.w2kdy.com