<%
dim c
c=request("c")
if c="" or c<1 then
c=1
end if
%>
<%
Set fs = server.CreateObject("scripting.filesystemobject")
dim i
dim j
j=c
i=1
do while i <= 6
filename = Server.MapPath("company/" & j & ".jpg")
if fs.FileExists(filename)<>true then
dim o
o=6
if i=1 then
j=j-6
else
j=j-i+1
end if
exit do
end if
%>
<img src="company/<%=j%>.jpg">
<%
j=j+1
i=i+1
loop
%>
<div><a href="text_8.asp?c=<%=j-12+o%>">上一页</a><a href="text_8.asp?c=<%=j%>">下一页</a></div>