<%@LANGUAGE="VBSCRIPT"%>
<%
'live_id=14
'live_name="烟台人民广播电台音乐频道开播庆典晚会"
'live_id=17
'live_name="烟台市第八届城市规划设计展展览项目"
live_id=18
live_name="烟台市第八届城市规划设计展"
special_url="/special/2005guihua/"
'liuyan_type="haiyang"
pic_mulu="\pic\live\"
pic_mulu_abs="e:\pic\live\"
refresh_time_pic=180
refresh_time_text=60
function changeStr(str)
if isnull(str) then
changeStr =""
exit function
end if
str=replace(str," "," ")
changeStr=replace(str,vbcrlf,"
")
end function
%>
处理 SSI 文件时出错
<%
'on error resume next
dim title,live_id,source,author,text,info_id,i,ip,strsql,rs
Function checkstr (str)
if str<>"" then
'str=replace(str," "," ")
str=replace(str,"'","''")
end if
checkStr=str
End Function
%>
<%=live_name%> 图片报道
<%
Set RS=Server.CreateObject("ADODB.RecordSet")
strsql="select * from live_text where live_id="&live_id&" and info_type=2 and status='y' and pic is not null order by check_date"
RS.Open strSql,conn_webjd,1,1
if rs.eof then
rs.close
response.write "没有图片报道!"
set rs=nothing
conn_webjd.close
set conn_webjd=nothing
response.end
end if
i=0
do while not rs.eof
i=i+1
info_id=rs("info_id")
title=rs("title")
pic=trim(rs("pic"))
if i=1 then
%>
<%
end if
%>
|
|
<%
if i=3 then
i=0
%>
<%
end if
rs.movenext
loop
rs.close
set rs=nothing
conn_webjd.close
set conn_webjd=nothing
%>
