<%
sql="select top 6 gsid,new_id,showname,dateandtime from guestnews where gsid in (1810) order by new_ID desc"
Set xwrs= conn.execute(sql)
if xwrs.eof and xwrs.bof then
response.write "
对不起，暂时没有发布信息
"
else
do while not xwrs.eof
%>
<%
if datediff("d",xwrs("dateandtime"),date)<30 then
Response.Write " " & left(xwrs("showname"),22) & " New " & xwrs("dateandtime") & "
" & vbcrlf
else
Response.Write " " &left(xwrs("showname"),18) & " " & xwrs("dateandtime") & "
" & vbcrlf
end if%> |
 |
<%
xwrs.movenext
loop
'Response.Write "" & vbcrlf
end if
xwrs.close
%>
|
<%
sql="select top 8 * from new where typeid='011' and scyesno=1 order by date desc"
Set xwrs= Server.CreateObject("ADODB.Recordset")
xwrs.open sql,conn,1,1
if xwrs.eof and xwrs.bof then
response.write "
对不起，暂时没有发布信息
"
else%>
<%do while not xwrs.eof%>
| " target="_blank"><%=xwrs("title")%> New |
|
<% xwrs.movenext
loop
end if
xwrs.close
%>
|
