|
<%=iso8_ads01%> |
<%=iso8_ads02%> |
|
|
推荐栏目：
<%
Set ads=Server.CreateObject("Adodb.Recordset")
SqlT="select top 8 id,iso8_title,iso8_url,iso8_se from iso8_ads where iso8_weizhi=1 and iso8_time>now() order by iso8_top desc,id"
ads.open SQLT,conn,1,1
numrow2=0
if ads.EOF and ads.BOF then
response.write "暂时没有内容"
else
numRows=0
While (Not ads.EOF)
if ads("iso8_se")=0 then
response.write " "&ads("iso8_Title")&""
else
if ads("iso8_se")=1 then
response.write " "&ads("iso8_Title")&""
else
if ads("iso8_se")=2 then
response.write " "&ads("iso8_Title")&""
else
if ads("iso8_se")=3 then
response.write " "&ads("iso8_Title")&""
else
if ads("iso8_se")=4 then
response.write " "&ads("iso8_Title")&""
else
if ads("iso8_se")=5 then
response.write " "&ads("iso8_Title")&""
else
if ads("iso8_se")=6 then
response.write " "&ads("iso8_Title")&""
else
if ads("iso8_se")=7 then
response.write " "&ads("iso8_Title")&""
else
if ads("iso8_se")=8 then
response.write " "&ads("iso8_Title")&""
else
response.write " "&ads("iso8_Title")&""
end if
end if
end if
end if
end if
end if
end if
end if
end if
numRows=numRows+1
ads.MoveNext
if (numRows mod 8 =0) Then
numrow2=numrow2+1
end if
Wend
end if
ads.close
Set ads = Nothing
%>
|
|
 本站地图 →
<%
'统计
Set ClassCount=Server.CreateObject("Adodb.Recordset")
Sql= "Select * from feilei order by classid"
ClassCount.open Sql,conn,1,1
Set QCount=Server.CreateObject("Adodb.Recordset")
Q_Sql="Select * from detail"
QCount.open Q_Sql,conn,1,1
Set WebCount=Server.CreateObject("Adodb.Recordset")
Web_Sql="Select * from detail where verity=1"
WebCount.open Web_Sql,conn,1,1
Set FCount=Server.CreateObject("Adodb.Recordset")
F_Sql="Select * from detail where verity=0"
FCount.open F_Sql,conn,1,1
Set FFCount=Server.CreateObject("Adodb.Recordset")
FF_Sql="Select * from detail where verity=2"
FFCount.open FF_Sql,conn,1,1
%>
分类总数:(<%=ClassCount.RecordCount%>)个 / 网站总数:(<%=QCount.RecordCount%>)个 / 已审网站:(<%=WebCount.RecordCount%>)个 / 未审网站:(<%=FCount.RecordCount%>)个 / 拉黑网站:(<%=FFCount.RecordCount%>)个
<%
ClassCount.close
Set ClassCount = Nothing
QCount.close
Set QCount = Nothing
WebCount.close
Set WebCount = Nothing
FCount.close
Set FCount = Nothing
FFCount.close
Set FFCount = Nothing '统计结束
%>
|
|
<%
set rs(0)=server.createobject("adodb.recordset")
rs(0).open "select classid,pinyin,classname,verity from feilei where topclass=0",conn,1,3
while not rs(0).eof
fujia=""
response.write ""
call listunder(1)
rs(0).movenext
wend
rs(0).close
Set rs(0) = Nothing
%>
|
|