<%@language=vbscript codepage=936 %> <% option explicit response.buffer=false const ChannelID=0 const SkinID=0 %> <% dim sqlLink,rsLink,LinkType,MaxPerPage LinkType=trim(request("LinkType")) strFileName="index.asp?LinkType=" & LinkType MaxPerPage=20 PageTitle="友情链接" sqlLink="select * from PE_FriendSite where IsOK=1 " if LinkType<>"" then LinkType=CInt(LinkType) if LinkType=1 then sqlLink=sqlLink & " and LinkType=1 " elseif LinkType=2 then sqlLink=sqlLink & " and LinkType=2 " end if end if sqlLink=sqlLink & " order by id desc" set rsLink=server.createobject("adodb.recordset") rsLink.open sqlLink,conn,1,1 %> 快乐十分杀号公式表:<%=strPageTitle & " >> " & PageTitle%> - ▼快乐十分钟彩票▼广西快乐十分走势▼广西福彩快乐十分▼快乐十分钟开奖结果▼广西快乐十分▼ <% =GetSkin_CSS() %>
申请友情链接 | 文字链接 | LOGO链接 | 所有链接
<% if rsLink.eof and rsLink.bof then response.write "
目前共有 0 个友情链接
" else totalPut=rsLink.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent response.write showpage(strFileName,totalput,MaxPerPage,true,true,"个站点") else if (currentPage-1)*MaxPerPage
  • 空调还装墙壁上?聪明人都是往这里装,好看又省地 ——凤凰网房产 2018-07-25
  • 超200种常用处方药有致抑郁可能 2018-07-25
  • 交通小事故,几分钟就能处理完 2018-07-24
  • 女大学生被求购穿过没洗的袜子 学者恋物癖需治疗 2018-07-24
  • 名下有未报废车辆但驾照到期能否更换新驾照? 2018-07-23
  • 石家庄:把中山路打造成省会第一繁华商业大道 2018-07-22
  • 小米发布红米66A:搭载12nm制程处理器 599元起售 2018-07-22
  • 诗经讲演录:男子如何从好色转为好德? 2018-07-21
  • 湖州:公积金基数6月起将调整 2018-07-20
  • 拥有大智慧的中国古人就把“子”和“女”结合在一体,造出一个会意字“好”字。一直就用这个“好”的感觉结果去衡量其它任何生存环境中的万物万事所给人的感觉。 2018-07-19
  • 中日韩三国记者聚焦郑各庄,探究中国农村主动城市化新思路 2018-07-18
  • 342| 248| 868| 938| 98| 714| 809| 556| 821| 92| <% rsLink.close set rsLink=nothing call CloseConn() sub showContent dim i i=0 response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" do while not rsLink.eof response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" i=i+1 if i>=MaxPerPage then exit do rsLink.movenext loop response.write "
    链接类型网站名称网站LOGO网站简介站长操作
    " if rsLink("LinkType")=1 then response.write "LOGO链接" else response.write "文字链接" end if response.write "" & rsLink("SiteName") & "" if rsLink("LinkType")=1 then if rsLink("LogoUrl")<>"" and rsLink("LogoUrl")<>"//" then if lcase(right(rsLink("LogoUrl"),3))="swf" then Response.Write "" else response.write "" end if else response.write "" end if else response.write " " end if response.write "" & rsLink("SiteIntro") & "" & rsLink("SiteAdmin") & "" response.write "快乐十分钟彩票 " response.write "删除" response.write "
    " end sub %>