<% Function delHtml(strHtml) '做了一个函数名叫delhtml Dim objRegExp, strOutput Set objRegExp = New Regexp ' 建立正则表达式 objRegExp.IgnoreCase = True ' 设置是否区分大小写 objRegExp.Global = True '是匹配所有字符串还是只是第一个 objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 设置模式引号中的是正则表达式,用来找出html标签 strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉 strOutput = Replace(strOutput, "<", "<") '防止非html标签不显示 strOutput = Replace(strOutput, ">", ">") delHtml = strOutput Set objRegExp = Nothing End Function %> <%=webname%>-<%=webkey%> <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where addid=1",conn,1,1 if rsad("moshi")=2 then %> <%=rsad("daima")%> <% end if %> 热门推荐 <% Sql1="Select * from article where best='3' order by articleid desc" set rsn=server.CreateObject("ADODB.RecordSet") rsn.open sql1,conn,1,1 if rsn.EOF or rsn.BOF then response.write ("没有信息!") else for i=1 to 3 %> [<% set rsx=server.CreateObject("adodb.recordset") rsx.open " select * from nclass where nclassid="&rsn("nclassid")&" ",conn,1,3 %><%=rsx("nclass")%>].htm" title="<%=rsn("article_title")%>"><%=replace(left(rsn("article_title"),16)," ","")%>.. <% rsn.movenext if rsn.eof or rsn.bof then exit for next rsn.close set rsn = nothing end if %> <% Sql1="Select * from article where best='1' order by articleid desc" set rsn=server.CreateObject("ADODB.RecordSet") rsn.open sql1,conn,1,1 if rsn.EOF or rsn.BOF then response.write ("没有信息!") else for i=1 to 9 %> .htm">[<% set rsx=server.CreateObject("adodb.recordset") rsx.open " select * from nclass where nclassid="&rsn("nclassid")&" ",conn,1,3 %><%=rsx("nclass")%>].htm" title="<%=rsn("article_title")%>"><%=left(replace(rsn("article_title")," ",""),16)%>.. <% rsn.movenext if rsn.eof or rsn.bof then exit for next rsn.close set rsn = nothing end if %> <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where addid=2",conn,1,1 if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if %> <% set rsn=server.createobject("adodb.recordset") sqla = "select * from anclass order by anclassid" rsn.Open sqla,conn,1,3 if rsn.EOF or rsn.BOF then response.write ("暂时没有任何信息!") end if %> <% i=1 while not rsn.eof%> .htm"><%=rsn("anclass")%> <% if rsn("banshi")=1 then%> <% set rsd=server.CreateObject("adodb.recordset") rsd.Open "select top 1 * from article where anclassid="&rsn("anclassid")&" and best='2' and tutui=2 order by articleid desc",conn,1,1 if rsd.EOF or rsd.BOF then response.write ("没有推荐!") else %> .htm"> <%tutu=rsd("article_pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if%> width="100" height="130"> .htm"><%=left(delhtml(rsd("article_info")),200)%>... <% end if %> <% set rsz=server.createobject("adodb.recordset") sqla = "select top 20 * from article where anclassid="&rsn("anclassid")&" and best='2' order by articleid desc" rsz.Open sqla,conn,1,3 if rsz.EOF or rsz.BOF then response.write ("暂无内容!") end if %> <% x=1 while not rsz.eof%> "><%=rsz("zhuanti")%>-.htm" title="<%=rsz("article_title")%>"><%=left(replace(rsz("article_title")," ",""),12)%>. <%if x mod 2 = 0 then response.write"" x=x+1 rsz.movenext wend %> <% end if %> <% if rsn("banshi")=2 then%> <% set rsf=server.CreateObject("adodb.recordset") rsf.Open "select top 3 * from article where anclassid="&rsn("anclassid")&" and tutui=3 order by articleid desc",conn,1,1 if rsf.EOF or rsf.BOF then response.write ("没有推荐!") end if %> <% k=1 while not rsf.eof%> <%tutu=rsf("article_pic")%> .htm"> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if%> width="130" height="90" class="border_all"> <%if k mod 3 = 0 then response.write"" k=k+1 rsf.movenext wend %> <% set rsz=server.createobject("adodb.recordset") sqla = "select top 20 * from article where anclassid="&rsn("anclassid")&" and best='2' order by articleid desc" rsz.Open sqla,conn,1,3 if rsz.EOF or rsz.BOF then response.write ("暂无内容!") end if %> <% x=1 while not rsz.eof%> "><%=rsz("zhuanti")%>-.htm" title="<%=rsz("article_title")%>"><%=left(replace(rsz("article_title")," ",""),12)%>. <%if x mod 2 = 0 then response.write"" x=x+1 rsz.movenext wend %> <% end if %> <% if rsn("banshi")=3 then%> <% set rsf=server.CreateObject("adodb.recordset") rsf.Open "select top 16 * from article where anclassid="&rsn("anclassid")&" and tutui< 4 order by articleid desc",conn,1,1 if rsf.EOF or rsf.BOF then response.write ("没有推荐!") end if %> <% k=1 while not rsf.eof%> <%tutu=rsf("article_pic")%> .htm"> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if%> width="100" height="90" class="border_all"> <%if k mod 4 = 0 then response.write"" k=k+1 rsf.movenext wend %> <% end if %> <% if rsn("banshi")=4 then%> <% set rsf=server.CreateObject("adodb.recordset") rsf.Open "select top 4 * from article where anclassid="&rsn("anclassid")&" and tutui=3 order by articleid desc",conn,1,1 if rsf.EOF or rsf.BOF then response.write ("没有推荐!") end if %> <% k=1 while not rsf.eof%> <%tutu=rsf("article_pic")%> .htm"> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if%> width="100" height="90" class="border_all"> <%if k mod 1 = 0 then response.write"" k=k+1 rsf.movenext wend %> <% set rsz=server.createobject("adodb.recordset") sqla = "select top 10 * from article where anclassid="&rsn("anclassid")&" and best='2' order by articleid desc" rsz.Open sqla,conn,1,3 if rsz.EOF or rsz.BOF then response.write ("暂无内容!") end if %> <% x=1 while not rsz.eof%> "><%=rsz("zhuanti")%>-.htm" title="<%=rsz("article_title")%>"><%=left(replace(rsz("article_title")," ",""),22)%>. <%if x mod 1 = 0 then response.write"" x=x+1 rsz.movenext wend %> <% end if %> <%if i mod 2 = 0 then shu=i/2 kku=cint(shu-1) %> <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where lei=1 order by addid desc ",conn,1,1 if not rsad.eof or not rsad.bof then rsad.absoluteposition=shu if rsad.RecordCount>kku then if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if end if end if %> <% end if%> <% i=i+1 rsn.movenext wend %>
" width="145" height="55"> 关于我们 | 联系我们 | 会员投稿 | 邮件订阅 首页 <% set rs=server.CreateObject("adodb.recordset") rs.open "select * from anclass",conn,1,3 if rs.EOF or rs.BOF then response.write ("没有文章!") end if do while not rs.eof %> .htm"><%=rs("anclass")%> <%rs.movenext loop rs.close%> <% if request.Cookies("user")("xb_user")="" then %> 会员登陆 帐号: 密码: 注册会员 <% else %> 欢迎登陆!您可以投稿和收藏文章 会员中心 | 注销登陆 <% end if %> 文章搜索 " width="145" height="55"> 关于我们 | 联系我们 | 会员投稿 | 邮件订阅 首页 <% set rs=server.CreateObject("adodb.recordset") rs.open "select * from anclass",conn,1,3 if rs.EOF or rs.BOF then response.write ("没有文章!") end if do while not rs.eof %> .htm"><%=rs("anclass")%> <%rs.movenext loop rs.close%> <% if request.Cookies("user")("xb_user")="" then %> 会员登陆 帐号: 密码: 注册会员 <% else %> 欢迎登陆!您可以投稿和收藏文章 会员中心 | 注销登陆 <% end if %> 文章搜索 <% set rst=server.CreateObject("adodb.recordset") rst.Open "select * from article where articleid="&request("id")&"",conn,1,1 %> -<%=rst("article_key")%>" /> -<%=rst("article_key")%>" /> <%=webname%>-<%=rst("article_title")%>-<%=rst("article_key")%> <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where addid=8",conn,1,1 if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if %> <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where addid=9",conn,1,1 if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if %> <% set rstutu=server.CreateObject("adodb.recordset") rstutu.Open "select top 5 * from article where tutui=1 order by articleid desc ",conn,1,1 do while not rstutu.eof %> src="<%=rstutu("article_pic")%>" <% else %> src="http://<%=weburl%>/<%=replace(rstutu("article_pic"),"../","")%>" <% end if%> width="180" height="180" class="border_all"> .htm"><%=rstutu("article_title")%> <% rstutu.movenext loop rstutu.close set rstutu = nothing %> <%=rst("article_title")%> 作者:<%=rst("zuozhe")%> 来源:<%=rst("article_lei")%> 时间:<%=rst("datetime")%> 点击:" width="40" height="20" border="0" marginwidth="0" marginheight="0" frameborder="0" scrolling="no"> 标签:<% b=rst("article_key") a=split(b,",") for I=0 to ubound(a) %><%=a(i)%> <% next %> ">收藏此文章 <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where addid=10",conn,1,1 if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if %> <%=rst("article_info")%> " style="color: #FF0000" target="_blank">点这里把文章推荐给好友 " width="350" height="130" border="0"> 本类最新文章 <% set rsa=server.createobject("adodb.recordset") sqla = "select top 6 * from article where anclassid="&rst("anclassid")&" order by articleid" rsa.Open sqla,conn,1,3 if rsa.EOF or rsa.BOF then response.write ("暂时没有任何信息!") end if %> <% i=1 while not rsa.eof%> .htm" target="_blank" title="<%=rsa("article_title")%>"><%=rsa("article_title")%> <%if i mod 3 = 0 then response.write"" i=i+1 rsa.movenext wend %> <% Function delHtml(strHtml) '做了一个函数名叫delhtml Dim objRegExp, strOutput Set objRegExp = New Regexp ' 建立正则表达式 objRegExp.IgnoreCase = True ' 设置是否区分大小写 objRegExp.Global = True '是匹配所有字符串还是只是第一个 objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 设置模式引号中的是正则表达式,用来找出html标签 strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉 strOutput = Replace(strOutput, "<", "<") '防止非html标签不显示 strOutput = Replace(strOutput, ">", ">") delHtml = strOutput Set objRegExp = Nothing End Function %> <% anid=request("anid") banshi=request("banshi") set rsan=server.CreateObject("adodb.recordset") rsan.Open "select * from anclass where anclassid="&anid&"",conn,1,1 %> 频道首页" /> 频道首页" /> <%=webname%>-<%=rsan("anclass")%>频道首页 <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where addid=13 ",conn,1,1 if not rsad.eof or not rsad.bof then rsad.absoluteposition=1 if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if end if %> <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where addid=14 ",conn,1,1 if not rsad.eof or not rsad.bof then rsad.absoluteposition=1 if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if end if %> 订阅本频道 网友投票 本频道精品文章 <% set rs1=server.CreateObject("adodb.recordset") rs1.Open "select top 25 * from article where best='2'and anclassid="&anid&" order by articleid desc",conn,1,1 if rs1.EOF or rs1.BOF then response.write ("没有文章!") end if do while not rs1.EOF if len(Trim(rs1("article_title")))>12 then atempTitle = Left(Trim(rs1("article_title")),10)&"." else atempTitle = Trim(rs1("article_title")) end if %> <% set rsx=server.CreateObject("adodb.recordset") rsx.open " select * from anclass where anclassid="&rs1("anclassid")&" ",conn,1,3 %> .htm"> <%=rsx("anclass")%> .htm" title="<%=rs1("article_title")%>"><%=replace(atemptitle," ","")%> <%rs1.movenext loop rs1.close set rs1 = nothing %> <%set rs1=server.CreateObject("adodb.recordset") rs1.Open "select * from article where tutui=1 order by articleid desc",conn,1,1 if rs1.RecordCount>4 then%> src="<%=pp01%>" <% else %> src="http://<%=weburl%>/<%=replace(pp01,"../","")%>" <% end if%> width="131" height="100" class="border_all"> src="<%=pp02%>" <% else %> src="http://<%=weburl%>/<%=replace(pp02,"../","")%>" <% end if%> width="131" height="100" class="border_all"> src="<%=pp03%>" <% else %> src="http://<%=weburl%>/<%=replace(pp03,"../","")%>" <% end if%> width="131" height="100" class="border_all"> src="<%=pp04%>" <% else %> src="http://<%=weburl%>/<%=replace(pp04,"../","")%>" <% end if%> width="131" height="100" class="border_all"> src="<%=pp05%>" <% else %> src="http://<%=weburl%>/<%=replace(pp05,"../","")%>" <% end if%> width="131" height="100" class="border_all"> <%=replace(tt01," ","")%> <%=replace(tt02," ","")%> <%=replace(tt03," ","")%> <%=replace(tt04," ","")%> <%=replace(tt05," ","")%> <% end if %> <% set rsa=server.createobject("adodb.recordset") sqla = "select top 9 * from article where best='2' and anclassid="&anid&" order by articleid" rsa.Open sqla,conn,1,3 if rsa.EOF or rsa.BOF then response.write ("暂时没有任何信息!") end if %> <% i=1 while not rsa.eof%> <% set rsx=server.CreateObject("adodb.recordset") rsx.open " select * from anclass where anclassid="&rsa("anclassid")&" ",conn,1,3 %> .htm" target="_blank" title="<%=rsx("anclass")%>">[<%=rsx("anclass")%>].htm" target="_blank" title="<%=rsa("article_title")%>"><%=replace(rsa("article_title")," ","")%> <%if i mod 3 = 0 then response.write"" i=i+1 rsa.movenext wend %> 本频道专题列表 <% set rsz=server.createobject("adodb.recordset") sqla = "select * from zt where anclassid="&anid&" order by ztid desc" rsz.Open sqla,conn,1,3 if rsz.EOF or rsz.BOF then response.write ("暂时没有专题!") end if %> <% i=1 while not rsz.eof%> "><%=rsz("zhuanti")%> <%if i mod 5 = 0 then response.write"" i=i+1 rsz.movenext wend %> <% set rsn=server.createobject("adodb.recordset") sqla = "select * from nclass where anclassid="&anid&" order by nclassid" rsn.Open sqla,conn,1,3 if rsn.EOF or rsn.BOF then response.write ("暂时没有任何信息!") end if %> <% i=1 while not rsn.eof%> .htm"><%=rsn("nclass")%> <% if banshi=1 then%> <% set rsd=server.CreateObject("adodb.recordset") rsd.Open "select top 1 * from article where nclassid="&rsn("nclassid")&" and tutui=2 order by articleid desc",conn,1,1 if rsd.EOF or rsd.BOF then response.write ("没有推荐!") else %> .htm"> <%tutu=rsd("article_pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if%> width="100" height="130"> .htm"><%=left(delhtml(rsd("article_info")),180)%>... <% end if %> <% set rsz=server.createobject("adodb.recordset") sqla = "select top 20 * from article where nclassid="&rsn("nclassid")&" order by articleid desc" rsz.Open sqla,conn,1,3 if rsz.EOF or rsz.BOF then response.write ("暂无内容!") end if %> <% x=1 while not rsz.eof%> "><%=rsz("zhuanti")%>-.htm" title="<%=rsz("article_title")%>"><%=left(replace(rsz("article_title")," ",""),18)%>. <%if x mod 1 = 0 then response.write"" x=x+1 rsz.movenext wend %> <% end if %> <% if banshi=2 then%> <% set rsf=server.CreateObject("adodb.recordset") rsf.Open "select top 2 * from article where nclassid="&rsn("nclassid")&" and tutui=3 order by articleid desc",conn,1,1 if rsf.EOF or rsf.BOF then response.write ("没有推荐!") end if %> <% h=1 while not rsf.eof%> <%tutu=rsf("article_pic")%> .htm"> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if%> width="130" height="90" class="border_all"> <%if h mod 2 = 0 then response.write"" h=h+1 rsf.movenext wend %> <% set rsz=server.createobject("adodb.recordset") sqla = "select top 20 * from article where nclassid="&rsn("nclassid")&" order by articleid desc" rsz.Open sqla,conn,1,3 if rsz.EOF or rsz.BOF then response.write ("暂无内容!") end if %> <% l=1 while not rsz.eof%> "><%=rsz("zhuanti")%>-.htm" title="<%=rsz("article_title")%>"><%=left(replace(rsz("article_title")," ",""),22)%>. <%if l mod 1 = 0 then response.write"" l=l+1 rsz.movenext wend %> <% end if %> <% if banshi=3 then%> <% set rsf=server.CreateObject("adodb.recordset") rsf.Open "select top 12 * from article where nclassid="&rsn("nclassid")&" order by articleid desc",conn,1,1 if rsf.EOF or rsf.BOF then response.write ("没有推荐!") end if %> <% k=1 while not rsf.eof%> <%tutu=rsf("article_pic")%> .htm"> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if%> width="100" height="90" class="border_all"> <%if k mod 3 = 0 then response.write"" k=k+1 rsf.movenext wend %> <% end if %> <% if banshi=4 then%> <% set rsf=server.CreateObject("adodb.recordset") rsf.Open "select top 3 * from article where nclassid="&rsn("nclassid")&" and tutui=3 order by articleid desc",conn,1,1 if rsf.EOF or rsf.BOF then response.write ("没有推荐!") end if %> <% k=1 while not rsf.eof%> <%tutu=rsf("article_pic")%> .htm"> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if%> width="100" height="90" class="border_all"> <%if k mod 1 = 0 then response.write"" k=k+1 rsf.movenext wend %> <% set rsz=server.createobject("adodb.recordset") sqla = "select top 10 * from article where nclassid="&rsn("nclassid")&" order by articleid desc" rsz.Open sqla,conn,1,3 if rsz.EOF or rsz.BOF then response.write ("暂无内容!") end if %> <% x=1 while not rsz.eof%> "><%=rsz("zhuanti")%>-.htm" title="<%=rsz("article_title")%>"><%=left(replace(rsz("article_title")," ",""),13)%>. <%if x mod 1 = 0 then response.write"" x=x+1 rsz.movenext wend %> <% end if %> <%if i mod 2 = 0 then shu=i/2 kku=cint(shu-1) %> <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where lei="&request("anid")&" order by addid desc ",conn,1,1 if not rsad.eof or not rsad.bof then rsad.absoluteposition=shu if rsad.RecordCount>kku then if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if end if end if %> <% end if%> <% i=i+1 rsn.movenext wend %> <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where lei="&anid&"",conn,1,1 if not rsad.eof or not rsad.bof then if rsad.RecordCount>1 then rsad.absoluteposition=2 if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if end if end if %> <%=webname%> 版权所有 Copyright© 2007-2010 关于我们 | 联系我们 | 网站声明 <%=webbanner%> <% Set Rsm=Server.CreateObject("adodb.recordSet") Sql="Select top 1 * from Counter1" Rsm.open Sql,conn,1,3 %> <% if rsm("out")=1 then %> 在线数据:<%=application("onlineusers")%>; 今日访问数:<% =Rsm("Today") %>;今日页面访问次数:<% =Rsm("Browser") %>;总访问数:<% =Rsm("Counter") %> <%=rsm("daima")%> <%end if %> 会员注册 <% set rs=server.CreateObject("adodb.recordset") rs.open "select * from xiang",conn,1,3 %> 帐 号: 密 码: 密码验证: 名 字: 电子邮箱: 会员登陆 用户名称: 登陆密码: <% anid=request("anid") nid=request("nid") Sql="Select * from anclass where anclassid="&anid&"" Sql1="Select * from nclass where nclassid="&nid&"" Sql2="Select * from article where nclassid="&nid&" order by articleid desc" set rsn=server.CreateObject("ADODB.RecordSet") rsn.open sql1,conn,1,1 Sql2="Select * from article where anclassid="&anid&" order by articleid desc" set rsa=server.CreateObject("ADODB.RecordSet") rsa.open sql,conn,1,1 set rs3=server.CreateObject("ADODB.RecordSet") rs3.open sql2,conn,1,1 %> <%=webname%>- <%=rsn("nclass")%>" 所有内容列表 <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where addid=13",conn,1,1 if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if %> <%=webname%>- <%=rsa("anclass")%>-<%=rsn("nclass")%> 所有内容列表 <% if rs3.EOF or rs3.BOF then response.write ("没有您要查的信息,请重新输入关键词") else if request("page")<>"" then nowpage=cint(request("page")) '--通过表单或来指定页数 else nowpage=1 end if all=rs3.recordcount rs3.pagesize=10 '---每页5个记录 rs3.AbsolutePage=nowpage '---把页数赋给rs.absolutepage来读取数据 for i=1 to rs3.pagesize '-----用For循环输出数据 if rs3.eof then exit for '-----当输到数据尾时跳出For循环 %> 文章标题:.htm" target="_blank"><%=rs3("article_title")%> 收录日期:<%=rs3("datetime")%> 作者:<%=rs3("zuozhe")%> <% rs3.movenext '----到下一个记录 next end if %> <% if all="" then %> 共有0条记录符合 <% else %> <%=all%>条记录符合 <% end if%> 转到 <% for i=1 to rs3.pagecount %> <% if anid="" then if i=1 then %> <% else %> <% end if %> <% else if i=1 then %> <% else %> <% end if %> <% end if%> <%=i%> <% next%> 页 <% if anid="" then %> <% else %> <% end if %> 第一页 <% if anid="" then if rs3.pagecount<2 then %> <% else %> <% end if %> <% else %> <% if rs3.pagecount<2 then %> <% else %> <% end if%> <% end if %> 最后一页 <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where addid=14",conn,1,1 if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if %> <%if session("xbadmin")="" then response.Redirect "login.asp" end if %> <% anid=request("anid") nid=request("nid") Sql="Select * from anclass where anclassid="&anid&"" Sql1="Select * from nclass where nclassid="&nid&"" Sql2="Select * from article where nclassid="&nid&" order by articleid desc" set rsn=server.CreateObject("ADODB.RecordSet") rsn.open sql1,conn,1,1 Sql2="Select * from article where anclassid="&anid&" order by articleid desc" set rsa=server.CreateObject("ADODB.RecordSet") rsa.open sql,conn,1,1 set rs3=server.CreateObject("ADODB.RecordSet") rs3.open sql2,conn,1,1 %> <%=webname%>- <%=rsn("nclass")%>" 所有内容列表 所有内容列表 <% if rs3.EOF or rs3.BOF then response.write ("没有您要查的信息,请重新输入关键词") else if request("page")<>"" then nowpage=cint(request("page")) '--通过表单或来指定页数 else nowpage=1 end if all=rs3.recordcount rs3.pagesize=10 '---每页5个记录 rs3.AbsolutePage=nowpage '---把页数赋给rs.absolutepage来读取数据 for i=1 to rs3.pagesize '-----用For循环输出数据 if rs3.eof then exit for '-----当输到数据尾时跳出For循环 %> 文章标题:.htm" target="_blank"><%=rs3("article_title")%> 收录日期:<%=rs3("datetime")%> 作者:<%=rs3("zuozhe")%> <% rs3.movenext '----到下一个记录 next end if %> <% if all="" then %> 共有0条记录符合 <% else %> <%=all%>条记录符合 <% end if%> 转到 <% for i=1 to rs3.pagecount %> <%=i%> <% next%> 页 第一页 最后一页 <% if request("banshi")=3 then response.redirect "xbyadmin/sc/scnclass1.asp?nid="&nid&"&page="&rs3.pagecount&"&anid="&anid&"" else response.redirect "xbyadmin/sc/scnclass.asp?nid="&nid&"&page="&rs3.pagecount&"&anid="&anid&"" end if %> <%=webname%>-文章搜索 <% key=replace(trim(request("key")),"'","") if len(key)>3 then key1=left(key,2) else key1=key end if if len(key)>3 then key2=right(key,2) else key2=key end if if key="" then response.write"" response.end End if set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from kw where key='"&key&"' ",conn,1,3 if rs1.bof and rs1.eof then set rs=server.CreateObject("adodb.recordset") rs.open " select * from kw ",conn,1,3 rs.addnew rs("key")=trim(request("key")) rs("ci")=1 rs.update rs.close else rs1("ci")=rs1("ci")+1 rs1.update rs1.close set rs1=nothing end if Function delHtml(strHtml) '做了一个函数名叫delhtml Dim objRegExp, strOutput Set objRegExp = New Regexp ' 建立正则表达式 objRegExp.IgnoreCase = True ' 设置是否区分大小写 objRegExp.Global = True '是匹配所有字符串还是只是第一个 objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 设置模式引号中的是正则表达式,用来找出html标签 strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉 strOutput = Replace(strOutput, "<", "<") '防止非html标签不显示 strOutput = Replace(strOutput, ">", ">") delHtml = strOutput Set objRegExp = Nothing End Function Sql2="Select * from article where InStr(1,LCase(article_title),LCase('"&key&"'),0)<>0 or InStr(1,LCase(article_key),LCase('"&key&"'),0)<>0 or InStr(1,LCase(article_info),LCase('"&key&"'),0)<>0 or InStr(1,LCase(zuozhe),LCase('"&key&"'),0)<>0 or InStr(1,LCase(zhuanti),LCase('"&key&"'),0)<>0 or InStr(1,LCase(article_title),LCase('"&key1&"'),0)<>0 or InStr(1,LCase(article_key),LCase('"&key1&"'),0)<>0 or InStr(1,LCase(article_info),LCase('"&key1&"'),0)<>0 or InStr(1,LCase(zuozhe),LCase('"&key1&"'),0)<>0 or InStr(1,LCase(article_title),LCase('"&key2&"'),0)<>0 or InStr(1,LCase(article_key),LCase('"&key2&"'),0)<>0 or InStr(1,LCase(article_info),LCase('"&key2&"'),0)<>0 or InStr(1,LCase(zuozhe),LCase('"&key2&"'),0)<>0 order by articleid desc" set rs3=server.CreateObject("ADODB.RecordSet") rs3.open sql2,conn,1,1 %> <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where addid=11",conn,1,1 if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if %> 文章搜索结果-搜索关键字: <%=trim(request("key"))%> <% if rs3.EOF or rs3.BOF then response.write ("没有您要查的信息,请重新输入关键词") else if request("page")<>"" then nowpage=cint(request("page")) '--通过表单或来指定页数 else nowpage=1 end if all=rs3.recordcount rs3.pagesize=10 '---每页5个记录 rs3.AbsolutePage=nowpage '---把页数赋给rs.absolutepage来读取数据 for i=1 to rs3.pagesize '-----用For循环输出数据 if rs3.eof then exit for '-----当输到数据尾时跳出For循环 %> 分类:<% set rsx=server.CreateObject("adodb.recordset") rsx.open " select * from anclass where anclassid="&rs3("anclassid")&" ",conn,1,3 %><%=rsx("anclass")%> 文章:.htm" target="_blank"><%=Replace(Replace(Replace(rs3("article_title"),key,""&key&""),key1,""&key1&""),key2,""&key2&"")%> 收录日期:<%=rs3("datetime")%> 作者:<%=Replace(Replace(Replace(rs3("zuozhe"),key,""&key&""),key1,""&key1&""),key2,""&key2&"")%> <% if len(rs3("article_info"))>200 then info1=delhtml(rs3("article_info")) info=left(info1,200) else info=delhtml(rs3("article_info")) end if %> .htm" target="_blank"> <%=Replace(Replace(Replace(info,key,""&key&""),key1,""&key1&""),key2,""&key2&"")%> <% rs3.movenext '----到下一个记录 next end if %> <% if all="" then %> 文章搜索结果------共有0条记录符合 <% else %> 文章搜索结果------共有<%=all%>条记录符合 <% end if%> 转到 <% for i=1 to rs3.pagecount %> <%=i%> <% next%> 页 第一页 最后一页 <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where addid=12",conn,1,1 if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if %> <%=webname%>-文章专题 <% key=replace(trim(request("key")),"'","") Function delHtml(strHtml) '做了一个函数名叫delhtml Dim objRegExp, strOutput Set objRegExp = New Regexp ' 建立正则表达式 objRegExp.IgnoreCase = True ' 设置是否区分大小写 objRegExp.Global = True '是匹配所有字符串还是只是第一个 objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 设置模式引号中的是正则表达式,用来找出html标签 strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉 strOutput = Replace(strOutput, "<", "<") '防止非html标签不显示 strOutput = Replace(strOutput, ">", ">") delHtml = strOutput Set objRegExp = Nothing End Function Sql2="Select * from article where zhuanti like '%"&key&"%' order by articleid desc" set rs3=server.CreateObject("ADODB.RecordSet") rs3.open sql2,conn,1,1 %> <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where addid=13",conn,1,1 if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if %> 专题文章搜索结果-搜索关键字: <%=trim(request("key"))%> <% if rs3.EOF or rs3.BOF then response.write ("没有您要查的信息,请重新输入关键词") else if request("page")<>"" then nowpage=cint(request("page")) '--通过表单或来指定页数 else nowpage=1 end if all=rs3.recordcount rs3.pagesize=10 '---每页5个记录 rs3.AbsolutePage=nowpage '---把页数赋给rs.absolutepage来读取数据 for i=1 to rs3.pagesize '-----用For循环输出数据 if rs3.eof then exit for '-----当输到数据尾时跳出For循环 %> 分类:<% set rsx=server.CreateObject("adodb.recordset") rsx.open " select * from anclass where anclassid="&rs3("anclassid")&" ",conn,1,3 %><%=rsx("anclass")%> 文章:.htm" target="_blank"><%=Replace(Replace(Replace(rs3("article_title"),key,""&key&""),key1,""&key1&""),key2,""&key2&"")%> 收录日期:<%=rs3("datetime")%> 作者:<%=Replace(Replace(Replace(rs3("zuozhe"),key,""&key&""),key1,""&key1&""),key2,""&key2&"")%> <% if len(rs3("article_info"))>200 then info1=delhtml(rs3("article_info")) info=left(info1,200) else info=delhtml(rs3("article_info")) end if %> .htm" target="_blank"> <%=Replace(Replace(Replace(info,key,""&key&""),key1,""&key1&""),key2,""&key2&"")%> <% rs3.movenext '----到下一个记录 next end if %> <% if all="" then %> 专题文章搜索结果------共有0条记录符合 <% else %> 文章搜索结果------共有<%=all%>条记录符合 <% end if%> 转到 <% for i=1 to rs3.pagecount %> <%=i%> <% next%> 页 第一页 最后一页 最新专题 <% set rsz=server.createobject("adodb.recordset") sqla = "select top 100 * from zt order by ztid desc" rsz.Open sqla,conn,1,3 if rsz.EOF or rsz.BOF then response.write ("暂时没有专题!") end if %> <% i=1 while not rsz.eof%> "><%=rsz("zhuanti")%> <%if i mod 2 = 0 then response.write"" i=i+1 rsz.movenext wend %> <% set rsad=server.CreateObject("adodb.recordset") rsad.Open "select * from add1 where addid=12",conn,1,1 if rsad("moshi")<>3 then if rsad("moshi")=2 then %> <%=rsad("daima")%> <% else %> "> <%tutu=rsad("pic")%> src="<%=tutu%>" <% else %> src="http://<%=weburl%>/<%=replace(tutu,"../","")%>" <% end if %> > <% end if end if %>