<%@ Language=VBScript%> <% NewsID=trim(Request.QueryString("NewsID")) request_BigClassName=trim(Request.QueryString("BigClassName")) request_SmallClassName=trim(Request.QueryString("SmallClassName")) set rs=server.CreateObject("ADODB.RecordSet") if request_BigClassName="文献" then request_BigClassName="医药文献" end if if request_BigClassName="医药文献" or request_BigClassName="文献" then ddqq="select * from medart where NewsID=" & NewsID else ddqq="select * from News where NewsID=" & NewsID end if rs.Open ddqq,conn,1,1 if rs.eof then Response.end end if BigClassName=rs("BigClassName") title=trim(rs("title")) about=trim(rs("about")) Author=trim(rs("Author")) editor=trim(rs("editor")) Original=trim(rs("Original")) image=rs("image") UpdateTime=trim(rs("UpdateTime")) News_Content=trim(rs("Content")) hot=rs("hot") SpecialID=rs("SpecialID") click=rs("click") EnCode=trim(rs("EnCode")) pos=rs("pos") rs.Close if BigClassName="" then Response.end end if if request_BigClassName="" then rs.Source="select * from BigClass where BigClassName=" & request_BigClassName rs.Open rs.Source, conn,1,1 request_BigClassName=trim(rs("BigClassName")) BigClassid=trim(rs("BigClassid")) rs.Close end if if request_SmallClassName="" then rs.Source="select * from SmallClass where SmallClassName=" & request_SmallClassName rs.Open rs.Source, conn,1,1 request_SmallClassName=trim(rs("SmallClassName")) rs.Close end if %> 医学在线--热门网站
<%set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from bigclass Where BigClassName='" & request_BigClassName &"' order by bigClassID" rs.Open rs.Source,conn,1,1 bigclassid=rs("bigclassid") rs.movenext rs.close %> <% if request_BigClassName="医药文献" or request_BigClassName="文献" then%> <%else%> <%end if%>
         
 当前位置:首页>>医学在线--热门网站 测试您与医学在线服务器的连接速度
<% if SpecialID<>0 then Response.Write "" set rs4=server.CreateObject("ADODB.RecordSet") rs4.Source="select * from special where SpecialID=" & SpecialID rs4.Open ,conn,1,1 Response.Write "" rs4.Close set rs4=nothing Response.Write "" set rs=server.CreateObject("ADODB.RecordSet") if request_BigClassName="医药文献" or request_BigClassName="文献" then rs.Source="select top 10 * from medart where (NewsID<>"& NewsID & " and SpecialID=" & SpecialID & ") order by NewsID DESC" else rs.Source="select top 10 * from News where (NewsID<>"& NewsID & " and SpecialID=" & SpecialID & ") order by NewsID DESC" end if rs.Open,conn,1,1 if rs.EOF then Response.Write "" else while not rs.EOF Response.Write "" rs.MoveNext wend Response.Write "" end if rs.Close 'set rs=nothing end if '------------------------------------------------------------------------------------------------------------------------------------ Response.Write "" Response.Write "" if about<>"" then if request_BigClassName="医药文献" or request_BigClassName="文献" then sql="select top 10 * from medart where about like '%" & about & "%' order by newsid desc" else sql="select top 10 * from news where about like '%" & about & "%' order by newsid desc" end if sql="select top 10 * from news where about like '%" & about & "%' order by newsid desc" 'set rs=conn.execute(sql) set rs=server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 do while not rs.eof Response.write "" rs.movenext loop Response.Write "" else Response.write "" end if rs.close set rs=nothing set rs1=server.CreateObject("ADODB.RecordSet") rs1.Source="select top "&reviewnum&" * from review where NewsID=" & NewsID & " and passed=1 order by reviewid desc" rs1.Open rs1.Source,conn,1,1 if rs1.EOF then NoReview=1 Response.Write "" Response.Write "" %> <% if not NoReview then while not rs1.EOF author=server.HTMLEncode(trim(rs1("author"))) email=server.HTMLEncode(trim(rs1("email"))) reviewip=rs1("reviewip") content=trim(rs1("content")) content=replace(content,"<","<") content=replace(content,">",">") content=replace(content,chr(13),"
") ContentLen=len(Content) %> <% rs1.MoveNext wend end if rs1.Close set rs1=nothing conn.close set conn=nothing %>
医学在线--友情链接—热门网站
网址网站:4431 20200网址之家 搜浪网址收藏 泡宝网 上网第一站 3tom专业网址大全 好东西网址之家 114网址黄页 找我! 活易网 一网天下 网址精品屋 DA123网址大全
综合网站:Lycos 硅谷动力
网上交易: 中国工商银行 浙江工商银行 易趣 雅宝
资讯空间:新华网 中央电视台 人民日报 南方日报
教育求职:上外网 网大 中华英才网 前程无忧网 中国教育资源网 成功自考网 猎人网 天下人才网
影音娱乐:听吧
日常生活:图行天下 中国汽摩网 时尚 中国指南 中国保险网 第一移民网 集邮网 卡秀 友人手机网 8848
财经网站:全景网 上海证券交易所 牛网 中国证券报
企业公司:一汽大众 千纸鹤公司 文昌阁纸业 万通车行 浙江竹子
文化艺术:一千零一夜 中国投稿热线 亦凡公益图书馆 中国国家图书馆 超星图书馆 榕树下 我看看 华夏艺术网 大唐中文
电脑游戏模拟游戏网 我要下载 亚联游戏 电脑之家 玩虎 中关村在线 小熊在线 PC日报 电脑硬件 天极网 asp300 52硬件网 驱动之家 游戏天下 游戏之王 联众世界 边锋游戏 威虎 赛迪网 疯狂坦克2 文化大学象棋社 诸宸国际象棋站 新民围棋
医学在线--友情链接—医学网站
大夫网 医学在线 37℃医学网 医院管理网上书城 100md医药博览 中华网--健康频道 雅虎中国医辽保健网址集
新健康 健康报网 三九健康网 南通瑞慈医院网 天一健康在线 网易健康频道 搜狐医辽保健网址集
好医生 健康百科 中国医药网 广西医学信息网 TOM阳光健康网 迈博健康资讯 天虎生活网---性爱健康
爱宝宝 健康1+1 中国导医网 深圳市公众健康教育网 MTP医学信息网 263健康人生 伊氏女人---健康频道
摇篮网 东方健康 健康传播网 中国百姓寻医问药网 口腔健康保健网 齐鲁热线健康网 古城热线—健康频道
21健康网 导医热线 中国康复城 健康123医疗保健网 放心120医疗网 华西医疗信息网 上海热线健康频道
导医热线 健康在网 飞华健康网 中国卫生健康网 MTP医学信息网 三九健康社区 青岛新闻网--健康频道
妈妈宝宝 健康在线 中国康复城 中华人民共和国卫生部 华人亚健康网 南方网:健康人生 常上红网 身体健康
健康久久 中文医网 绿色健康网 中国中医药信息网 天虎网-健康 21CN.COM-健康 江西热线-健 康 e 生
健康在线 人人健康 美迪医疗网 中华医学会 亚健康研究网 21CN医林 新浪医辽保健网址集
阳光广场 健康之星 求医问药网 上海助医网 迈博健康资讯 搜狐健康频道 北方网>> 健康之家
大夫网络 免费医院 大众健康网 广州市卫生信息网 中国眼视光网 搜豹:健康 常上红网--身体健康
  百年医学 上海助医网 人民健康网 华人亚健康网 《健康时报》 中国性知识科普网
  健康报网 好路健康网 中华健康信息网 及时雨健康网 中国健康电子商务网络 新浪-健康中心
    中国导医网 哈尔滨健康网 中国心理热线 南方网:健康人生 祥瑞网健康频道
    中国戒酒网 当代健康报 网大性爱花园 中华白领健康网 中国保健养生网
    百灵健康网 中国绿色健康网   飞华健康保健网 CCTV-健康频道
             

相关专题:" & trim(rs4("specialname")) &"
专题信息:
 没有专题信息
  " & trim(rs("Title")) & "(" & trim(rs("UpdateTime")) &")

相关信息:
  " & rs("Title") & "(" & trim(rs("UpdateTime")) &")
 没有相关信息

相关评论:
医学在线--友情链接—论文写作
学生大论文中心 中国论文下载中心 论文网 优秀论文杂志 学位论文 中国农业在线-农业论文 法学论文资料库
教育教学论文网 MBA论文,工商管理 论文帝国 论文资料网 论文书籍 中国科技论文在线 教研论文交流中心
工程论文服务网 中国总经理网-论文集 论文在线 蜂朝论文网 教育论文

中国路桥资讯网
法学论文资料库 财经学位论文下载中心 论文统计 中国园丁网 体育论文 幸福校园_学术资料交流中心 新浪毕业论文分类
论文商务中心 博硕士论文资讯网[] 论文快车 毕业论文网 学术论文 论文、考试资料交流中心  

网站提交友情链接规则

首页仅接受文字链接,要求全球排名前十万、pr=4以上的网站,二级页面不限,有意者请在医学论坛留言或联系:medinfo@21cn.com

提交前请您先做上本站链接。将本站链接在贵站的任何可以让访问者看得到的目录或页面均可。不接受下拉菜单或其他非直接文字连接,不接受js里的连接,不接受二次动态程序的连接,必须是直接的文字连接。代码如下,请不要做任何修改:
<a href=http://www.m-ol.com target="_blank">医学在线</a>
 
以下网站不会被收录:
弹窗多于3个,包括退出的时候跳出来的。
没有实际内容和全站抄袭的网站,使用免费转向域名与免费空间的网站。
违反国家法律的网站。
 
申请友情链接请先为本站做好文字链接,谢谢!
特别注意:由于互联网的不可靠,你可能无法收到登陆通过信,有些信件可能会丢失,请谅。