<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
c=request("c")
if c="" then c=25 '这里要改哦
m=1 '缺省是多页，如果改成其他的就只显示一页
pageurl="link.asp" '本页的URL，一定要改
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={sql server};server=s2.linkdata.cn;uid=linkdata_link;pwd=123456;database=linkdata_link"
set objresult=server.CreateObject("adodb.recordset")
sql="select * from 链接 where 行业类别ID="&c&" and (客户类别ID<4 or 客户类别ID=5) order by newid()"
objresult.Open sql,conn,3,3
if objresult.eof then
response.write "暂时没有相关信息"
else
link="
"
do while not objresult.eof
title=gettitle(objresult("title"),objresult("关键词二"),objresult("关键词三"),objresult("关键词四"),objresult("关键词五"))
'URL=GetURL(objresult("URL"),objresult("URL2"),objresult("URL3"),objresult("URL4"),objresult("URL5"))
URL=objresult("URL") '感觉应该是固定链，加域名较好，让留言本去加内页吧
temp="
"&title&"-"&objresult("网站标题")
if len(objresult("网站描述"))>2 then temp=temp&" "&trim(objresult("网站描述"))
link=link&temp
objresult.movenext
loop
link=link&"
"
end if
objresult.Close
set objresult=nothing
page="其他类别："
set objresult=server.CreateObject("adodb.recordset")
sql="select * from 行业类别 order by newid()"
objresult.open sql,conn,3,3
do while not objresult.eof
if not isnull(objresult("关键词")) then page=page&""&objresult("关键词")&" "
if objresult("id")-c=0 then pagetitle=objresult("关键词")
objresult.movenext
loop
objresult.Close
set objresult=nothing
if m=1 then link=page+" "+link '输出有两个变量link和pagetitle
Function GetTitle(title1,title2,title3,title4,title5)
Randomize
rndno = rnd()
if isnull(title2) then title2=title1+"公司" 'anchor text不要总是一样
if isnull(title3) then title3=title1+"网"
gettitle=title1
if rndno>0.2 then gettitle=title2
if rndno>0.4 then gettitle=title3
if rndno>0.6 then gettitle=title4
if rndno>0.8 then gettitle=title5
if isnull(gettitle) then gettitle=title1
end function
Function GetURL(URL1,URL2,URL3,URL4,URL5)
Randomize
rndno = rnd()
geturl=url1
if rndno>0.2 then GetURL=URL2
if rndno>0.4 then GetURL=URL3
if rndno>0.6 then GetURL=URL4
if rndno>0.8 then GetURL=URL5
if isnull(getURL) then getURL=URL1
end function
%>
<%=pagetitle%>网站介绍 - 昌舜电磁线有限公司
