%
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=20089989589243
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
%>
|
 |
 |
<%
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
%>
|
 |
|
|
| |
| 准分子激光矫治屈光不正的优势 |
准分子激光矫治屈光不正的优势
1、安全性好:分子水平切削,对周边组织无损伤。 2、准确性高:采用波前像差引导的飞点扫描切削技术使矫正量准确无误。 3、稳定性高:术后快速愈合,稳定性良好。 4、手术时间短:从进手术室到手术完毕仅需10~15分钟左右,而真正激光切削的时间多在15秒钟左右。 5、舒适性高:术中没有疼痛感,术后仅部分PRK、LASEK患者有疼痛、异物感等不适。 6、手术效果好:准分子手术后度数在±50度以内者可达到98%。
常见准分激光手术术式简介
■ PRK PRK全名为准分子激光屈光性角膜切削术(Potorefractive keratectomy)。其手术过程是:术中先用角膜上皮刮刀刮除角膜中央区约7.5mm直径上皮后,再用准分子激光在角膜中央区进行切削,以改变角膜曲率,达到矫正屈光不正的目的。多用于治疗低度近视、单纯近视散光、低度远视、RK术后复发患者。 ■ LASEK
LASEK全名为准分子激光上皮下角膜磨镶术(laser epithelial keratomileusis)。其基本原理是通过应用稀释至安全浓度的酒精松解切削区角膜上皮,用特制器械使角膜上皮的基底细胞层与角膜前弹力层分离后完整揭开,再进行准分子激光切削之后,然后将上皮瓣复位。LASEK由于不需做角膜瓣,可以富余更多的角膜厚度,更适合于角膜厚度在500微米以下的薄角膜的手术。相当一部分患者因角膜厚度不够而无法进行LASIK手术治疗。多用于治疗角膜厚度较薄的中、高度近视。 ■ LASIK LASIK全名为准分子激光原位角膜磨镶术(laser in situ keratomileusis)。其手术过程是:术中先用板层刀先作一个角膜瓣,再在瓣下角膜浅基层上作激光切削,以改变角膜曲率,达到矫正屈光不正的目的。多用于治疗中、高度近视、散光、远视。此方法保留了角膜上皮和前弹力层,因而最符合角膜的生理解剖。同时这一术式术后无痛苦、恢复快、稳定性好,是当今世界上比较先进的屈光不正矫治技术。
■ 超薄LASIK
与常规LASIK不同的是超薄LASIK采用法国超薄角膜瓣制作技术,制作的角膜瓣的厚度仅为90微米左右,由于保留了较多的角膜基质层,降低了手术后出现圆锥角膜的风险,很大程度上提高了手术的安全性。目前,超薄角膜瓣LASIK已经逐渐成为取代常规LASIK手术的主要屈光方式。
■ EPI-LASIK(角膜上皮刀LASIK)
EPI-LASIK手术是用是用特制角膜上皮刀制作一个带蒂的角膜上皮瓣,使角膜上皮的基底细胞层与角膜前弹力层分离后完整揭开,然后进行准分子激光切削,再将上皮瓣复位。术后上皮愈合完美,不增加像差,术后视觉质量很好,明显优于常规LASIK手术。出现角膜浑浊等手术并发症的现象也明显少于常规LASIK。EPI-LASIK手术没有切割到角膜深层组织,术后的干眼发生率小,抗外伤能力强。但术后早期的不适感和视力恢复时间略逊于常规LASIK
■ 波前引导的超薄LASIK
该手术是重庆泰恒眼科医院在传统的波前引导的个性化LASIK手术的基础上引入法国Moria超薄角膜技术组合完成的先进的屈光矫治近视手术方法。手术前可先在虚拟角膜上进行模拟手术,让患者在术前就能感受到术后效果,将角膜屈光手术的安全性和可预测性提高到了前所未有的水平。手术特点是保留更多的角膜基质层,手术更安全;提高了夜视力,减少和避免了眩光的发生,视觉质量趋近完美。
■ 波前引导的EPI-LASIK
该手术是在EPI-LASIK手术的基础上,结合波前像差技术,优势结合,使手术过程更安全,术后视觉质量更加完美。该手术方式的引进使眼科界对准分子激光手术也有了新的认识,被称为“未来LASIK手术”。
■ Verisyse高度近视人工晶体植入术
该手术的出现解决了那些超高度近视,无法通过准分子手术摘掉眼镜患者的烦恼,手术不损伤眼内原有结构,安全、可逆,因其植入位置较靠近虹膜,故很多患者的术后视力甚至超过了术前的最佳矫正视力,这无疑将成为那些戴着眼镜仍无法看清世界的患者的一个福音。
■ 屈光性人工晶体置换术
将白内障手术技术引入屈光领域,是白内障手术技术与屈光手术的完美结合,属眼内屈光手术,几乎适合于任何程度的近视,与角膜屈光手术相比,该手术方式不切削角膜,从而避免了因切削角膜可能引起的并发症。该手术同时适合于有白内障的近视患者。
|
|
|
| |
|
|
|
|
 |