给我邮箱,我把代码发给你……
这个使用了一个函数来作滚动的。直接把代码里面的表名换成你的表名,字段值改名表里面的字段就行了。试试效果吧。
<%if rs_qy("C_G_http")<>"" then%>" target="_blank">" width="110" height="54" border="0" align="top"/> <%else%>" width="110" height="54" border="0" align="top"/> <%end if%> |
你循环滚动的是图片 一般用JS来实现的 中间有list的图片地址 这个地址应该在数据库中读取
<%
dim db,strConn,Conn,rs,sql
db = "数据库名"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 表名"
rs.open sql,conn,1,1 '以上是连接数据库,需要修改一些地址
'循环开始
while(not rs.eof)
if rs.bof and rs.eof then
response.Write "没有信息"
else
%>
如果你是要无刷新显示的话就要用到AJAX。。
不是的话只需要在你循环滚动的地方查出来就好了嘛。。