| 【军事、装备】 |
<%
set rs=server.createobject("ADODB.recordset")
rs.open"select top 1 * from main where newsname='军事、装备'order by newsid desc",conn,1,3
%>
<%=rs("content")%> |
<%
rs.close
set rs=nothing
%>
|
|
|
|
|
|
|
| 【足球、NBA、高尔夫】 |
<%
set strrs=server.createobject("ADODB.recordset")
strrs.open"select top 1 smallpicture,newsid from sport_picture where category='足球' order by newsid desc",strconn,3,3,-1
do while not strrs.EOF%>
|
<%
strrs.MoveNext
Loop
strrs.close
set strrs=nothing
%>
|
|
|
<%
set strrs=server.createobject("ADODB.recordset")
strrs.open"select top 1 newsname,filepath from complex_football order by newsid desc",strconn,2,3,-1
%>
<%do while not strrs.EOF%>
· |
[足球]
" target="_blank"><%=left(strrs("newsname"),23)%> |
<%
strrs.MoveNext
Loop
strrs.Close
set strrs=nothing
%>
· |
<%
set strrs=server.createobject("ADODB.recordset")
strrs.open"select top 1 newsname,filepath from spain_football order by newsid desc",strconn,2,3,-1
%>
<%do while not strrs.EOF%>
| " target="_blank"><%=left(strrs("newsname"),26)%> |
<%
strrs.MoveNext
Loop
strrs.Close
set strrs=nothing
%>
|
· |
<%
set strrs=server.createobject("ADODB.recordset")
strrs.open"select top 1 newsname,filepath from italy_football order by newsid desc",strconn,2,3,-1
%>
<%do while not strrs.EOF%>
| " target="_blank"><%=left(strrs("newsname"),26)%> |
<%
strrs.MoveNext
Loop
strrs.Close
set strrs=nothing
%>
|
· |
<%set strrs=server.createobject("ADODB.recordset")
strrs.open"select top 1 newsname,filepath from sport_basketball where category='NBA' order by newsid desc",strconn,2,3,-1%>
<%do while not strrs.EOF%>
[NBA]
" target="_blank"><%=left(strrs("newsname"),23)%> |
<%
strrs.MoveNext
Loop
strrs.Close
set strrs=nothing
%>
· |
<%
set strrs=server.createobject("ADODB.recordset")
strrs.open"select top 1 newsname,filepath from sport_basketball where category='中国男篮' order by newsid desc",strconn,2,3,-1
%>
<%do while not strrs.EOF%>
" target="_blank"><%=left(strrs("newsname"),26)%> |
<%
strrs.MoveNext
Loop
strrs.Close
set strrs=nothing
%>
· |
<%set strrs=server.createobject("ADODB.recordset")
strrs.open"select top 1 newsname,filepath from sport_tennisball where category='网球首页' and detail='焦点要闻' order by newsid desc",strconn,0,3,-1%>
<%do while not strrs.EOF%>
[网球]
" target="_blank"><%=left(strrs("newsname"),13)%> |
<%strrs.MoveNext
Loop
strrs.Close
set strrs=nothing
%>
<%set strrs=server.createobject("ADODB.recordset")
strrs.open"select top 1 newsname,filepath from sport_tennisball where category='网球首页' and detail='中国军团' order by newsid desc",strconn,2,3,-1%>
<%do while not strrs.EOF%>
" target="_blank"><%=left(strrs("newsname"),8)%> |
<%
strrs.MoveNext
Loop
strrs.Close
set strrs=nothing
%>
· |
<%set strrs=server.createobject("ADODB.recordset")
strrs.open"select top 1 newsname,filepath from sport_goaf where category='高尔夫新闻' order by newsid desc",strconn,2,3,-1%>
<%do while not strrs.EOF%>
[高尔夫]
" target="_blank"><%=left(strrs("newsname"),12)%> |
<%strrs.MoveNext
Loop
strrs.Close
set strrs=nothing
%>
<%set strrs=server.createobject("ADODB.recordset")
strrs.open"select top 1 filepath,newsname from sport_goaf where category='高尔夫装备' order by newsid desc",strconn,2,3,-1%>
<%do while not strrs.EOF%>
" target="_blank"><%=left(strrs("newsname"),8)%> |
<%
strrs.MoveNext
Loop
strrs.Close
set strrs=nothing
%>
|
|
<%
set strrs=server.createobject("ADODB.recordset")
strrs.open"select top 1 newsid,smallpicture from sport_picture where category='赛车' order by newsid desc",strconn,3,3,-1
do while not strrs.EOF%>
|
<%
strrs.MoveNext
Loop
strrs.close
set strrs=nothing
%>
|
|
|
|
|
|
| 【数码、科技】 |
<%
set rs=server.createobject("ADODB.recordset")
rs.open"select top 1 * from main where newsname='数码、科技'order by newsid desc",conn,1,3
%>
<%=rs("content")%> |
<%
rs.close
set rs=nothing
%>
<%
Set strconn = Server.CreateObject("ADODB.Connection")
strconn.Open "driver={sql server};server=127.0.0.1;uid=aatvxinwen;pwd=woai,aatv;database=aatvtechdb"
set strrs=server.CreateObject("adodb.recordset")
sql="select top 11 filepath,newsname from tech_news order by newsid desc"
strrs.open sql,strconn,2,3
%>
<%do while not strrs.eof%>
· |
" target="_blank" class="blueness">
<%=left(strrs("newsname"),19)%> |
<%
strrs.movenext
loop
strrs.close
set strrs=nothing
strconn.close
set strconn=nothing
%>
|
|
|
|
|
| 【娱乐、美容、生活】 |
<%
Set wconn = Server.CreateObject("ADODB.Connection")
wconn.Open "driver={sql server};server=127.0.0.1;uid=aatvxinwen;pwd=woai,aatv;database=aatvwomandb"
set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 smallpicture,filepath from woman_decoration_picture where category='服装' order by newsid desc",wconn,3,3,-1
do while not wrs.EOF%>
|
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
%>
|
· |
<%set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 filepath,newsname from woman_decoration where category='最新款式' order by newsid desc",wconn,2,3,-1%>
<%do while not wrs.EOF%>
" target="_blank">
<%
title=wrs("newsname") '将数据库字段值赋到某变量上
i=16 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%> |
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
%>
· |
<%
set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 newsname,filepath from woman_decoration where category='流行风' order by newsid desc",wconn,2,3,-1
%>
<%do while not wrs.EOF%>
" target="_blank">
<%
title=wrs("newsname") '将数据库字段值赋到某变量上
i=16 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
%>
· |
<%set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 newsname,filepath from woman_decoration where category='最新潮流' order by newsid desc",wconn,2,3,-1%>
<%do while not wrs.EOF%>
" target="_blank">
<%
title=wrs("newsname") '将数据库字段值赋到某变量上
i=16 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
%>
· |
<%set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 newsname,filepath from woman_decoration where category='首饰保养' order by newsid desc",wconn,2,3,-1%>
<%do while not wrs.EOF%>
" target="_blank">
<%
title=wrs("newsname") '将数据库字段值赋到某变量上
i=16 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
%>
|
|
<%
Set mconn = Server.CreateObject("ADODB.Connection")
mconn.Open "driver={sql server};server=127.0.0.1;uid=aatvxinwen;pwd=woai,aatv;database=aatventdb"
set mrs=server.createobject("ADODB.recordset")
mrs.open"select top 1 newsname,filepath from star_news where category='电影' order by newsid desc",mconn,2,3,-1
%>
<%do while not mrs.EOF%>
· |
[内地]
" target="_blank">
<%
title=mrs("newsname") '将数据库字段值赋到某变量上
i=24 '定义固定大小 13
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
mrs.MoveNext
Loop
mrs.Close
set mrs=nothing
%>
· |
<%
set mrs=server.createobject("ADODB.recordset")
mrs.open"select top 1 filepath,newsname from star_news where category='电视' order by newsid desc",mconn,2,3,-1
%>
<%do while not mrs.EOF%>
" target="_blank">
<%
title=mrs("newsname") '将数据库字段值赋到某变量上
i=26 '定义固定大小 19
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
mrs.MoveNext
Loop
mrs.Close
set mrs=nothing
%>
· |
<%set mrs=server.createobject("ADODB.recordset")
mrs.open"select top 1 starname,newsid from star_people_info where category='大陆' order by newsid desc",mconn,2,3,-1%>
<%do while not mrs.EOF%>
| [明星]
" target="_blank">
<%
title=mrs("starname") '将数据库字段值赋到某变量上
i=13 '定义固定大小 19
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
mrs.MoveNext
Loop
mrs.Close
set mrs=nothing
%>
<%set mrs=server.createobject("ADODB.recordset")
mrs.open"select top 1 starname,newsid from star_people_info where category='港台' order by newsid desc",mconn,2,3,-1%>
<%do while not mrs.EOF%>
|
<%
mrs.MoveNext
Loop
mrs.Close
set mrs=nothing
%>
<%set mrs=server.createobject("ADODB.recordset")
mrs.open"select top 1 newsid,starname from star_people_info where category='日韩' order by newsid desc",mconn,2,3,-1%>
<%do while not mrs.EOF%>
|
<%
mrs.MoveNext
Loop
mrs.Close
set mrs=nothing
%>
<%set mrs=server.createobject("ADODB.recordset")
mrs.open"select top 1 starname,newsid from star_people_info where category='欧美' order by newsid desc",mconn,2,3,-1%>
<%do while not mrs.EOF%>
|
<%mrs.MoveNext
Loop
mrs.Close
set mrs=nothing
%>
|
· |
<%
set mrs=server.createobject("ADODB.recordset")
mrs.open"select top 1 newsname,filepath from star_news where category='港台新闻' order by newsid desc",mconn,2,3,-1%>
<%do while not mrs.EOF%>
[港台]
" target="_blank">
<%
title=mrs("newsname") '将数据库字段值赋到某变量上
i=23 '定义固定大小 19
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%mrs.MoveNext
Loop
mrs.Close
set mrs=nothing
%>
· |
<%set mrs=server.createobject("ADODB.recordset")
mrs.open"select top 1 newsname,filepath from star_news where category='综艺快报' order by newsid desc",mconn,2,3,-1%>
<%do while not mrs.EOF%>
" target="_blank">
<%
title=mrs("newsname") '将数据库字段值赋到某变量上
i=26 '定义固定大小 19
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
mrs.MoveNext
Loop
mrs.Close
set mrs=nothing
%>
· |
<%set mrs=server.createobject("ADODB.recordset")
mrs.open"select top 1 filepath,newsname from star_news where category='日韩新闻' order by newsid desc",mconn,2,3,-1%>
<%do while not mrs.EOF%>
[日韩]" target="_blank">
<%=left(mrs("newsname"),14)%>
|
<%mrs.MoveNext
Loop
mrs.Close
set mrs=nothing
%>
<%set mrs=server.createobject("ADODB.recordset")
mrs.open"select top 1 filepath,newsname from star_news where category='韩星' order by newsid desc",mconn,2,3,-1%>
<%do while not mrs.EOF%>
" target="_blank">
<%
title=mrs("newsname") '将数据库字段值赋到某变量上
i=8 '定义固定大小 19
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
mrs.MoveNext
Loop
mrs.Close
set mrs=nothing
%>
· |
<%set mrs=server.createobject("ADODB.recordset")
mrs.open"select top 1 newsname,filepath from star_news where category='欧美新闻' order by newsid desc",mconn,2,3,-1%>
<%do while not mrs.EOF%>
[欧美]
" target="_blank">
<%
title=mrs("newsname") '将数据库字段值赋到某变量上
i=23 '定义固定大小 19
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
mrs.MoveNext
Loop
mrs.Close
set mrs=nothing
mconn.close
set mconn=nothing
%>
|
· |
<%set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 filepath,newsname from woman_starfashion where category='最新咨询' order by newsid desc",wconn,2,3,-1%>
<%do while not wrs.EOF%>
" target="_blank">
<%
title=wrs("newsname") '将数据库字段值赋到某变量上
i=9 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
%>
<%set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 filepath,newsname from woman_model where category='模特推荐' order by newsid desc",wconn,2,3,-1%>
<%do while not wrs.EOF%>
" target="_blank">
<%
title=wrs("newsname") '将数据库字段值赋到某变量上
i=7 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
%>
· |
<%set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 filepath,newsname from woman_starfashion where category='精彩时尚' order by newsid desc",wconn,2,3,-1%>
<%do while not wrs.EOF%>
" target="_blank">
<%
title=wrs("newsname") '将数据库字段值赋到某变量上
i=9 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
%>
<%set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 filepath,newsname from woman_starfashion where category='鞋包' order by newsid desc",wconn,2,3,-1%>
<%do while not wrs.EOF%>
" target="_blank">
<%
title=wrs("newsname") '将数据库字段值赋到某变量上
i=7 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
%>
· |
<%set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 filepath,newsname from woman_starfashion where category='首饰服装' order by newsid desc",wconn,2,3,-1%>
<%do while not wrs.EOF%>
" target="_blank">
<%
title=wrs("newsname") '将数据库字段值赋到某变量上
i=9 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
%>
<%set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 filepath,newsname from woman_starfashion where category='名牌' order by newsid desc",wconn,2,3,-1%>
<%do while not wrs.EOF%>
" target="_blank">
<%
title=wrs("newsname") '将数据库字段值赋到某变量上
i=7 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
%>
· |
<%
set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 filepath,newsname from woman_starfashion where category='化妆品' order by newsid desc",wconn,2,3,-1%>
<%do while not wrs.EOF%>
" target="_blank">
<%
title=wrs("newsname") '将数据库字段值赋到某变量上
i=9 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
%>
<%set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 filepath,newsname from woman_model where category='时装天地' order by newsid desc",wconn,2,3,-1%>
<%do while not wrs.EOF%>
" target="_blank">
<%
title=wrs("newsname") '将数据库字段值赋到某变量上
i=7 '定义固定大小 10
if len(title)>i then '如果文本长度大于给定的值
title=left(title,i) '则提取前段的i位的字符串
response.write (title&"")
else
response.write (title)
end if
%>
|
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
%>
|
<%
set wrs=server.createobject("ADODB.recordset")
wrs.open"select top 1 smallpicture,filepath from woman_decoration_picture where category='化妆品' order by newsid desc",wconn,3,3,-1
do while not wrs.EOF%>
|
<%
wrs.MoveNext
Loop
wrs.close
set wrs=nothing
wconn.close
set wconn=nothing
%>
|
|
|
|
|
<%
set rs=server.createobject("ADODB.recordset")
rs.open"select top 1 * from main where newsname='广告flash2 'order by newsid desc",conn,1,3
%>
| <%=rs("content")%> |
|
|
<%
set rs=server.createobject("ADODB.recordset")
rs.open"select top 1 * from main where newsname='广告2'order by newsid desc",conn,1,3
%>
<%=rs("content")%> |
|
