高分修改ASP焦点图片做成FLASH代码
页面指向:<%CallFocusTitle()%>设计代码:'//列表有图焦点信息SubFocusTitle()'OnErrorResumeNextDimSqlSql="...
页面指向:
<%Call FocusTitle() %>
设计代码:
'//列表有图焦点信息
Sub FocusTitle()
'On Error Resume Next
Dim Sql
Sql = "Select Top 1 ContentId,Title,Content,ImageURL From WayInfo_Content Where IsOpen=1 and IsFocus=1 Order By ContentId DESC"
Db.GetRecordset(sql)
If Not Db.Rs.Eof Then
If Not IsNull(Db.Rs(3)) Then
Response.Write("<A href=Info_View.asp?ContentID=" + Cstr(Db.Rs(0)) + " Target=_Blank title=" + Cstr(Db.rs(1)) + ">")
Response.Write("<img src=" + Db.Rs(3) + " width=200 height=180 border=0 class=border_Black><br></a>")
End If
Response.Write("<div align=center class=px14>")
Response.Write("<b><A class=a01 href=Info_View.asp?ContentID=" + Cstr(Db.Rs(0)) + " Target=_Blank title=" + Cstr(Db.rs(1)) + ">")
'Response.Write(Str.GetString(Db.Rs(1),26))
Response.Write(Db.Rs(1))
Response.Write("</a></b></div>")
End If
If Err.Number Then Err.clear()
End Sub
现在是单个图片显示,我想改成FLASH动态变换5张图片显示方式。
自己比较菜,改不了,求高人给高分! 展开
<%Call FocusTitle() %>
设计代码:
'//列表有图焦点信息
Sub FocusTitle()
'On Error Resume Next
Dim Sql
Sql = "Select Top 1 ContentId,Title,Content,ImageURL From WayInfo_Content Where IsOpen=1 and IsFocus=1 Order By ContentId DESC"
Db.GetRecordset(sql)
If Not Db.Rs.Eof Then
If Not IsNull(Db.Rs(3)) Then
Response.Write("<A href=Info_View.asp?ContentID=" + Cstr(Db.Rs(0)) + " Target=_Blank title=" + Cstr(Db.rs(1)) + ">")
Response.Write("<img src=" + Db.Rs(3) + " width=200 height=180 border=0 class=border_Black><br></a>")
End If
Response.Write("<div align=center class=px14>")
Response.Write("<b><A class=a01 href=Info_View.asp?ContentID=" + Cstr(Db.Rs(0)) + " Target=_Blank title=" + Cstr(Db.rs(1)) + ">")
'Response.Write(Str.GetString(Db.Rs(1),26))
Response.Write(Db.Rs(1))
Response.Write("</a></b></div>")
End If
If Err.Number Then Err.clear()
End Sub
现在是单个图片显示,我想改成FLASH动态变换5张图片显示方式。
自己比较菜,改不了,求高人给高分! 展开
2010-08-09
AiPPT
2024-09-19 广告
2024-09-19 广告
随着AI技术的飞速发展,如今市面上涌现了许多实用易操作的AI生成工具1、简介:AiPPT: 这款AI工具智能理解用户输入的主题,提供“AI智能生成”和“导入本地大纲”的选项,生成的PPT内容丰富多样,可自由编辑和添加元素,图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询