| ◇ |
龚兰生（上海第二医科大学附属瑞金医院） |
| ◇ |
郭冀珍（上海第二医科大学附属瑞金医院） |
| ◇ |
王宪衍（上海第二医科大学附属瑞金医院） |
| ◇ |
陈绍行（上海第二医科大学附属瑞金医院） |
| ◇ |
蔡迺绳（复旦大学附属中山医院） |
| ◇ |
诸骏仁（复旦大学附属中山医院） |
| ◇ |
戴瑞鸿（复旦大学附属华山医院） |
| ◇ |
范维琥
（复旦大学附属华山医院） |
| ◇ |
陈万春（上海市第六人民医院） |
| ◇ |
金立仁（上海市第六人民医院） |
| ◇ |
杨菊贤（上海第二医科大学附属第九人民医院） |
| ◇ |
郑慧君（上海第二医科大学附属第九人民医院） |
| ◇ |
许群（上海市第一人民医院） |
| |
郑乐君（上海市第一人民医院） |
| ◇ |
顾仁樾（上海中医药大学附属龙华医院） |
| ◇ |
胡婉英（上海中医药大学附属曙光医院） |
| ◇ |
郑柏生（华东医院） |
| ◇ |
章同华（第二军医大学附属长海医院） |
| ◇ |
秦永文（第二军医大学附属长海医院） |
<%
if RS.RecordCount = 0 then
Response.Write "库中没有信息！"
else
RS.PageSize = PageSize
Total=INT(RS.recordcount / PageSize * -1)*-1
PageNo=Request("pageno")
if PageNo="" Then PageNo = 1
if PageNo < 1 Then
PageNo = 1
end if
RS.AbsolutePage = PageNo
position=RS.PageSize*PageNo
pagebegin=position-RS.PageSize+1
if position < RS.RecordCount then
pagend=position
else
pagend= RS.RecordCount
end if
i = 1
Do while not (RS is nothing)
RowCount = RS.PageSize
J = 1
Do While Not RS.EOF and rowcount > 0
%>
| ◇ |
黄定九（上海第二医科大学附属仁济医院
） |
| ◇ |
陈曙霞（上海第二医科大学附属仁济医院
） |
<% i = i+1
RowCount = RowCount - 1
RS.MoveNext
Loop
set RS = RS.NextRecordSet
Loop
Conn.Close
set rs = nothing
set Conn = nothing
end if%>
|
