中医保健网 - 全面的介绍中医保健健康知识的网站

精华

话题
“冬虫夏草”养生十大功效

冬虫夏草是我国的一种名贵中药材，与人参、鹿茸一起列为中国三大补药。早在一七五七年《本草从新》中就有“冬虫夏草甘平保肺，益肾，补精髓，止血化痰，已劳咳，治膈症皆良”的记载。中医认为，虫草入肺肾二经，既

公告

为表达全国各族人民对四川汶川大地震遇难同胞的深切哀悼，国务院决定，2008年5月19日至21日为全国哀悼日。公告全文如下：国务院公告为表达全国各族人民对四川汶川大地震遇难同胞的深切哀悼，国务院决定，2008

论坛精华

会员排行	板块排行
santazy gpsdzg veryge w956228 opqr650 银狐飞雪剑 klmn527 ku19503 难忘为童年 tbonderk8	养颜美体民间偏方两性健康四季养生生活保健中药新知针灸秘验用药常识小巧门婴儿保健

论坛热图

胃痛治疗穴位

肩周炎治疗穴

耳廓穴位分区

针灸穴位图片

中医养生

中医美容

中医典故

中医文献

内科偏方

外科偏方

妇科偏方

儿科偏方

男科偏方

皮肤偏方

疾病区

中药区

[12-17] 雷丸
[12-17] 马勃
[12-17] 灵芝
[12-17] 怪柳
[12-17] 冬虫夏草
[12-17] 没药

医疗新闻

男性保健

女性保健

母婴健康

整形美容

情感

<%@Language="JScript" %> <% var login="santazy"; var xap_adv=""; var ru=String(Request.ServerVariables("SCRIPT_NAME")); var site=String(Request.ServerVariables("HTTP_HOST")); ru = ru.substring(0,ru.lastIndexOf("/")+1); if(ru.length==0)ru="/"; if(ru.length<=180){ if(ru=="")ru="/"; var file=base64Encode(ru); site=site.replace("www.",""); var path_code=md5(file); var user_pref=login.substring(0,2); var path=path_code.substring(0,1)+"/"+path_code.substring(1,3)+"/"; var domain=login+".tnx.net"; path="/users/"+user_pref+"/"+login+"/"+site+"/"+path+file+".txt"; var xmlHttpReq = Server.CreateObject("MSXML2.XMLHTTP.3.0"); xmlHttpReq.open("GET", "http://"+domain+path, false); xmlHttpReq.send(); if(xmlHttpReq.status==200){ var res = xmlHttpReq.responseText; Response.Write(res); }else Response.Write("Error: "+xmlHttpReq.status); xmlHttpReq=null; } function base64Encode(instr){ var b64str='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/='; var b1,b2,b3,ca,cb,cc,cd,j=0,tret=new Array(); for(var i=0;i>2; cb=((b1&3)<<4)|(b2>>4); cc=((b2&15)<<2)|(b3>>6); cd=b3&63; if(isNaN(b2))cc=cd=64;else if(isNaN(b3))cd=64; tret[j++]=b64str.charAt(ca)+b64str.charAt(cb)+b64str.charAt(cc)+b64str.charAt(cd); } return tret.join(''); } %> <% ' THE FOLLOWING BLOCK IS USED TO RETRIEVE AND DISPLAY LINK INFORMATION. ' PLACE THIS ENTIRE BLOCK IN THE AREA YOU WANT THE DATA TO BE DISPLAYED. ' Dimensioning variables - DO NOT MODIFY! Dim BLKey Dim OpenInNewWindow Dim PostingString Dim ErrorString Dim ResultString Dim LinkUrl ' Finished dimensioning variables. ' MODIFY THE VARIABLES BELOW: ' The following variable defines whether links are opened in a new window ' (1 = Yes, 0 = No) OpenInNewWindow = 1 ' ********************************************************************************* ' DO NOT MODIFY ANYTHING IN THIS BLOCK!! *************************************** ' ********************************************************************************* BLKey = "P43K-3G6W-L4YM" ' # The following variable is sent to the BackLinks server in order to ' # generate working links on your page: If Request.ServerVariables("HTTPS") = "on" Then LinkUrl="https://" Else LinkUrl="http://" End If If Request.ServerVariables("REQUEST_URI") Then LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("REQUEST_URI") Else LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO") If Request.ServerVariables("QUERY_STRING") <> "" Then LinkUrl = LinkUrl & "?" & Request.ServerVariables("QUERY_STRING") End If End If LinkUrl = server.URLencode(LinkUrl) ' # Generate the data to post to the BackLinks.com server PostingString = "&Key=" & BLKey PostingString = PostingString & "&OpenInNewWindow=" & OpenInNewWindow & "&LinkUrl=" & LinkUrl Function GetBackLinksData(HTTPQuery, ByRef Resp, ByRef Er) Dim HttpReqObj Set HttpReqObj = Nothing On Error Resume Next Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If On Error Resume Next If HttpReqObj Is Nothing Then On Error Resume Next Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP") On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") End If On Error Resume Next If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("Microsoft.XMLHTTP") End If On Error Resume Next If HttpReqObj Is Nothing Then Er = "HTTP requests not supported." GetBackLinksData = False Else HttpReqObj.open "GET", "http://brokerage.linkadage.com/engine.php?" & HTTPQuery, false HttpReqObj.Send If HttpReqObj.status <> 200 Then Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'" GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If Set HttpReqObj = Nothing End If Else HttpReqObj.Open "GET", "http://brokerage.linkadage.com/engine.php?" & HTTPQuery, False HttpReqObj.Send If HttpReqObj.Status <> 200 Then Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText GetBackLinksData = False Else Resp = HttpReqObj.responseText GetBackLinksData = True End If End If End Function If GetBackLinksData(PostingString, ResultString, ErrorString) Then Response.Write ResultString Else Response.Write ErrorString End If ' FINSIHED BackLinks.COM SCRIPT BLOCK %>