歯周病度チェック

次の項目の中で、当てはまる点数をたして下さい

●朝起きたときはどのような感じですか
お口の中がさっぱりとしている　０点
お口の中がねばねばしている　１点
顎が疲れたり、お口の中で膿の味がする　２点
●歯肉から出血しますか
まったくしない　０点
りんごを食べたり、歯ブラシをしたときに出る　１点
何もしないのに出る　２点
●歯肉が腫れたことがありますか
腫れたことはない　０点
以前に腫れたことがある　１点
よく腫れる　２点
●歯は動きますか
まったく動かない　０点
少しぐらぐらしている歯がある　１点
物が咬めないほど動くところがある　２点
●歯と歯の間に物がはさまりますか
まったくはさまらない　０点
時々、はさまる　１点
よくはさまり気になる　２点
●口臭があるといわれますか
今まで言われたことはない　０点
人に言われたことがある　１点
自分でも、膿が出ている臭いがわかる　２点

０点　健康です。（１〜３点は初期の歯周炎と思われます）
１〜６点　歯周病が進行している可能性があります。早期に治療が必要です。
７点以上　歯周病がかなり進行しています。すぐは医者さんに行きましょう。

<% Function googleColor(value, random) Dim colorArray colorArray = Split(value, ",") googleColor = colorArray(random Mod (UBound(colorArray) + 1)) End Function Function googleScreenRes() Dim screenRes, delimiter, resArray screenRes = Request.ServerVariables("HTTP_UA_PIXELS") delimiter = "x" if IsEmpty(screenRes) Then screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS") delimiter = "," end If resArray = Split(screenRes, delimiter, 2) if (UBound(resArray) + 1) = 2 Then googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1) end If End Function Dim googleTime, googleDt, googleScheme, googleHost googleTime = DateDiff("s", "01/01/1970 00:00:00", Now()) googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer))) googleScheme = "http://" if StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://" googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST")) Dim googleAdUrl, googleAdOutput googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_ "ad_type=text" &_ "&channel=" &_ "&client=ca-mb-pub-9860177796726179" &_ "&color_border=" & googleColor("336699", googleTime) &_ "&color_bg=" & googleColor("FFFFFF", googleTime) &_ "&color_link=" & googleColor("0000FF", googleTime) &_ "&color_text=" & googleColor("000000", googleTime) &_ "&color_url=" & googleColor("008000", googleTime) &_ "&dt=" & googleDt &_ "&format=mobile_double" &_ "&host=" & googleHost &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&markup=xhtml" &_ "&oe=utf8" &_ "&output=xhtml" &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_ "&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_ googleScreenRes() Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") googleAdOutput.Open "GET", googleAdUrl, false googleAdOutput.Send Response.Write(googleAdOutput.responseText) %>

津志田歯科医院
岩手県盛岡市
津志田西1-1-31