|
|
<%
dim mystr(4,5)
for j = 1 to ls
st=(j-1)*ep
if j < ls then
for k = 1 to 4
mystr(k,1)=list1(st+k)
mystr(k,2)=list2(st+k)
mystr(k,3)=list3(st+k)
mystr(k,4)=list4(st+k)
mystr(k,5)="科室:" & list5(st+k)
next
else
if ly=0 then
for k = 1 to 4
mystr(k,1)=list1(st+k)
mystr(k,2)=list2(st+k)
mystr(k,3)=list3(st+k)
mystr(k,4)=list4(st+k)
mystr(k,5)="科室:" & list5(st+k)
next
else
for k = 1 to ly
mystr(k,1)=list1(st+k)
mystr(k,2)=list2(st+k)
mystr(k,3)=list3(st+k)
mystr(k,4)=list4(st+k)
mystr(k,5)="科室:" & list5(st+k)
next
for k = ly+1 to 4
mystr(k,1)=""
mystr(k,2)=""
mystr(k,3)=""
mystr(k,4)=""
mystr(k,5)=""
next
end if
end if
%>
 |
<%
for l = 1 to 4
if mystr(l,1)="" then
%>
|
<%else%>
%>) |
<%
end if
next%>
|
 |
 |
 |
 |
|
 |
 |
 |
 |
 |
 |
 |
 |
|
|
<%
for l = 1 to 4
%>
|
|
<%=mystr(l,2)%>
<%=mystr(l,3)%>
<%=mystr(l,4)%>
<%=mystr(l,5)%>
|
<%
next
%>
|
|
|
<%
next
%>
| |
| |
|