<% 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=20089100671284 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 %>
 
 
婴儿期带养失当导致斜视

  有时我们可能看到一些相貌端庄、漂亮活泼的儿童,因眼睛斜视,常给人一种异样感觉。斜视不仅影响人的外观,年龄稍大后会给孩子造成心理压力,而且还容易形成视力障碍,比如弱视,其严重性往往大于外观上的斜视本身。

    不过,儿童斜视大多是可以避免的,关键是要及早预防。儿童为什么会发生斜视呢?

    人的眼球壁附着有六条肌肉,这些肌肉受神经支配,肌肉与神经联合、协调眼球的动作,可使眼球向各个方向转动。如果神经或肌肉发生异常,就会破坏两眼正常位置的平衡,出现斜视。

    斜视有外斜和内斜(斗鸡眼)之分,儿童斜视以内斜居多,它们有些是先天的,有些则是后天形成的。先天性的难以预防,只有到一定年龄时求治医生治疗。但不少斜视的发生与婴儿时带养不当有关,这一点应当引起年轻父母足够的重视。

    父母总是对婴幼儿关怀备至,有时孩子被抱在胸前,大人和孩子常处于近距离相互凝视状态;当孩子躺在床上,父母会递上些玩具任其在胸前玩耍,或用鲜艳的东西不断挑逗儿童。这样孩子的眼睛与物体之间距离极近,时间久了,眼肌的集合功能变得较强,就易产生间歇性内斜。

    由于婴儿长期躺在床上,床靠墙边者居多,大人在喂养或与婴儿说话时也多在同一个方向,这样,孩子会习惯性地总注视一个方向,久而久之就会造成婴儿某些神经肌肉疲劳、眼肌外展功能失衡和发育异常,最后形成外斜视。

    预防儿童斜视重在消除引起斜视的条件,尽量使孩子不要注视近距离及同一方向的物品。如果发现孩子在4个月时已有斜视,可试用以下简单方法调节:如是内斜,父母可在较远的位置与孩子说话,或在稍远的正视范围内挂些色彩鲜艳的玩具,并让孩子多看些会动的东西;如是外斜,可经常转换大人与孩子间的视觉,让孩子掉换睡觉方向,并采取和调节内斜相反的方法,也可让孩子先注视一个目标(物体),再将此目标由远而近直至鼻尖,反复练习,这有助于增强双眼的聚合能力。

    当然,造成婴儿斜视的原因有时并非是单一的,如经过4~6个月的调节仍无效时,就应当去医院做及时诊治,严重者尚需作手术治疗。

 
     
版权所有: