<%
'a
SubID="YXTG"
SQL="select top 6 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="XWDT"
SQL="select top 10 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="YXZT"
'SQL="select top 3 MsgID,MsgTitle,MsgBody from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
SQL="select top 3 * from Messages where DeletedFlag='0' and isvod=1 order by msgtime desc"
'response.write sql
rs.Open SQL,DBParams
while not rs.eof
%>
<%
SQL="select top 4 SubID,MsgID,MsgTitle from Messages where SubID in (select SubID from SubCategory where CategoryID='C02') and DeletedFlag=0 and IsEliteFlag='r' order by MsgTime desc"
'response.write sql
rs.Open SQL,DBParams
if not rs.eof then
SubID1=rs(0)
MsgID1=rs(1)
MsgTitle1=Left(rs(2),16)
rs.MoveNext
end if
if not rs.eof then
SubID2=rs(0)
MsgID2=rs(1)
MsgTitle2=Left(rs(2),16)
rs.MoveNext
end if
if not rs.eof then
SubID3=rs(0)
MsgID3=rs(1)
MsgTitle3=Left(rs(2),16)
rs.MoveNext
end if
rs.close
%>
<%
'a
'SubID="DBQY"
sql="select top 5 * from SoftDown where Cancel='0' Order by ID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="DBQY"
SQL="select top 12 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="YXRB"
SQL="select top 6 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="ZJTD"
SQL="select top 10 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="DSYX"
SQL="select top 10 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="YXHD"
SQL="select top 10 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="DZJJ"
SQL="select top 10 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="BBJX"
SQL="select top 10 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="YXZT"
SQL="select top 3 MsgID,MsgTitle,MsgBody from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
while not rs.eof
%>
<%
'a
SubID="XYX"
SQL="select top 5 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="YXNX"
SQL="select top 5 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="JPZX"
SQL="select top 10 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="JPMJ"
SQL="select top 10 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="LTJX"
SQL="select top 10 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="YXWH"
SQL="select top 10 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
<%
'a
SubID="SPDB"
SQL="select top 10 MsgID,MsgTitle from Messages where SubID='"&SubID&"' and DeletedFlag='0' and IsEliteFlag='y' order by MsgID desc"
'response.write sql
rs.Open SQL,DBParams
i=0
while not rs.eof
%>
+1%>.gif){kind=small}
热门讨论
为了吊起全球即使战略游戏爱好者的胃口，玻璃渣可谓费尽苦心，不让玩家们心急如焚望眼欲穿誓不罢休 ……
.jpg"
width=90 border=1>
