<%
dim rs0 ,sql
set rs0=server.CreateObject("ADODB.RecordSet")
sql="select * from lxfs"
rs0.open sql,conn,1,3
%>
<%
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="过敏性紫癜"
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
%>
血液病，治疗再障，白血病等血液病－石家庄市燕赵血液病肾病研究院
