<% request_SpecialID=Request.QueryString("SpecialID") request_SpecialName=trim(Request.QueryString("SpecialName")) 'Response.Write request_SpecialID 'Response.End PageShowSize = 10 '每页显示多少个页 MyPageSize = 20 '每页显示多少条新闻 If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then MyPage=1 Else MyPage=Int(Abs(Request("page"))) End if set rs1=server.CreateObject("ADODB.RecordSet") rs1.Source="select * from BigClass" rs1.Open rs1.Source,conn,1,1 dim ArrayBigClassID(20),ArrayBigClassName(20) BigClassCount=rs1.RecordCount for i=1 to BigClassCount ArrayBigClassID(i)=rs1("BigClassID") ArrayBigClassName(i)=trim(rs1("BigClassName")) rs1.MoveNext next rs1.Close %> <% menu=request("menu") if menu="cx1" then bigclassname="尿路感染" elseif menu="cx2" then bigclassname="肾结核" elseif menu="cx3" then bigclassname="性病尿路感染" elseif menu="cx4" then bigclassname="男女不孕不育" elseif menu="cx5" then bigclassname="前列腺炎" elseif menu="cx6" then bigclassname="膀胱癌" elseif menu="cx7" then bigclassname="肾癌" elseif menu="cx8" then bigclassname="高血压性肾损害" elseif menu="cx9" then bigclassname="肾动脉硬化症" elseif menu="cx10" then bigclassname="肾下垂" end if dim count set rs7=server.createobject("adodb.recordset") rs7.Source= "select * from cxbSmallClass where bigclassname='"&bigclassname&"' order by SmallClassID asc" rs7.open rs7.Source,conn,1,1 %> <% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from cxbsmallClass where bigclassname='"&bigclassname&"' " rs.Open rs.Source,conn,1,1 %> 在线视频-->研究院特色治疗
研究院简介
....
....在线视频-->研究院特色治疗 返回视频首页

研究院特色治疗

网上求医

版权所有©石家庄市燕赵血液病肾病研究院
电话：87020592 87889016　　手机： 013930418196
传真：0311-87889016　　邮编：050000　　　 账号：624012022000000072　　
开户银行： 石家庄市商业银行裕华中路支行　　单位全称： 石家庄市燕赵血液病肾病研究院
电子邮件： yzynb@yahoo.com.cn　 wjguang@heinfo.net　地址：河北省石家庄市裕华西路7号
乘车路线： 火车站乘坐19、24、25、29路公共汽车市内乘坐 10路公共汽车长途汽车站即到 )火车站出站口南行400米，
裕华路口西行100米，路北即到（东胜汽车装具市场对面）