<%set s = Server.CreateObject("shuziren_com.yz") '//新时空首页图文信息咨讯文字 sub home_xsk() Response.Write "" set rs = conn.execute("select top 8 bt,bt_b,bt_color,html from news where lbid in(67,98,99) and zt=1 order by id desc") do while not rs.eof Response.Write("") rs.movenext loop rs.close set rs=nothing Response.Write "
·"&s.xs_left(rs("bt"),50)&"
" end sub '//新时空首页图文信息咨讯图文 sub home_xsktu() set rs = conn.execute("select top 1 tp,bt,html from news where lbid in(67,98,99) and zt=1 and lx=1 order by id desc") do while not rs.eof Response.Write ""&_ ""&_ ""&_ "
"&_ ""&_ "
" rs.movenext loop rs.close set rs=nothing end sub %> 卞卡商务在线-友好城市
日照市与墨西哥夸察夸尔科斯市缔结友好城市

20051124,日照市代表团在墨西哥与夸察夸尔科斯市签定缔结友好城市正式协议...

[阅读全文]
[观看山东省日照市视频]
[观看墨西哥夸察
夸尔科斯市视频
]
友好城市统计图表
<%'//友城快报 sub home_yctj() Response.Write "" set rs = conn.execute("select top 6 bt,bt_b,bt_color,html from news where lbid in(118) and zt=1 order by id desc") do while not rs.eof Response.Write("") rs.movenext loop rs.close set rs=nothing Response.Write "
·"&s.xs_left(rs("bt"),80)&"
" end sub %> <%home_yctj()%>
<% '//友好城市之最 sub yhcszz_news() Response.Write "" set rs = conn.execute("select top 6 bt,bt_b,bt_color,html from news where lbid in(76) and zt=1 order by id desc") do while not rs.eof Response.Write("") rs.movenext loop rs.close set rs=nothing Response.Write "
·"&s.xs_left(rs("bt"),80)&"
" end sub %> <%yhcszz_news()%>
 
友好城市

  五洲四海友谊颂
《民间外交论》 中国人民对外友好协会会长 陈昊苏
一、民间外交的光荣使命
我们讲的民间外交,是指区别于官方外交的民间国际交往。翻译成外文,通常用人民对人民的外交(People to People Diplomacy),这当然是正确的,但意思还不完整。在中文里"民间"的含义是与官方并列而在官方之外,因此就本来的意义而言,民间外交是一种非官方的外交。
[阅读全文]

  友好城市分布图
1、夸察夸尔科斯市--日照市
2、伊达尔戈州--河南省
3、科阿韦拉州--甘肃省
4、瓜达拉哈拉市--厦门市
5、图提特兰市--衡水市
6、墨西哥州--广东省
7、哈里斯科州--上海市
8、克雷塔罗市--石家庄
9、蒙特雷市--沈阳市
10、墨西卡利市--南京市
11、托卢卡市--南昌市
12、阿卡普尔科市--青岛市

  友好城市要闻快报
<% '//信息咨讯 sub yc_news() Response.Write "" set rs = conn.execute("select top 6 bt,bt_b,bt_color,html from news where lbid in(85) and zt=1 order by id desc") do while not rs.eof bt=rs("bt") If rs("bt_b") <> 0 Then bt = "" & bt & "" If rs("bt_color") <> "" Then bt = "" & bt & "" Response.Write("") rs.movenext loop rs.close set rs=nothing Response.Write "
 ·"&bt&"
" end sub %> <%yc_news()%>

  友好城市新时空 >> 回顾
<% '//友好城市新时空信息咨讯 sub xsk_news() Response.Write "" set rs = conn.execute("select top 6 bt,bt_b,bt_color,html from news where lbid in(98) and zt=1 order by id desc") do while not rs.eof bt=rs("bt") If rs("bt_b") <> 0 Then bt = "" & bt & "" If rs("bt_color") <> "" Then bt = "" & bt & "" Response.Write("") rs.movenext loop rs.close set rs=nothing Response.Write "
 ·"&bt&"
" end sub %> <%xsk_news()%>

  友好城市新时空 >> 合作与发展
<%'//合作发展信息咨讯 sub hzfz_news() Response.Write "" set rs = conn.execute("select top 6 bt,bt_b,bt_color,html from news where lbid in(99) and zt=1 order by id desc") do while not rs.eof Response.Write("") rs.movenext loop rs.close set rs=nothing Response.Write "
·"&s.xs_left(rs("bt"),80)&"
" end sub %> <%hzfz_news()%>

  友好城市万花筒 >> 民族音乐厅

<% '//友好城市之最 sub mzyyt_news() Response.Write "" set rs = conn.execute("select top 5 bt,bt_b,bt_color,html from news where lbid in(77) and zt=1 order by id desc") do while not rs.eof bt=rs("bt") If rs("bt_b") <> 0 Then bt = "" & bt & "" If rs("bt_color") <> "" Then bt = "" & bt & "" Response.Write("") rs.movenext loop rs.close set rs=nothing Response.Write "
 ·"&bt&"
" end sub %> <%mzyyt_news()%>


  友好城市万花筒 >> 艺术欣赏室

<% '//友好城市之最 sub ysxss_news() Response.Write "" set rs = conn.execute("select top 5 bt,bt_b,bt_color,html from news where lbid in(78) and zt=1 order by id desc") do while not rs.eof bt=rs("bt") If rs("bt_b") <> 0 Then bt = "" & bt & "" If rs("bt_color") <> "" Then bt = "" & bt & "" Response.Write("") rs.movenext loop rs.close set rs=nothing Response.Write "
 ·"&bt&"
" end sub %> <%ysxss_news()%>