<% '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 = "& 1352 &" " 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.眼睑水肿、痉挛及睁开困难；   
5.眼球混合充血、结膜水肿，有脓性分泌物；   
6.前房积脓，角膜混浊；   
7.玻璃体混浊、积脓，散瞳后呈黄白色；   
8.眼压低；   
9.眼底一般窥不清。

相关疾病

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