<%@ LANGUAGE = "VBScript" %> SISTEMA EXPERTO
RESULTADO <% DIM Opcionelegida Opcionelegida = Request.QueryString("opcion") IF ISEMPTY(Opcionelegida)=TRUE THEN Response.write "
" Response.write "

" Response.write "

" Response.write "" & "" & "POR FAVOR, SELECCIONE UNA PATOLOGÍA" & "" & "" ELSE %>

<% '***************ASIGNO UNA VARIABLE AL Nº DE HISTORIA ACTUAL********** dim Historia_Actual dim NS Historia_Actual=cstr(Session("Historia_Actual")) 'RESPONSE.WRITE "Nº HISTORIAL: " & Historia_Actual & "
" Const AdopenKeyset = 1 Const adLockOptimistic = 3 '***************AÑADO LA PATOLOGÍA E HISTORIA_ACTUAL A LA TABLA HISTORIA_PATOLOGÍA SQL3= "SELECT * FROM HISTORIA_PATOLOGIA" Set rs3 = CreateObject("ADODB.Recordset") rs3.CursorType = AdopenKeyset rs3.LockType = adLockOptimistic rs3.Open SQL3, "DSN=SEX" rs3.addnew rs3.fields(0)=Historia_Actual rs3.fields(1)=Opcionelegida rs3.update RS3.CLOSE '**********BUSCO LOS SÍNTOMAS RELACIONADOS CON LA ANTERIOR HISTORIA*** SQL1= "SELECT * FROM HISTORIA_SINTOMA where IDENTIFICADOR_HISTORIA = " & Historia_Actual & "" Set rs1 = CreateObject("ADODB.Recordset") rs1.CursorType = AdopenKeyset rs1.LockType = adLockOptimistic rs1.Open SQL1, "DSN=SEX" NS=rs1.recordcount 'rs1.movefirst 'do until rs1.eof 'response.write rs1.fields(1) & "
" 'rs1.movenext 'loop Response.write "

" Response.write "La Patología diagnosticada es " Response.write "" & Opcionelegida & "" Response.write "

" 'Response.write "El programa ha aprendido el caso anterior" Response.write "

" Response.write "
" Response.write "

" dim x rs1.movefirst SQL2= "SELECT * FROM diagnostico_HISTORICO where nombre_patologia like '"& opcionelegida &"'" SQL2=SQL2 + " AND nombre_sintoma IN ('" FOR x = 0 TO NS - 1 SQL2 = SQL2 + rs1.fields(1) IF x < NS - 1 THEN SQL2 = SQL2 + "','" END IF rs1.movenext NEXT SQL2 = SQL2 + "')" Set rs2 = CreateObject("ADODB.Recordset") rs2.CursorType = AdopenKeyset rs2.LockType = adLockOptimistic rs2.Open SQL2, "DSN=SEX" if rs2.recordcount>0 then 'rs2.movefirst 'do until rs2.eof ' response.write rs2.fields(0) & "---" & rs2.fields(1) & "---" & rs2.fields(2) 'rs2.movenext 'loop 'CODIGO PARA QUE EL SISTEMA APRENDA DE LOS CASOS GENERADOS rs2.movefirst DIM u for u=0 to rs2.recordcount-1 or rs2.Eof rs2.fields(2)=rs2.fields(2)+1 rs2.update rs2.movenext next Response.write "

" response.write "El sistema ha aprendido del caso anterior" else response.write "El sistema no ha encontrado coincidencias entre la patología seleccionada y los síntomas presentados por el paciente." & "
" response.write "

" response.write "El sistema ha decidido no aprender del anterior caso." & "
" rs2.close end if rs1.close END IF %> e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.



SISTEMA EXPERTO APLICADO A LA ATENCIÓN PRIMARIA MÉDICA. AYUDA AL DIAGNÓSTICO

: Calle Suarez, Marcos
: Ingeniería Organización
Contenido del proyecto:
Directorio raíz  >  Codigo  >  ResultadoSAD.ASP