吾医网 - 疾病大全 - 脉络膜裂伤

<% '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 = "& 1343 &" " 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.眼底检查：眼底后极部可见淡黄色新月形裂隙，凹面向着视乳头，视网膜血管横过其上局部脉络膜及视网膜水肿，并有出血。晚期在裂痕处可见色素堆集；严重者，脉络膜血管破裂，出血可经过视网膜进入玻璃体；

相关疾病

关于我们 | 广告服务 | 会员服务 | 交换链接 | 招贤纳士 | 免责声明 | 用户注册 | 站点地图 | 联系我们

Copyright © 2007-2008 5yi.cn All Rights Reserved
版权所有吾医网 - 健康医疗门户网站本站其他域名024120.com,jiankang.tw
本站信息仅供参考不能作为诊断及医疗的依据；本站如有转载或引用文章涉及版权问题请速与我们联络