www.gusucode.com > Follow me超级搜索引擎 > admin/htmlindex.asp

    <%
set rs=server.createobject("adodb.recordset")
sql="select * from adminuser  "
rs.open sql,conn,1,3
set rs1=server.createobject("adodb.recordset")
sql1="select * from mob where  id=1 "
rs1.open sql1,conn,1,3

indexmb=rs1("mb")
rs1.close:set rs1 = nothing

ibaiduzh=rs("baiduzh")

if rs("googlezh")="" then
igooglezh="pub-1291838625141786"
else
igooglezh=rs("googlezh")
end if
if rs("xunleizh")="" then
ixunleizh="8441"
else
ixunleizh=rs("xunleizh")
end if
if rs("sogouzh")="" then
isogouzh="follow110"
else
isogouzh=rs("sogouzh")
end if
indexmb=Replace(indexmb,"<!-webname->",rs("webname"))
indexmb=Replace(indexmb,"<!-myurl->",rs("myurl"))
indexmb=Replace(indexmb,"<!-title->",rs("title"))
indexmb=Replace(indexmb,"<!-keywords->",rs("keywords"))
indexmb=Replace(indexmb,"<!-bbsgcolor->",rs("bbsgcolor"))
indexmb=Replace(indexmb,"<!-logo->",rs("logo"))
indexmb=Replace(indexmb,"<!-anname->",rs("anname"))
indexmb=Replace(indexmb,"<!-gg1->",rs("gg1"))
indexmb=Replace(indexmb,"<!-gg2->",rs("gg2"))
indexmb=Replace(indexmb,"<!-baiduzh->",ibaiduzh)
indexmb=Replace(indexmb,"<!-googlezh->",igooglezh)
indexmb=Replace(indexmb,"<!-xunleizh->",ixunleizh)
indexmb=Replace(indexmb,"<!-sogouzh->",isogouzh)
indexmb=Replace(indexmb,"<!-gg3->",rs("gg3"))
indexmb=Replace(indexmb,"<!-ccount->",rs("ccount"))

if rs("sfblank") = "1" then
sssfblank="target='_blank'"
end if
indexmb=Replace(indexmb,"<!-sssfblank->",sssfblank)

if rs("sfcz")=1 then
ssfczz="float:left;"
ssfcz="<div class='wzkss' >网址快速搜索</div><div><input name='sitekeyword' id='sitekeyword'  type='text' value='输入关键字搜索' onmouseover=this.select(); onfocus=this.value=='输入关键字搜索'?this.value='':''; onblur=this.value==''?this.value='输入关键字搜索':'' onkeydown='KeyDown()' onkeyup='input()'/></div><div id='eddc' ><div id='indexhtml'  class='indexhtml'></div></div>"
end if
indexmb=Replace(indexmb,"<!-ssfczz->",ssfczz)
indexmb=Replace(indexmb,"<!-ssfcz->",ssfcz)


set rs3=server.createobject("adodb.recordset")
sql3="select * from typeindex where i=1  "
rs3.open sql3,conn,1,3
indexmb=Replace(indexmb,"<!-sitename1->",rs3("name"))
set rs4=server.createobject("adodb.recordset")
sql4="select * from urlindex where indexshow like 'yes' and id like '"&rs3("i")&"' order by indexid desc,i "
rs4.open sql4,conn,1,3
do while Not Rs4.eof
siteweb=siteweb&"<li><a href='"&trim(rs4("weburl"))&"' target='_blank'>"&trim(rs4("name"))&"</a></li>"

Rs4.movenext
loop
rs4.close
Set rs4 = Nothing
rs3.close
Set r3 = Nothing
indexmb=Replace(indexmb,"<!-site_web->",siteweb)


set rs3=server.createobject("adodb.recordset")
sql3="select * from typeindex where i=2  "
rs3.open sql3,conn,1,3
indexmb=Replace(indexmb,"<!-sitename2->",rs3("name"))
set rs4=server.createobject("adodb.recordset")
sql4="select * from urlindex where indexshow like 'yes' and id like '"&rs3("i")&"' order by indexid desc,i "
rs4.open sql4,conn,1,3
do while Not Rs4.eof
sitephoto=sitephoto&"<li><a href='"&trim(rs4("weburl"))&"' target='_blank'>"&trim(rs4("name"))&"</a></li>"

Rs4.movenext
loop
rs4.close
Set rs4 = Nothing
rs3.close
Set r3 = Nothing
indexmb=Replace(indexmb,"<!-site_photo->",sitephoto)


set rs3=server.createobject("adodb.recordset")
sql3="select * from typeindex where i=3  "
rs3.open sql3,conn,1,3
indexmb=Replace(indexmb,"<!-sitename3->",rs3("name"))
set rs4=server.createobject("adodb.recordset")
sql4="select * from urlindex where indexshow like 'yes' and id like '"&rs3("i")&"' order by indexid desc,i "
rs4.open sql4,conn,1,3
do while Not Rs4.eof
sitemusic=sitemusic&"<li><a href='"&trim(rs4("weburl"))&"' target='_blank'>"&trim(rs4("name"))&"</a></li>"

Rs4.movenext
loop
rs4.close
Set rs4 = Nothing
rs3.close
Set r3 = Nothing
indexmb=Replace(indexmb,"<!-site_music->",sitemusic)


set rs3=server.createobject("adodb.recordset")
sql3="select * from typeindex where i=12  "
rs3.open sql3,conn,1,3
indexmb=Replace(indexmb,"<!-sitename4->",rs3("name"))
set rs4=server.createobject("adodb.recordset")
sql4="select * from urlindex where indexshow like 'yes' and id like '"&rs3("i")&"' order by indexid desc,i "
rs4.open sql4,conn,1,3
do while Not Rs4.eof
sitevideo=sitevideo&"<li><a href='"&trim(rs4("weburl"))&"' target='_blank'>"&trim(rs4("name"))&"</a></li>"

Rs4.movenext
loop
rs4.close
Set rs4 = Nothing
rs3.close
Set r3 = Nothing
indexmb=Replace(indexmb,"<!-site_video->",sitevideo)

set rs3=server.createobject("adodb.recordset")
sql3="select * from typeindex where i=13  "
rs3.open sql3,conn,1,3
indexmb=Replace(indexmb,"<!-sitename5->",rs3("name"))
set rs4=server.createobject("adodb.recordset")
sql4="select * from urlindex where indexshow like 'yes' and id like '"&rs3("i")&"' order by indexid desc,i "
rs4.open sql4,conn,1,3
do while Not Rs4.eof
sitegame=sitegame&"<li><a href='"&trim(rs4("weburl"))&"' target='_blank'>"&trim(rs4("name"))&"</a></li>"

Rs4.movenext
loop
rs4.close
Set rs4 = Nothing
rs3.close
Set r3 = Nothing
indexmb=Replace(indexmb,"<!-site_game->",sitegame)

set rs3=server.createobject("adodb.recordset")
sql3="select * from typeindex where i=14  "
rs3.open sql3,conn,1,3
indexmb=Replace(indexmb,"<!-sitename6->",rs3("name"))
set rs4=server.createobject("adodb.recordset")
sql4="select * from urlindex where indexshow like 'yes' and id like '"&rs3("i")&"' order by indexid desc,i "
rs4.open sql4,conn,1,3
do while Not Rs4.eof
siteknow=siteknow&"<li><a href='"&trim(rs4("weburl"))&"' target='_blank'>"&trim(rs4("name"))&"</a></li>"

Rs4.movenext
loop
rs4.close
Set rs4 = Nothing
rs3.close
Set r3 = Nothing
indexmb=Replace(indexmb,"<!-site_know->",siteknow)


set rs3=server.createobject("adodb.recordset")
sql3="select * from typeindex where i=15  "
rs3.open sql3,conn,1,3
indexmb=Replace(indexmb,"<!-sitename7->",rs3("name"))
set rs4=server.createobject("adodb.recordset")
sql4="select * from urlindex where indexshow like 'yes' and id like '"&rs3("i")&"' order by indexid desc,i "
rs4.open sql4,conn,1,3
do while Not Rs4.eof
sitenews=sitenews&"<li><a href='"&trim(rs4("weburl"))&"' target='_blank'>"&trim(rs4("name"))&"</a></li>"

Rs4.movenext
loop
rs4.close
Set rs4 = Nothing
rs3.close
Set r3 = Nothing
indexmb=Replace(indexmb,"<!-site_news->",sitenews)

set rs3=server.createobject("adodb.recordset")
sql3="select * from typeindex where i=16  "
rs3.open sql3,conn,1,3
indexmb=Replace(indexmb,"<!-sitename8->",rs3("name"))
set rs4=server.createobject("adodb.recordset")
sql4="select * from urlindex where indexshow like 'yes' and id like '"&rs3("i")&"' order by indexid desc,i "
rs4.open sql4,conn,1,3
do while Not Rs4.eof
sitesoftware=sitesoftware&"<li><a href='"&trim(rs4("weburl"))&"' target='_blank'>"&trim(rs4("name"))&"</a></li>"

Rs4.movenext
loop
rs4.close
Set rs4 = Nothing
rs3.close
Set r3 = Nothing
indexmb=Replace(indexmb,"<!-site_software->",sitesoftware)

set rs3=server.createobject("adodb.recordset")
sql3="select * from typeindex where i=17  "
rs3.open sql3,conn,1,3
indexmb=Replace(indexmb,"<!-sitename9->",rs3("name"))
set rs4=server.createobject("adodb.recordset")
sql4="select * from urlindex where indexshow like 'yes' and id like '"&rs3("i")&"' order by indexid desc,i "
rs4.open sql4,conn,1,3
do while Not Rs4.eof
sitedict=sitedict&"<li><a href='"&trim(rs4("weburl"))&"' target='_blank'>"&trim(rs4("name"))&"</a></li>"

Rs4.movenext
loop
rs4.close
Set rs4 = Nothing
rs3.close
Set r3 = Nothing
indexmb=Replace(indexmb,"<!-site_dict->",sitedict)

set rs3=server.createobject("adodb.recordset")
sql3="select * from typeindex where i=233  "
rs3.open sql3,conn,1,3
indexmb=Replace(indexmb,"<!-sitename10->",rs3("name"))
set rs4=server.createobject("adodb.recordset")
sql4="select * from urlindex where indexshow like 'yes' and id like '"&rs3("i")&"' order by indexid desc,i "
rs4.open sql4,conn,1,3
do while Not Rs4.eof
siteother=siteother&"<li><a href='"&trim(rs4("weburl"))&"' target='_blank'>"&trim(rs4("name"))&"</a></li>"

Rs4.movenext
loop
rs4.close
Set rs4 = Nothing
rs3.close
Set r3 = Nothing
indexmb=Replace(indexmb,"<!-site_other->",siteother)

Set Fso3=Server.CreateObject("Scripting.FileSystemObject")  '创建fso对象
Set Fout3=Fso3.CreateTextFile(server.mappath("../index.htm"))
Fout3.WriteLine indexmb
Fout3.Close
rs.close:set rs= nothing
%>