<% dim ReqURL,Num Num=1 ReqURL=Request.ServerVariables("Path_Info") ReqURL=Split(ReqURL,"_") 'Response.Write ReqURL(ubound(ReqURL)) if len(ReqURL(ubound(ReqURL)))<10 then dim ReqURL2 ReqURL2=Split(ReqURL(ubound(ReqURL)),".") 'Response.Write "
"&ReqURL2(0) Num=ReqURL2(0) End if %>
你现在所在位置： 首页 > 新闻 > 性感网坛

栏目导航
性感网坛 - 全部内容
    <% dim rs,sql,path set rs=Server.CreateObject("ADODB.RecordSet") path="\0111" sql="SELECT * FROM documents_view WHERE (GETDATE() - PublishDate <= 180) AND (Path LIKE '"&path&"') order by PublishDate DESC" rs.open sql,conn2,1 if not rs.Eof then rs.pagesize=40 rs.AbsolutePage=Num dim i i=40 do while not Rs.Eof and i>0 i=i-1 strRedirectUrl="" if hasRedirectUrl(rs("content")) then strRedirectUrl=getRedirectUrl(rs("content")) if len(strRedirectUrl)>10 then %>
  • <%=rs("publishdate")%> <% response.write left(rs("subject"),40)%>
    • <% else %>
  • <%=rs("publishdate")%> " target="_blank"> <% response.write left(rs("subject"),40)%>
    • <% end if rs.movenext loop end if rs.close %>
Copyright © 1996 - 2006 tennis.com.cn, All Rights Reserved
隐私保护 版权所有 网球网
ICP备案　　经营许可证编号:京ICP证040749号
<% function hasRedirectUrl(s) dim bRet,ss bRet=false str=s&"" set xml = Server.CreateObject("Microsoft.XMLDOM") xml.async = False xml.loadXML(str) k=xml.documentElement.childNodes(1).childNodes.length If k>=4 Then ss=xml.documentElement.childNodes(1).selectSingleNode("redirecturl").text if len(ss)>10 then bRet=true Else End If set xml=nothing hasRedirectUrl=bRet end function function getRedirectUrl(str) dim sRet,ss ss="" sRet="" s=str&"" set xml = Server.CreateObject("Microsoft.XMLDOM") xml.async = False xml.loadXML(s) ss=xml.documentElement.childNodes(1).selectSingleNode("redirecturl").text 'Response.write(xml.documentElement.childNodes(1).childNodes(1).text) 'Response.end if instr(ss,".")>1 then sRet=ss set xml=nothing getRedirectUrl=sRet end function conn2.close %>