<%@LANGUAGE="VBSCRIPT"%> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_connCYS_STRING Recordset1.Source = "SELECT fNewsID, fTatle FROM tNews ORDER BY fNewsID DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim rsHumer Dim rsHumer_numRows Set rsHumer = Server.CreateObject("ADODB.Recordset") rsHumer.ActiveConnection = MM_connCYS_STRING rsHumer.Source = "SELECT fNewsID, fMini FROM tHuman" rsHumer.CursorType = 0 rsHumer.CursorLocation = 2 rsHumer.LockType = 1 rsHumer.Open() rsHumer_numRows = 0 %> <% Dim rsdemain Dim rsdemain_numRows Set rsdemain = Server.CreateObject("ADODB.Recordset") rsdemain.ActiveConnection = MM_connCYS_STRING rsdemain.Source = "SELECT fNewsID, fMini FROM tCommerce ORDER BY fNewsID DESC" rsdemain.CursorType = 0 rsdemain.CursorLocation = 2 rsdemain.LockType = 1 rsdemain.Open() rsdemain_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 6 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 5 Repeat2__index = 0 rsHumer_numRows = rsHumer_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 6 Repeat3__index = 0 rsdemain_numRows = rsdemain_numRows + Repeat3__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Dim FixedDigitCount Dim DigitCount Dim DigitCountLength Dim DigitZerosToAdd Dim DigitZeroCount Dim ShowDigits Dim DigitPath ' (FixedDigitCount) will add zeros to the front of your count ' if the count is less then the (FixedDigitCount) ' just like "frontpage" counters let you do FixedDigitCount = 5 DigitPath = "images1" On Error Resume Next Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing DigitCountLength = Len(CounterHits) If DigitCountLength < FixedDigitCount Then DigitZerosToAdd= FixedDigitCount - DigitCountLength DigitZeroCount = 1 For DigitZeroCount = DigitZeroCount to DigitZerosToAdd ShowDigits = ShowDigits & "" Next End If DigitCount = 1 For DigitCount = DigitCount to DigitCountLength ShowDigits = ShowDigits & "" Next %> 欢迎访问朝隆达新科技有限公司
崭蛇追风喷剂
对风湿性关节痛、颈椎痛、肩周痛、手脚麻木、跌打损伤等引起的不适具有促进康复保健作用。
疏通安涂膜剂
舒筋活血,消肿止痛,用于头面部神经麻痹,面神经麻痹,急、慢性软组织损伤及其他部位神经痛,曾获得北京市新产品开发一等奖。
草木香藏药浴足剂
促进血液循环,调节神经系统,疏通经络气血,增强免疫功能,抵御外邪入侵,减轻和消除压力消除疲劳,保持良好精神面貌,用于中老年人浴足,经常使用另您健康长寿。
<功效> 消除疲劳、促进循环、改善睡眠、增强对不良环境等因素的抵抗力与耐受力,达到防病保健强身之目的。并能软化角质,预防足气的生成,使肌肤变得更柔软、细嫩。

<用法与用量> 每次1-2袋,投入1-2kg沸水中搅拌,浸泡2-3分钟,使有效成份充分溶出,再加入适量的温水或冷水调至适宜的温度浸泡15-20分钟,用毛巾擦干即可(每次加入1-2滴藏药精油效果更佳)。

<成份> 红景天、独一味、穆库尔没药、吉娘查、藏菖蒲等25味藏药。
足浴足疗十大好处:
一、强身健身、延年益寿;
二、防治神经衰弱和失眠;
三、防治高血压;
四、防治风湿关节炎;
五、防治腿脚麻木;
六、防治糖尿病;
七、防治感冒,祛寒暖身;
八、美容减肥;
九、防治脑溢血和脑血栓;
十、消除疲劳,使人感到身心愉快。

 
 


地址:北京市大兴区北臧村镇天宫院

电话:010-60277021   传真:010-60278955