<% dim maindomain,constname set fs=server.createobject("scripting.filesystemobject") file=server.mappath("domain.txt") set txt=fs.opentextfile(file,1,true) if not txt.atendofstream then maindomain=txt.ReadAll end if txt.close '取常量 file=server.mappath("const.txt") set txt=fs.opentextfile(file,1,true) if not txt.atendofstream then constname=txt.ReadAll end if '读取站点 dim sitename set fs=server.createobject("scripting.filesystemobject") file=server.mappath("sitename.txt") set txt=fs.opentextfile(file,1,true) if not txt.atendofstream then sitename=txt.ReadAll end if txt.close %> <%=sitename%>
<% Function Frist_Pic(ByVal t0) Frist_Pic="" Dim Regs,Matches Set Regs=New RegExp Regs.Ignorecase=True Regs.Global=True Regs.Pattern="]+src=""([^"">]+)""[^>]*>" Set Matches=Regs.Execute(t0) IF Regs.test(t0) Then Frist_Pic=Matches(0).SubMatches(0) End IF Set Matches=Nothing Set Regs=Nothing End Function %> <% set rs=conn.execute("select top 20 log_ID,log_Title,log_Intro,log_Content,cate_URL,cate_name from blog_Article,blog_Category where blog_Category.cate_ID=blog_Article.log_CateID and log_istop<>-1") if not rs.eof then dim ii:ii=0 do while not rs.eof ii=ii+1 %>

<%=ii%>、.<%=maindomain%>/<%=rs("log_ID")%>.html" target="_blank"><%=rs("cate_name")%>的<%=rs("log_Title")%>

<%=replace(rs("log_Intro"),"upload/","zb_users/upload/")%>

.<%=maindomain%>/<%=Frist_Pic(replace(rs("log_Content"),"upload/","zb_users/upload/"))%>" />

…….<%=maindomain%>/<%=rs("log_ID")%>.html" target="_blank" title="<%=rs("cate_name")%>的<%=rs("log_Title")%>">》更多


<% rs.movenext loop end if rs.close set rs=nothing %>

把<%=sitename%>



 热门推荐:

    <% set rs=conn.execute("select top 9 cate_ID,cate_Name,cate_URL from blog_Category order by cate_Order,cate_ID desc") if not rs.eof then do while not rs.eof %>
  1. .<%=maindomain%>/" target="_blank"><%=rs("cate_Name")%><%=constname%>

  2. <% rs.movenext loop end if rs.close set rs=nothing %>


 最新发布:

    <% set rs=conn.execute("select top 9 cate_ID,cate_Name,cate_URL from blog_Category order by cate_id desc") if not rs.eof then do while not rs.eof %>
  1. .<%=maindomain%>/" target="_blank"><%=rs("cate_Name")%><%=constname%>

  2. <% rs.movenext loop end if rs.close set rs=nothing %>
本站关于<%=sitename%>,来源于网友投稿或发布(仅供参考),不能代表本网站观点,内容侵权或违规请你及时联系管理员删除 
Copyright 2017 www.<%=maindomain%>