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 %>