 µ³Õþ½¨Éè |
|
| ¿Æ½ÌÎÄ»¯ |
|
|
| ÕÐÉÌÒý×Ê |
|
|
|
 |
 ½ñÌìÊÇ£º
|
|
|
|
<%
set rs3=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs3.Source ="select top 1 * from News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC"
end if
if Request.cookies("key")="" then
rs3.Source ="select top " & top_img & " * from News where picnews=1 and checkked=1 and newslevel=0 and picname<>null order by NewsID DESC"
end if
if Request.cookies("key")="selfreg" then
if Request.cookies("reglevel")=3 then
rs3.Source ="select top 1 * from News where picnews=1 and checkked=1 and newslevel<=3 and picname<>null order by NewsID DESC"
end if
if Request.cookies("reglevel")=2 then
rs3.Source ="select top 1 * from News where picnews=1 and checkked=1 and newslevel<=2 and picname<>null order by NewsID DESC"
end if
if Request.cookies("reglevel")=1 then
rs3.Source ="select top 1 * from News where picnews=1 and checkked=1 and newslevel<=1 and picname<>null order by NewsID DESC"
end if
end if
else
rs3.Source ="select top 1 * from News where picnews=1 and checkked=1 and picname<>null order by NewsID DESC"
end if
rs3.Open rs3.Source,conn,1,1
if not rs3.EOF then
while not rs3.EOF
fileExt=lcase(getFileExtName(rs3("picname")))
Content=rs3("Content")
content=replace(content,"[[","<")
content=replace(content,"]]",">")
%>
<%
rs3.MoveNext
wend
else
Response.Write ""
end if
rs3.close
set rs3=nothing
%>
|
|
|
|
 |
 |
¡¡¡¡¹ÅÀ϶øÎÄÃ÷µÄÐŶ¼Õò£¬ÊÇһƬ³äÂúÉÌ»úºÍÏ£ÍûµÄͶ×ÊÈÈÍÁ¡£ÐŶ¼ÕòλÓÚ¹ãÎ÷ºØÖÝÊÐÄϲ¿£¬×ÜÃæ»ý237ƽ·½¹«ÀȫÕò¹ÜϽ3¸öÉçÇøίԱ»á£¬15¸ö´åί»á£¬¹²ÓÐ147¸ö´åÃñС×飬×ÜÈË¿Ú5.2ÍòÈË¡£ÈÈÇéºÃ¿ÍµÄÐŶ¼ÕòÈËÃñ£¬ÈȳÀ»¶ÓËĺ£±öÅóÇ°À´Í¶×Ê¿ª·¢£¬¹Û¹âÂÃÓΣ¬¹²´´ÐŶ¼Õò¸ü¼ÓÃÀºÃµÄÃ÷Ìì¡£ÏêϸÐÅÏ¢>>> |
|
