www.gusucode.com > 淘乐网源码 2.0源码程序 > index_taoule.asp
<%
q=trim(request("tao") & "")
if q = "" then
strdbname="data/tao.mdb"
strConn = "driver={Microsoft Access Driver (*.mdb)};PWD=;DBQ="&server.MapPath(strdbname)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionTimeout = 30
Conn.CommandTimeout = 30
On Error Resume Next
Conn.Open strConn
strnum = mynum
strtablefiledid="s_pk_id"
strtablefiledword="s_file_name"
straddtop="top 10 "
strtablename="dt_site_file"
strsql = "select "& straddtop &" "& strtablefiledid &","& strtablefiledword &" from "& strtablename &" "
strnewlist = ""
i=1
set rs=conn.execute(strsql)
while not rs.eof
strid=trim(rs(strtablefiledid)& "")
strtitle=trim(rs(strtablefiledword)& "")
straddpre=""
if i=5 then
straddpre="<br>"
end if
strnewlist= straddpre & "<a href=""/"& strid &".htm"">" & strtitle & "</a> " & strnewlist
rs.movenext
i=i+1
wend
rs.close
set rs=nothing
%><html>
<head><title>淘乐网-淘乐宝贝、名站导航，尽在淘乐网!</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
<meta http-equiv="Content-Language" content="zh-cn"/>
<meta name="keywords" content="淘乐网、淘乐宝贝、名站导航" />
<meta name="description" content="淘乐宝贝、名站导航 ~ 全力打造中国最大淘乐搜索,淘乐资料交流平台网站。 " />
<meta content="Copyright 2010 www.taoule.com" name="copyright"/>
<style type=text/css>
body,div,ul{margin:0 auto; padding:0;font-family:arial;font-size:15px;}
.topbar{color:#656565; height:28px;width:100%; list-style:none outside none; padding:0;}
.topbar li{ float:right; margin-top:7px;height:12px;margin-right:10px;}
.topbar li.lefta{float:left; margin-left:7px; border:0; padding:0;}
A:link { COLOR: #0066CC; FONT-SIZE: 16px; TEXT-DECORATION: none;}
A:visited { COLOR: #0066CC; FONT-SIZE: 16px; TEXT-DECORATION: none;}
A:hover { COLOR: #0066CC; FONT-SIZE: 16px; TEXT-DECORATION: underline;}
A:active { COLOR: #0066CC; FONT-SIZE: 16px; TEXT-DECORATION: underline;}
.aa{clear:both;text-align:center;line-height:150%}
</style>
</head>
<body><div class="topbar"><li>登录</li></div><div align=center style="padding-top:80px;line-height:150%"><a href=/><img alt="淘乐网" src="images/taoule.jpg" border=0/></a><form method=get name=frm action="?"><input name="tao" type="text" maxlength="200" style="font-size:Medium;width:500px;" /> <input type="submit" value="taoule搜索" style="font-size:Medium;" /></div></form><div class=aa>最近关注：<%=strnewlist%></div><div align=center class=aa><span style="font-size:12px;">Copyright © 2010-2012 <a href="http://www.taoule.com/" style="font-size:12px;">WWW.TAOULE.COM</a> All Rights Reserved, Powered BY 淘乐网. </span><a style="font-size:9pt;" href="javascript:window.external.AddFavorite('http://www.taoule.com/','淘乐一下,快乐无穷');">添加收藏</a> </div><br><div align=center style="font-size:9pt;">欢迎进入本站学习淘乐知识，本站全部资料由人工依据客观条件整理内容和归类。</div>
</body></html><%else%><!--#include file=funcc.asp--><html><head><title><%=q%>-淘乐网</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
<meta http-equiv="Content-Language" content="zh-cn"/>
<meta name="keywords" content="<%=q%>" />
<meta name="description" content="<%=q%>,淘乐搜" />
<style type=text/css>
em{font-style:normal;color:#c60a00;font-size:18px;font-family:"Arial";}
input{COLOR:#333333;height:26px;font-size:16px;LINE-HEIGHT: 20px;font-family:"Arial","宋体","sans-serif";}
BODY{font-family:"宋体";margin-left:5px;margin-top:0px;margin-right:5px;}
td,div{FONT-size:12px;LINE-HEIGHT:150%;}
form{margin:0px;}
img{border:0px;}
A:link { COLOR: #0066CC; FONT-SIZE: 12px; TEXT-DECORATION: underline;}
A:visited { COLOR: #0066CC; FONT-SIZE: 12px; TEXT-DECORATION: underline;}
A:hover { COLOR: #0066CC; FONT-SIZE: 12px; TEXT-DECORATION: underline;}
A:active { COLOR: #FF0000; FONT-SIZE: 12px; TEXT-DECORATION: underline;}
A.taoule:link { COLOR: black; FONT-SIZE: 16px; TEXT-DECORATION: underline;}
A.taoule:visited { COLOR: #0066CC; FONT-SIZE: 16px; TEXT-DECORATION: underline; }
A.taoule:hover { COLOR: black; FONT-SIZE: 16px; TEXT-DECORATION: underline;}
A.taoule:active { COLOR: black; FONT-SIZE: 16px TEXT-DECORATION: underline;}
A.taoule1:link { COLOR: #0066CC; FONT-SIZE: 13px; TEXT-DECORATION: underline;font-family:"Arial","宋体","sans-serif";}
A.taoule1:visited { COLOR: #0066CC; FONT-SIZE: 13px; TEXT-DECORATION: underline; font-family:"Arial","宋体","sans-serif";}
A.taoule1:hover { COLOR: #0066CC; FONT-SIZE: 13px; TEXT-DECORATION: underline;font-family:"Arial","宋体","sans-serif";}
A.taoule1:active { COLOR: #0066CC; FONT-SIZE: 13px; TEXT-DECORATION: underline;font-family:"Arial","宋体","sans-serif";}
.taoulef{FONT-size: 12px;}
</style>
</head>
<body><%
strurl="http://www.yolku.com/so.aspx?q=" & q & "&pg=" & request("p")
strText=geturl(strurl)
strText = ReplaceTrim(strText)
strText=replace(strText,Chr(34),"")
strText=replace(strText,Chr(13),"")
strText=replace(strText,Chr(10),"")
strText=replace(strText,"$logo$","<table><tr><td width=120><a href=/><img src=images/taoule/logo.jpg></a></td><td valign=center>")
strText=replace(strText,"</form>","</form></td></tr></table>")
strText=replace(strText,"value=一下","value=taoule搜索")
strText=replace(strText,"class=a1","class=taoule")
strText=replace(strText,"class=a3","class=taoule1")
strText=replace(strText,"class=f12","")
strText=replace(strText,"?q=","?tao=")
strText=replace(strText,"&pg=","&p=")
strText=replace(strText,"#008000","#9A9B9B")
strsv1=""
strsv2=""
if strText <> "" then
strTextA = split(strText,"$==$")
strsvtemp= ""
for i=0 to ubound(strTextA)
strsv=strTextA(i)
select case i
case 0
strsv = replace(strsv,"name=q type=text value=","name=tao type=text value=""")
strsv = replace(strsv," size=50>",""" size=50>")
response.write strsv
case 1
strsvtemp = replace(strsv,"<br>","")
case 2
strsv1="<table width=100% border=0 cellpadding=1 cellspacing=1><tr><td align=right style=""BORDER-TOP: #c0c0ff 1px solid;BACKGROUND-COLOR: #eeeeff;""><span style=float:left> <A style=""COLOR: #0000ff"" onclick=""this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.taoule.com')"" href=""javascript:void(0);"">把淘乐搜加入收藏</A></span>"& strsvtemp & strsv &"</td></tr></table>"
strsv1 = replace(strsv1,"<font >","")
strsv1 = replace(strsv1,"</font>","")
case 3
strsv2 = strsv
case 4
strsv2 = strsv2 & "<br>" & strsv
case else
end select
next
end if
%><%=strsv1%><table border=0 width=100%><tr><td><%=strsv2%></td><td width=250> </td></tr></table></body></html>
<%end if%>