[ÇóÖú]FSO·ÖÒ³£¬ÎÒÎÄÕÂÀïÄÚÈݺܶàÓÐͼƬ£¬ÓÃÆÕͨ°ì·¨²»ÄÜʵÏÖ

dd.ÄïæÞ

ÒòΪÎÄÕÂÓÐͼƬÎÄ×Ö£¬¶«Î÷ºÜ¶à£¬Òª·ÖÒ³£¬ÒÔÏ´úÂëÊÇÎÒ²âÊÔÓõģ¬¿ÉÊÇʲô×÷Ó㬷ֲ»³öÀ´
×Ô¼ºÒѾ­ÔÎÁË£¬¿ì°ï°ïÎÒ°Ñ´óÏÀÃÇ
<%
id=119
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from news where id="&id,conn,1,1
mypath=trim(rs2("new_info"))
aabb=request.querystring("aabb")/1
if aabb="" or aabb<0 then aabb=0
set ff=server.createobject("scripting.filesystemobject")
set fff=ff.opentextfile(server.MapPath(mypath),1,true)
do while not fff.atendofstream
fff.skipline
bb=bb+1
loop
fff.close
set fff=ff.opentextfile(server.MapPath(mypath),1,true)
aa=(bb+9)\10
if aabb=aa then aabb=aabb-1
jj=aabb*10
while jj>0
fff.skipline
jj=jj-1
wend
response.write "<a href='jj.asp?aabb="&aabb-1&"'>ÉÏÒ»Ò³</a>&nbsp;&nbsp;<a href='jj.asp?aabb="&aabb+1&"'>ÏÂÒ»Ò³</a>&nbsp;&nbsp;"
response.write "<a href='jj.asp?aabb=0'>Ê×Ò³</a>&nbsp;&nbsp;<a href='jj.asp?aabb="&aa-1&"'>βҳ</a>&nbsp;&nbsp;¹²"&aa&"Ò³&nbsp;&nbsp;µÚ"&aabb+1&"Ò³<br>"
for i=1 to 10
response.write fff.readline&"<br>"
if fff.atendofstream then exit for
next
%>