我爱玩游戏
发布时间：2007-12-31 04:18:09 作者: rss@biku.com
If m=-1 Then
Set rs1=conn.execute(＂select zt_id,zt_name,zt_color,zt_picfrom zt_data where zt_type=＂&zt_typeid&＂ order by zt_date desc＂)
Else
Set rs1=conn.execute(＂select top ＂&m&＂ zt_id,zt_name,zt_color,zt_pic from zt_data where zt_type=＂&zt_typeid&＂ order by zt_date desc＂)
End If
If rs1.bof And rs1.eof Then
response.write＂＜li＞＜p＞没有数据＜/p＞＜/li＞＂
End If
mm_i=0
Do while not rs1.eof
mm_i=mm_i+1
zt_names=rs1(＂zt_name＂)
if len(zt_names)＞cut1 then
zt_name=left(zt_names,cut1)&＂...＂
else
zt_name=zt_names
end If
z_view_path=rs1(＂zt_id＂)
z_view_path=zt_en&＂/＂&z_view_path
zt_color=rs1(＂zt_color＂)
If zt_color＜＞＂＂ or IsNull(zt_color)=false Then zt_name=＂＜font color=＂＂＂&zt_color&＂＂＂＞＂&zt_name&＂＜/font＞＂
＇=========================================================================================================
if mm_i=1 then
response.write＂＜div id=＂＂du＂＂＞＜a href=＂＂＂&z_view_path&＂＂＂＞＜img src=＂＂＂&rs1(＂zt_pic＂)&＂＂＂ onerror=＂＂src=＇images/nopic.gif＇＂＂ title=＂＂＂&zt_names&＂＂＂＞＜/a＞＜br＞＜a href=＂＂＂&z_view_path&＂＂＂＞＂&zt_names&＂＜/a＞＜/div＞＂&chr(13)
else
response.write＂＜li＞＜a href=＂＂＂&z_view_path&＂＂＂ title=＂＂＂&zt_names&＂＂＂＞＂&zt_name&＂＜/a＞＜/li＞＂&chr(13)
end if
＇=========================================================================================================
If mm_i＞=m Then Exit Do
rs1.movenext
Loop
rs1.close
作者:anykan
标签:美女Ifm=-1Then
创建时间:2007-12-31
0
投票
关键词： 小游戏 单机游戏 qq游戏 在线小游戏 手机游戏
所属类别：游戏
相关链接：原文链接
过滤文章链接
举报删除