半边天医疗网

<%@language="VBscript"%> <%Response.Expires=0%> <% Function stripHTML(strtext) dim arysplit,i,j, strOutput arysplit=split(strtext,"<") if len(arysplit(0))>0 then j=1 else j=0 for i=j to ubound(arysplit) if instr(arysplit(i),">") then arysplit(i)=mid(arysplit(i),instr(arysplit(i),">")+1) else arysplit(i)="<" & arysplit(i) end if next strOutput = join(arysplit, "") strOutput = mid(strOutput, 2-j) strOutput = replace(strOutput,">",">") strOutput = replace(strOutput,"<","<") stripHTML = strOutput End Function bbtsql="select top 1 * from t_ps where indexsign ='1' order by id desc " bbtsql1="select distinct sortname, newsort from all_sort " set rsbbt=server.CreateObject("adodb.recordset")'youqin set rsbbt1=server.CreateObject("adodb.recordset")'youqin 'set rs0=server.CreateObject("adodb.recordset")' 'rs0.open strsql1,conn,1,1 rsbbt.open bbtsql,conn1,1,1 rsbbt1.open bbtsql1,conn1,1,1 havep=false havei=false 'response.Write(rsbbt.recordcount) 'response.end if not rsbbt.eof then havep=true if rsbbt("newsimg")<> "" then havei=true v=split(rsbbt("newsimg"),",") img=v(0) else havei =false end if if len(stripHTML(rsbbt("content")))>50 then content=left(stripHTML(rsbbt("content")),50)&"..." else content=stripHTML(rsbbt("content")) end if imgsrc="../bbt/news_images/"&img pid =rsbbt("id") else havep =false end if myclass=Request("class") if myclass="" or not isnumeric(myclass) then myclass=1 else myclass=cint(myclass) end if %> 半边天医疗网

　首页　| 自凝刀技术 |　名医荟萃 |　自凝刀快讯 |　文献综述 |　新闻专栏 |　自凝刀中心 |　在线论坛 |　ENGLISH

............................

............................

............................

............................

............................

............................

............................

............................

联系方式

西安半边天医疗器械有限公司

地址：西安市高新一路16号创业大厦D702室　　
邮编：710075　　
电话：029-88318385　　传真：029-88323237

武汉半边天医疗技术发展有限公司

地址：武汉东湖开发区关东工业园电子港3-1#
邮编：430074
电话：027-867464465 传真：027-87462046

| 首页 | 公司简介 |　妇科疾病 |　妇科与超声 |　荣誉推介　|　诚邀加盟　|　招聘信息 |

西安半边天医疗器械有限公司 2003版权所有