标题: FLASH轮换广告
最新评论:[添加评论]
1. yczhang [未注册用户] 2006-02-21 11:59
找了很久，终于找到了，谢谢哈！
2. ddd [未注册用户] 2006-07-03 11:09
ddddddd
3. 张达 [未注册用户] 2006-07-15 22:08
如果图片是从数据库读取的话应该怎么做呢？
4. MaxIE 2006-07-15 22:49
response.write("")或者直接生成JS文件。。包含就可以了
5. 张达 [未注册用户] 2006-07-16 11:19
@MaxIE
能再说仔细点吗？
我已经从数据库把图片读出来了，但不知道怎么把它的值赋给上面代码中的pics，请指教，，谢谢！！
6. 张达 [未注册用户] 2006-07-17 18:36
我从数据库读取图片是这么做的，
<%i=1
sql="select * from pwork order by id desc"
response.write "pics="
for i=1 to 6
if rs.eof then
exit for
end if

pic=mid(rs("minimg"),4)
response.write pic
response.write "|"
rs.movenext
next

%>

这样我取到了六张图片
pics=Upfiles/200671626123.jpg|Upfiles/200671639190.jpg|Upfiles/200671643667.jpg|Upfiles/200671668754.jpg|Upfiles/200671641354.jpg|Upfiles/200671669989.jpg|

之后我把图片赋给了pics是这样的的，

var pics='<%=pic%>'

可这样做的效果是只能读第一张图片，之后的图片如何取到？
7. MaxIE 2006-07-17 18:59
<script type="text/javascript">
var focus_width=259;
var focus_height=175;
var text_height=20;
var swf_height = focus_height+text_height
var pics="";
var links="";
var texts="";
<%
Dim CurPage,url_add,rssql
IF CheckStr(Request.QueryString("Page"))<>Empty Then
Curpage=CheckStr(Request.QueryString("Page"))
IF IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
Curpage=1
End IF
url_add="?"

Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM [article] order by id desc"
rs.Open SQL,Conn,1,1

If Rs.EOF and Rs.BOF Then
Response.Write("<div align=center><b>没有相关数据，请到<a href='admin.asp'>后台</a>添加至少一条记录本页才能正常显示。</b></div><br>")
Response.End
End if

rs.pagesize=5 '每页的记录数
rs.AbsolutePage=curpage...
8. 张达 [未注册用户] 2006-07-17 21:33
问题解决了，谢谢！！！
9. MaxIE 2006-07-17 23:10
不客气..能给你带来帮助我感到非常高兴.....

有时间来坐坐...呵呵
10. PHPer [未注册用户] 2006-08-06 22:58
用PHP怎么弄呢/
11. MaxIE 2006-08-07 12:10
呵呵..这个偶搞不定了...我不会PHP
12. as[匿名] [未注册用户] 2006-11-12 00:37
thinks
13. 宝儿 [未注册用户] 2007-05-14 08:55
大哥你能不能说清楚点,一步一步的改怎么整,我是新手,所以弄了你的代码没有实现,非常需要你的帮忙呀


添加评论 | 返回随笔
返回顶部 | 返回首页