徐州 全程医疗服务中心 版权所有 全程导医网络信息中心 技术支持 备案序号: 苏ICP备06015624号
电话：0516－85707122、82299122 传真：0516－85707122
地址：徐州市文亭街1号
交通：乘公交2、9、11、38、65、69路车，到百货大楼、新一佳下
徐州全程医疗服务中心E-mail:qcdy@qcdy.com 技术支持E-mail:swl8@swl8.com
<%
call web_end(0,0)
%>
<%
sub main_center_shop(cs_tnum,cs_cnum)
dim tmp1,tmp_topic,tmp_url
tmp1=vbcrlf&"
"
sql="select top "&cs_tnum&" id,name,smallimg from shop_product where hidden=1 order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
tmp_topic=rs(1)
tmp_url="shop_view.asp?id="&rs(0)
tmp1=tmp1&vbcrlf&"| " & _
vbcrlf&" " & _
vbcrlf&" | "
rs.movenext
loop
rs.close
tmp1=tmp1&vbcrlf&"
"
tmp1="
"
response.write vbcrlf&"
" & _
vbcrlf&"| 推荐产品 |
" & _
vbcrlf&"| "&tmp1&" |
" & _
vbcrlf&"
"&ukong
end sub
sub main_left_vote()
dim tmp1
tmp1=""
response.write vbcrlf&"
" & _
vbcrlf&"| 网站调查 |
" & _
vbcrlf&"| "&tmp1&" |
" & _
vbcrlf&"
"&ukong
end sub
sub main_left_data()
dim tmp1
tmp1=vbcrlf&"
| "&img_skin("h_")&"网站注册："&num_reg&" 人 |
" & _
vbcrlf&"
| "&img_skin("h_")&"最新注册："&format_user_name(new_username,0,"")&" |
" & _
vbcrlf&"
| "&img_skin("h_")&"新闻总数："&application(joekoe_cms.web_cookies&"_configs_num_news")&" 条 |
" & _
vbcrlf&"
| "&img_skin("h_")&"文章总数："&application(joekoe_cms.web_cookies&"_configs_num_article")&" 篇 |
" & _
vbcrlf&"
| "&img_skin("h_")&"软件总数："&application(joekoe_cms.web_cookies&"_configs_num_down")&" 个 |
" & _
vbcrlf&"
| "&img_skin("h_")&"论坛主题："&num_topic&" 贴 |
" & _
vbcrlf&"
| "&img_skin("h_")&"论坛贴子："&num_data&" 贴 |
" & _
vbcrlf&"
| "&img_skin("h_")&"当前在线："&online_num&" 人 |
" & _
vbcrlf&"
| "&img_skin("h_")&"最高在线："&max_online&" 人 |
" & _
vbcrlf&"
| "&img_skin("h_")&"网站浏览："&total_counter&" 人次 |
"
tmp1="
"
response.write vbcrlf&"
" & _
vbcrlf&"| 网站数据 |
" & _
vbcrlf&"| "&tmp1&" |
" & _
vbcrlf&"
"&ukong
end sub
sub main_center_list(cl_type,cl_tnum,cl_cnum,cl_classid)
dim tmp1,tmp_title,tmp_tit,tmp_count,tmp_img,tmp_record,tmp_table,tmp_where,tmp_url
'tmp_img=cl_type
tmp_where="hidden=1"
if cl_classid>0 then tmp_where=tmp_where&" and s_id="&cl_classid
select case cl_type
case "forum"
cl_type="forum"
tmp_title="论坛新帖"
tmp_tit="论坛标题"
tmp_count="论坛回复"
tmp_img="forum"
tmp_table="bbs_topic"
tmp_record="id,topic,username,tim,re_counter,forum_id"
tmp_where="forum_id>0"
if cl_classid>0 then tmp_where="forum_id="&cl_classid
case "down"
tmp_title="软件下载"
tmp_tit="软件名称"
tmp_count="下载次数"
tmp_img="down"
tmp_table="down"
tmp_record="id,name,username,tim,counter,c_id"
tmp_where="c_id>0"
if cl_classid>0 then tmp_where="c_id="&cl_classid
case "news"
tmp_title="行业动态"
tmp_tit="新闻标题"
tmp_count="浏览次数"
tmp_img="article"
tmp_table="news"
tmp_record="id,topic,username,tim,counter,c_id"
tmp_where="c_id>0"
if cl_classid>0 then tmp_where="c_id="&cl_classid
case "hosp"
tmp_title="行业动态"
tmp_tit="名医名院"
tmp_count="浏览次数"
tmp_img="article"
tmp_table="hosp"
tmp_record="id,topic,username,tim,counter,c_id"
tmp_where="s_id>0"
if cl_classid>0 then tmp_where="s_id="&cl_classid
case "young"
tmp_title="行业动态"
tmp_tit="青少年健康"
tmp_count="浏览次数"
tmp_img="article"
tmp_table="young"
tmp_record="id,topic,username,tim,counter,c_id"
tmp_where="s_id>0"
if cl_classid>0 then tmp_where="s_id="&cl_classid
case "sex"
tmp_title="行业动态"
tmp_tit="健康男女"
tmp_count="浏览次数"
tmp_img="article"
tmp_table="sex"
tmp_record="id,topic,username,tim,counter,c_id"
tmp_where="s_id>0"
if cl_classid>0 then tmp_where="s_id="&cl_classid
case "nice"
tmp_title="行业动态"
tmp_tit="美丽工厂"
tmp_count="浏览次数"
tmp_img="article"
tmp_table="nice"
tmp_record="id,topic,username,tim,counter,c_id"
tmp_where="s_id>0"
if cl_classid>0 then tmp_where="s_id="&cl_classid
case "baby"
tmp_title="行业动态"
tmp_tit="药品药械"
tmp_count="浏览次数"
tmp_img="article"
tmp_table="baby"
tmp_record="id,topic,username,tim,counter,c_id"
tmp_where="s_id>0"
if cl_classid>0 then tmp_where="s_id="&cl_classid
case "article1"
tmp_title="行业动态"
tmp_tit="新闻标题"
tmp_count="浏览次数"
tmp_img="article"
tmp_table="article"
tmp_record="id,topic,username,tim,counter,c_id"
tmp_where="s_id>0"
if cl_classid>0 then tmp_where="s_id="&cl_classid
case else
tmp_title="技术文栏"
tmp_tit="文章标题"
tmp_count="浏览次数"
tmp_img="article"
tmp_table="article"
tmp_record="id,topic,username,tim,counter,s_id"
tmp_where="s_id>0"
if cl_classid>0 then tmp_where="s_id="&cl_classid
end select
sql="select top "&cl_tnum&" "&tmp_record&" from "&tmp_table&" where "&tmp_where&" order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
tmp_url=tmp_table&"_view.asp?id="&rs(0)
if cl_type="forum" then
tmp_url=cl_type&"_view.asp?forum_id="&rs(5)&"&view_id="&rs(0)
end if
'tmp1=tmp1&format_topic_type(img_skin("h_"&tmp_img),rs(2),rs(1),cl_cnum,tmp_url,rs(3),rs(4),false,tmp_tit,tmp_count,0)
tmp1=tmp1&vbcrlf&"
| "&img_skin("h_"&tmp_img)&""&joekoe_cms.code_html(rs(1),1,cl_cnum)&" |
"
rs.movenext
loop
rs.close
tmp1="
"
response.write vbcrlf&"
" & _
vbcrlf&"| "&tmp1&" |
" & _
vbcrlf&"
"&ukong
end sub
sub main_center_link()
dim tmp1
tmp1=""
response.write vbcrlf&"
" & _
vbcrlf&" |
" & _
vbcrlf&"
"
end sub
sub revealTrans_news_pic1(cs_tnum,cs_cnum)
dim id,pic,pics1,texts1,links1
sql="select top "&cs_tnum&" id,topic,pic from news where hidden=1 and ispic=1 order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
id=rs("id")
pic=rs("pic")
pic=joekoe_cms.code_html(pic,1,0)
if instr(pic,"://")<1 then
pic=joekoe_cms.web_upload&pic
end if
pics1= pics1&"|"&pic
links1= links1&"|"&web_dim(6)&"news_view.asp?id="&id
texts1= texts1&"|"&joekoe_cms.code_html(rs("topic"),1,cs_cnum)
rs.movenext
loop
rs.close
if left(pics1,1)="|" then pics1=right(pics1,len(pics1)-1)
if left(links1,1)="|" then links1=right(links1,len(links1)-1)
if left(texts1,1)="|" then texts1=right(texts1,len(texts1)-1)
%>