<% Dim SqlNowString,SiteSN,Conn,DBPath,CollectDBPath,DataServer,DataUser,DataBaseName,DataBasePsw,ConnStr,CollcetConnStr Const DataBaseType=0 '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS 2000数据库 Const SysVer=1 Const MsxmlVersion=".3.0" '系统采用XML版本设置 If DataBaseType=0 then '如果是ACCESS数据库，请认真修改好下面的数据库的文件名 DBPath = "/KS_Data/KesionCMS4.mdb" 'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径 SqlNowString = "Now()" Else '如果是SQL数据库，请认真修改好以下数据库选项 DataServer = "(local)" '数据库服务器IP DataUser = "sa" '访问数据库用户名 DataBaseName = "kesion" '数据库名称 DataBasePsw = "989066" '访问数据库密码 SqlNowString = "getdate()" End if '采集数据库路径 CollectDBPath="\KS_Data\Collect\KS_Collect.Mdb" Call OpenConn Sub OpenConn() On Error Resume Next If DataBaseType = 1 Then ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";" Else ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath) End If Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End CollcetConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(CollectDBPath) End Sub Sub CloseConn() On Error Resume Next Conn.close:Set Conn=nothing End sub %> <% function nav(classid) dim wstr,navstr sql="select ts from KS_Class where ID='"&classid&"'" set rs=server.createobject("ADODB.Recordset") rs.open sql,conn,1,3 dim arraystr str=left(rs("ts"),len(rs("ts"))-1) rs.close arraystr=split(str,",") for i=0 to ubound(arraystr) wstr=wstr&"'"&arraystr(i)&"'," next wstr=left(wstr,len(wstr)-1) sql="select FolderName from ks_class where id in("&wstr&")" set rs=server.createobject("ADODB.Recordset") rs.open sql,conn,1,3 while not rs.eof navstr=navstr&">"&rs("FolderName") rs.movenext wend nav=navstr end function kssql="select top 4 * from KS_Class where tn='20081780487383'" set ksrs=server.createobject("ADODB.Recordset") ksrs.open kssql,conn,1,3 ksrs.movefirst kssql1="select * from KS_Class where tn='20081780487383'" set ksrs1=server.createobject("ADODB.Recordset") ksrs1.open kssql1,conn,1,3 ksrs1.movefirst ksid=20087026786193 sql="select * from KS_Article where tid=(select ID from KS_Class where tn='"&ksid&"' and foldername='科室简介')" set rs=server.createobject("ADODB.Recordset") rs.open sql,conn,1,3 absql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid='20084756141454' and a.tid=b.id" set abrs=server.createobject("ADODB.Recordset") abrs.open absql,conn,1,3 if not abrs.bof and not abrs.eof then abstr="/html/"&abrs("folder")&abrs("Fname") end if pxstr="#" pxsql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid=b.id and a.tid='20086747683732'" set pxrs=server.createobject("ADODB.Recordset") pxrs.open pxsql,conn,1,3 if not pxrs.bof and not pxrs.eof then pxstr="/html/"&pxrs("folder")&pxrs("Fname") end if pxrs.close hjstr="#" hjsql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid=b.id and a.tid='20081336661301'" set hjrs=server.createobject("ADODB.Recordset") hjrs.open hjsql,conn,1,3 if not hjrs.bof and not hjrs.eof then hjstr="/html/"&hjrs("folder")&hjrs("Fname") end if hjrs.close lxwmstr="#" lxwmsql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid=b.id and a.tid='20085008101012'" set lxwmrs=server.createobject("ADODB.Recordset") lxwmrs.open lxwmsql,conn,1,3 if not lxwmrs.bof and not lxwmrs.eof then lxwmstr="/html/"&lxwmrs("folder")&lxwmrs("Fname") end if lxwmrs.close tsstr="#" tssql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid=b.id and a.tid='20083010531402'" set tsrs=server.createobject("ADODB.Recordset") tsrs.open tssql,conn,1,3 if not tsrs.bof and not tsrs.eof then tsstr="/html/"&tsrs("folder")&tsrs("Fname") end if tsrs.close ysgstr="#" ysgsql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid=b.id and a.tid='20089869647251'" set ysgrs=server.createobject("ADODB.Recordset") ysgrs.open ysgsql,conn,1,3 if not ysgrs.bof and not ysgrs.eof then ysgstr="/html/"&ysgrs("folder")&ysgrs("Fname") end if ysgrs.close atherstr="#" athersql="select top 1 a.*,b.* from KS_Article as a,KS_Class as b where a.tid=b.id and a.tid='20081176700404'" set atherrs=server.createobject("ADODB.Recordset") atherrs.open athersql,conn,1,3 if not atherrs.bof and not atherrs.eof then atherstr="/html/"&atherrs("folder")&atherrs("Fname") end if atherrs.close msgsql="select top 9 memo from KS_GuestBook order by id desc" set msgrs=server.createobject("ADODB.Recordset") msgrs.open msgsql,conn,1,3 %>
<%while not ksrs.eof%> <% ksrs.movenext wend %>
 
"><%=ksrs("FolderName")%>
其他专科
<% while not msgrs.eof if len(msgrs("memo"))>12 then response.write "·"&left(msgrs("memo"),12)&"..." else response.write "·"&msgrs("memo") end if msgrs.movenext wend %>
  　科室简介首页<%=nav(ksid)%>  
 
<% if not ksrs1.bof and not ksrs1.eof then while not ksrs1.eof response.write ""&ksrs1("FolderName")&""&" " ksrs1.movenext wend end if %>
 
 
眼肌病介绍

　　重症肌无力是一种神经－肌肉接头部位出现传递障碍的自家免疫性疾病。患病的源头在胸腺，眼肌型重症肌无力是这种疾病的早期。其发病原因可能与先天的遗传因素和后天的疾病或接触有害物质有关，如病毒感染，环境污染或大气污染等。手术切除病变的胸腺是该病治疗的首选治疗方法。
  该病患者轻则眼球运动受累，多呈不对称性眼睑下垂，睁眼无力、斜视、复视、有时双眼睑下垂交替出现；重者双眼球固定不动。该病见于任何年龄，约60％在30岁以前发病，多见于女性，且发病者常伴有胸腺瘤。检查见肌肉有不同程度的无力以及反复收缩后无力的加重。感冒、情绪激动、过劳、月经来潮、使用麻醉镇静药物、分娩、手术等常使病情复发或加重。398


　　据统计，每年有许多人因眼睑下垂、睁眼无力、斜视甚至眼球难以转动等症状走入医院眼科，但经眼科医生检查发现他们患的根本不是眼病，而是眼肌型重症肌无力，要到神经内科或胸外科才能得到诊治。

  
     
版权所有: