单页面 显示多个页面 -公司简介

<!-- #include file="include/skin.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<%
dim ramos
index_url="xike"
tit="学院简介"
ramos="where topic='学院简介' and hidden=0 "
select case action
case "zs"
ramos="where topic='招生频道' and hidden=0 "
tit="招生频道"
case "zy"
ramos="where topic='招生专业' and hidden=0 "
tit="招生专业"
case "yz"
ramos="where topic='院长寄语' and hidden=0 "
tit="院长寄语"
case "ys"
ramos="where topic='学院优势' and hidden=0 "
tit="学院优势"
case "sz"
ramos="where topic='师资力量' and hidden=0 "
tit="师资力量"
end select

call web_head(0,0,0,0,0)

dim word,cod
sql="select top 1 id,topic,word,cod from article "&ramos&" order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
word=rs("word")
cod=rs("cod")
if int(cod)=1 then word=code_jk(word)
'----------------------------左边 开始----------------------------
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td> <img border=0 src='/skin/skin_1/small/m_article.gif' align=absmiddle>  走进科贸</td></tr>
<tr class=bg_td><td align=center>

<table border=0 cellspacing=0 cellpadding=4>
<tr><td> <img border=0 src='/skin/skin_1/small/label_article.gif' align=absmiddle>  <a href='xikemao.asp'>学院简介</a></td></tr>
<tr><td> <img border=0 src='/skin/skin_1/small/label_article.gif' align=absmiddle>  <a href='xikemao.asp?action=yz'>院长寄语</a></td></tr>
<tr><td> <img border=0 src='/skin/skin_1/small/label_article.gif' align=absmiddle>  <a href='article_list.asp?action=good'>校园风光</a></td></tr>
<tr><td> <img border=0 src='/skin/skin_1/small/label_article.gif' align=absmiddle>  <a href='xikemao.asp?action=ys'>学院优势</a></td></tr>
</table>

</td></tr>
</table><table border=0><tr><td height=6></td></tr></table>
<%
'----------------------------左边 结束----------------------------
call web_center(0)
'----------------------------中间 开始----------------------------
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0> <%response.write img_skin("m_help")&tit%></td></tr>
<tr class=bg_td><td align=center>
<%response.write word%>
</td></tr>
</table>
<%
response.write ukong
'----------------------------中间 结束----------------------------
rs.movenext
loop
rs.close
call web_end(0,0)
%>

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: