<% 'ASP防注入 dim sql_injdata SQL_injdata = "and|insert|select|delete|update|declare" SQL_inj = split(SQL_Injdata,"|") If Request.QueryString<>"" Then For Each SQL_Get In Request.QueryString For SQL_Data=0 To Ubound(SQL_inj) if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then Response.Write "" Response.end end if next Next End If If Request.Form<>"" Then For Each Sql_Post In Request.Form For SQL_Data=0 To Ubound(SQL_inj) if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then Response.Write "" Response.end end if next next end if %> <% session.Timeout=60 dim conn,db dim connstr const data_type = 1 ' 1为SQL数据库，0为ACCESS if data_type =1 Then connstr = "driver={SQL Server};server=(local);UID=sa;PWD=dswybs;database=5yicn" 'SQL数据库连接 'connstr = "driver={SQL Server};server=(local);UID=sa;PWD=123;database=ywkj_sw" 'SQL数据库连接 else db="../../database/#ywkj_sw.mdb" 'access数据库连接地址,安装时请修改 connstr="DBQ="+server.mappath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" end if set conn=server.createobject("ADODB.CONNECTION") on error resume next '出错显示 conn.open connstr If Err Then err.Clear Set Conn = Nothing Response.Write "出错信息："&err.description Response.End End If %> <% 'jmail 发送邮件 Function SendEmail(s_email,s_email2,s_topic,s_body) Set jmail = Server.CreateObject("JMAIL.Message") jmail.silent = true jmail.logging = true 'jmail.Charset = "utf-8" jmail.Charset = "gb2312" jmail.ContentType = "text/html" jmail.AddRecipient s_email '如果备用邮件地址存在则进行抄送 If isnull(s_email2)=true or s_email2="" Then Else jmail.AddRecipientBCC s_email2 End If jmail.From = "reply@5yi.com.cn" jmail.MailServerUserName = "reply@5yi.com.cn" '这里是登陆邮箱的帐号,例如 test@126.com jmail.MailServerPassword = "24864248" '这里是登陆邮箱的密码 jmail.Subject = s_topic jmail.Body = s_body jmail.Priority = 1 jmail.Send("mail.5yi.com.cn") '这里是邮件服务器的SMTP地址,例如smtp.126.com jmail.Close() set jmail=nothing End Function '去html代码 function nohtmlcode(fString) fString = Replace(fString, " ", CHR(32)) fString = Replace(fString, "
", CHR(10) & CHR(10)) fString = Replace(fString, "
", CHR(10)) fString = Replace(fString, "
", CHR(10) & CHR(10)) fString = Replace(fString, "
", CHR(10)) fString = Replace(fString, "

", "") fString = Replace(fString, "

", "") fString = Replace(fString, "

", "") fString = Replace(fString, "

", "") nohtmlcode = fString end function '最大字符数截取 function cutstr(tempstr,tempwid) if len(tempstr)>tempwid then cutstr=left(tempstr,tempwid)&"..." else cutstr=tempstr end if end function '生成文件名的函数 function makefilename(fname) fname = fname fname = replace(fname,"-","") fname = replace(fname," ","") fname = replace(fname,":","") fname = replace(fname,"PM","") fname = replace(fname,"AM","") fname = replace(fname,"上午","") fname = replace(fname,"下午","") makefilename=fname & ".shtml" end function '保持数据格式不变的函数 function HTMLEncode(fString) fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString, CHR(32), " ") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "
") fString = Replace(fString, CHR(10), "
") HTMLEncode = fString end function '处理HTML代码 '取代输入字符串里的引号 function repSingleQuo(srcstr) if instr(srcstr,"'")>0 or isnull(srcstr)=false then repSingleQuo=replace(trim(srcstr),"'","’") else repSingleQuo=trim(srcstr) end if end function function repHtmlCode2(srcstr) '格式化输入字符串里的html标签,如果有HTML标签，则按HTML方式显示，如果没有，则自动取代换行符成HTML标签 'on error resume next dim result if srcstr="" or isNULL(srcstr)then repHtmlCode2="" exit function end if if isHtmlTag(srcstr) then repHtmlCode2=srcstr else result=replace(srcstr,chr(10)+chr(13),"
") result=replace(result,chr(13),"
") result=replace(result,chr(32),"  ") result=replace(result," ","  ") repHtmlCode2=result end if end function function isHtmlTag(srcstr) dim tagstr tagstr=lcase(srcstr) if instr(tagstr,"")>0 or instr(tagstr,"
")>0 or instr(tagstr,"")>0 or instr(tagstr,"")>0 or instr(tagstr,"

")>0 then isHtmlTag=true else isHtmlTag=false end if end function '取代输入字符串里的html标签 function repHtmlCode(srcstr) dim result if srcstr="" or isNULL(srcstr)then repHtmlCode="" exit function end if result=replace(srcstr,"<","<") result=replace(result,">",">") result=replace(result,chr(10)+chr(13),"
") result=replace(result,chr(13),"
") result=replace(result,chr(32),"  ") result=replace(result," ","  ") repHtmlCode=result end function '************************************************** '函数名：ReplaceBadChar '作 用：过滤非法的SQL字符 '参 数：strChar-----要过滤的字符 '返回值：过滤后的字符 '************************************************** Function ReplaceBadChar(strChar) If strChar = "" Or IsNull(strChar) Then ReplaceBadChar = "" Exit Function End If Dim strBadChar, arrBadChar, tempChar, i strBadChar = "',%,^,&,?,(,),<,>,[,],{,},/,\,;,:," & Chr(34) & "," & Chr(0) & "" arrBadChar = Split(strBadChar, ",") tempChar = strChar For i = 0 To UBound(arrBadChar) tempChar = Replace(tempChar, arrBadChar(i), "") Next ReplaceBadChar = tempChar End Function Function PE_CLng(ByVal str1) If IsNumeric(str1) Then PE_CLng = CLng(str1) Else PE_CLng = 0 End If End Function Function PE_CDbl(ByVal str1) If IsNumeric(str1) Then PE_CDbl = CDbl(str1) Else PE_CDbl = 0 End If End Function %> <% Set rs = Server.CreateObject ("ADODB.Recordset") '问题 sql = "select * from c_article where id = "& 1361 &" " rs.Open sql,conn,1,3 newhit=rs("ac_hit")+1 '访问量+1 rs("ac_hit")=newhit rs.update rs.close set rs = Nothing %> 吾医网 - 疾病大全 - 睫状环阻滞性青光眼
<%if session("username")<>"" then%>
欢迎回来！<%=session("username")%>  [" target="_blank">会员中心][退出]
<%else%>
用户名: 密码:
<%end if%>
欢迎您使用 医事通 查病 | 找医生 | 找医院
您的位置:首页 >> 疾病速查 >> 眼科

睫状环阻滞性青光眼（眼科）

疾病介绍

睫状环阻滞性青光眼，又称恶性青光眼。既往认为，此型青光眼是闭角型青光眼手术后的一种少见但严重的并发症。其特点为抗青光眼术后数日或数月，前房极度变浅或消失，眼压升高。用一般抗青光眼药物或手术治疗无效。如处理不当，常可导致失明，甚至需要摘除眼球，故称恶性青光眼。对本病的进一步研究发现，某些未行青光眼手术的病例，在滴用缩瞳剂后或外伤、葡萄膜炎等也有发生本病者。本病易发生于眼球及角膜较小、浅前房、窄房角、睫状环相对较小或晶体相对较大的闭角型青光眼。本病为双眼疾患，一眼发生睫状环阻滞性青光眼，另眼也易发生。

  • 症状表现
  • 并发症及表现
  • 预防和护理
  • 参考用药
  • 治疗方法
1.患眼疼痛和同侧头痛，可伴恶心、呕吐等；
2.眼压高，眼部混合充血，角膜水肿；
3.前房极浅或消失，虹膜晶体前移；
4.抗青光眼术后者，通过虹膜周切口可见睫状突与晶体赤道部相贴或于其前。

相关疾病

关于我们 | 广告服务 | 会员服务 | 交换链接 | 招贤纳士 | 免责声明 | 用户注册 | 站点地图 | 联系我们
Copyright © 2007-2008 5yi.cn All Rights Reserved
版权所有 吾医网 - 健康医疗门户网站 本站其他域名024120.com,jiankang.tw 
本站信息仅供参考不能作为诊断及医疗的依据；本站如有转载或引用文章涉及版权问题请速与我们联络