how.asp 漂亮的地方旅游景点景观介绍网站源代码 - ASP源码程序

www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > show.asp
    <!--#include file="config.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML><HEAD>
<%
if id=0 then 
call cc("版面参数错误")
end if

if fid=0 then 
fid=1
end if

dim dh
mytit=getmc("jw_news","id",id,"mc")

dim i,gjz,gjzstr,str
gjz=getmc("jw_news","id",id,"gjz")
if gjz<>"" then 
gjzstr=split(gjz,",")
for i=0 to ubound(gjzstr)
str=str&"mc like '%"&getmc("jw_newskey","id",gjzstr(i),"mc")&"%'"
str=str&" or "
str=str&"instr(',"&gjz&",',',"&gjzstr(i)&",')>0"
if not i=ubound(gjzstr) then 
str=str&" or "
end if
next
end if

dh="<a href=""index.asp"">首页</a> &gt;&gt; "&getdaoh("jw_newsclass")&"&gt;&gt; "&mytit
call headinfo()

select case fid
case 3
ym=5
case 4
ym=6
case 5
ym=7
case 6
ym=8
case 9
ym=13
case 13
ym=11
case 11
ym=12
case 12
ym=10
case 10
ym=14
end select

%>
<LINK href="skins/css/web.css" type=text/css 
rel=stylesheet><LINK href="skins/css/zhinan_index.css" type=text/css 
rel=stylesheet>
<META content="MSHTML 6.00.2900.3268" name=GENERATOR></HEAD>
<BODY><!--头部-->
<DIV class=ethainan>
<!--#include file="head.asp" -->
</DIV>
<!--头部结束-->
<DIV class=body2>
<DIV class=sidebar><!-- 侧边栏开始 -->
<!--#include file="left.asp" -->  <!-- 侧边栏结束 --></DIV><IMG 
style="WIDTH: 1px; POSITION: absolute; HEIGHT: 1px" alt="" border=0 name=ABot> 
<DIV class=main>
<DIV class=about_content>
<% call content() %></DIV></DIV>
<DIV class=c></DIV></DIV>
<!--#include file="foot.asp" -->
</BODY></HTML>

<%
call connend()

sub content()
call record(rs,"select * from jw_news where id="&id,3)
rs("hits")=rs("hits")+1
rs.update()
%>
<H1><%= rs("mc") %></H1>
<UL>
  <%= rs("content") %></UL>
<%
call recordend(rs)
end sub
%>