MaxIE

#1楼  2006-02-21 11:59 yczhang [未注册用户]

找了很久，终于找到了，谢谢哈！   回复  引用    

#2楼  2006-07-03 11:09 ddd [未注册用户]

ddddddd   回复  引用    

#3楼  2006-07-15 22:08 张达 [未注册用户]

如果图片是从数据库读取的话应该怎么做呢？   回复  引用    

#4楼 [楼主] 2006-07-15 22:49 MaxIE      

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楼 [楼主] 2006-07-17 18:59 MaxIE      

<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
dim rsnums,MultiPages,PageCount
rsnums=rs.RecordCount
MultiPages=MultiPage(rsnums,5,CurPage,Url_Add)
do Until rs.eof or PageCount=5
theName=rs("title")
%>
pics+="<%=rs("appearperson")%>|";
links+="<%=rs("appeardate")%>|";
texts+="<%=rs("title")%>|";
<%
rs.movenext
PageCount=PageCount+1
loop
rs.close
set rs=nothing
%>
texts=texts.replace('%','％');
pics=pics.substring(0,pics.length-1);
links=links.substring(0,links.length-1);
texts=texts.substring(0,texts.length-1);
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="http://images.xm.com.cn/news/pixviewer.swf"><param">http://images.xm.com.cn/news/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#F0F0F0">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
document.write('<embed src="http://images.xm.com.cn/news/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#F0F0F0" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
document.write('</object>');
</script>   回复  引用  查看    

#8楼  2006-07-17 21:33 张达 [未注册用户]

问题解决了，谢谢！！！   回复  引用    

#9楼 [楼主] 2006-07-17 23:10 MaxIE      

不客气..能给你带来帮助我感到非常高兴.....

有时间来坐坐...呵呵   回复  引用  查看    

#10楼  2006-08-06 22:58 PHPer [未注册用户]

用PHP怎么弄呢/   回复  引用    

#11楼 [楼主] 2006-08-07 12:10 MaxIE      

呵呵..这个偶搞不定了...我不会PHP   回复  引用  查看    

#12楼  2006-11-12 00:37 as[匿名] [未注册用户]

thinks   回复  引用    

#13楼  2007-05-14 08:55 宝儿 [未注册用户]

大哥你能不能说清楚点,一步一步的改怎么整,我是新手,所以弄了你的代码没有实现,非常需要你的帮忙呀
  回复  引用