 |
如意集团媒体播放 |
|
|
|
| |
○ 图片新闻
|
|
|
<%
sqlstr = "select top 1 * from neirong where department = '9804' order by idd desc"
set rs = server.createobject("adodb.recordset")
rs.open sqlstr,conn,1,1
if rs.eof then
response.write "数据库中还没有信息"
end if
while not rs.eof
tt =rs(1)
ss = left(replace(rs(2),chr(13),"
"),160)
set rs2=server.CreateObject("adodb.recordset")
sql="SELECT * FROM imagedata WHERE user1 = '"&rs(0)&"'"
rs2.Open sql,conn,1,1
if rs2.eof then
nopic=""
else
nopic=rs(0)
rs2.close
end if
rs.movenext
wend
%>
<%if nopic<>"" then%>
 width="406" height="135" align="left">
<%end if%>
<%=tt%>
<%=ss%> |
|
| |
 更多... |
|
| |
○ 新闻报道
|
|
|
| |
<%
sqlstr = "select top 6 * from neirong where department = 1 order by idd desc"
set rs = server.createobject("adodb.recordset")
rs.open sqlstr,conn,1,1
if rs.eof then
%>
数据库中还没有信息-->
<%
end if
while not rs.eof
%>
" target="_blank">> <%=rs(1)%> [<%=rs("bak1")%>]
<%
rs.movenext
wend
rs.close
%>
|
|
| |
更多... |
|
| ○
产品世界 |
|
|
| 更多... |
|
|
|
|
|
