吾医网 - 疾病大全 - 先天性泪囊炎

<% '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 = "& 1388 &" " 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
本站信息仅供参考不能作为诊断及医疗的依据；本站如有转载或引用文章涉及版权问题请速与我们联络