<% Dim CONN_STRING CONN_STRING = Server.MapPath("..\myfile\database\table.mdb") CONN_STRING = "driver={Microsoft Access Driver (*.mdb)};dbq=" & CONN_STRING set conn=server.createobject("ADODB.connection") set rs=server.createobject("ADODB.recordset") conn.open CONN_STRING sql = "select id, 姓名, 职务, 职称, 分类, 科室 from expert order by 笔划" rs.Open sql,conn,1,1 i=0 do while not rs.eof if rs("分类") = "内科" then i=i+1 redim preserve list1(i) list1(i)=rs("id") redim preserve list2(i) list2(i)=rs("姓名") redim preserve list3(i) list3(i)=rs("职务") redim preserve list4(i) list4(i)=rs("职称") redim preserve list5(i) list5(i)=rs("科室") end if rs.movenext loop rs.close set rs=nothing ep=4 if (i/ep)-(i\ep) > 0 then ls = i\ep + 1 ly = i - (i\ep)*ep else ls= i\ep ly = 0 end if %> 武汉市中心医院--医院介绍
  
                
内科>
<% 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 %> <% next %>
<% for l = 1 to 4 if mystr(l,1)="" then %> <%else%> <% end if next%>
<% for l = 1 to 4 %> <% next %>
<%=mystr(l,2)%>
<%=mystr(l,3)%>
<%=mystr(l,4)%>
<%=mystr(l,5)%> 		   
 
 


© 2003 版权所有:武汉市中心医院