高分求ASP代码如何跟网站后台管理系统链接

2024-12-25 19:22:01
推荐回答(3个)
回答1:

给我邮箱,我把代码发给你……

这个使用了一个函数来作滚动的。直接把代码里面的表名换成你的表名,字段值改名表里面的字段就行了。试试效果吧。




<%
set rs_qy=Server.CreateObject("ADODB.Recordset")
rs_qy.open "select * from ghcompany",conn,1,1
while not rs_qy.eof
%>
<%if rs_qy("C_G_logo")<>"" then%>

<%
'此处的作用是读取图片的名称,然后加上图片所在的路径就实现了图片显示。我数据库里面设计了有链接图片和无链接图片。你可以不用下这种格式直接这样也行反正道理都是一样的。可以光读图片不加链接第一个if是判断图片名称不为空,第二个if 是判断图片是否有链接地址,是的话就让图片引到这个链接地址上面去,没有多大用处,当时瞎搞的
%>



<%end if%>
<%
rs_qy.movenext
wend
rs_qy.close
%>
<%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%>




回答2:

你循环滚动的是图片 一般用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
%>

  • " height="90" border="0">
  • '这个url是图片对应的数据库中放图片地址的字段,也可以增加连接的地址 方法一样
    <%end if'结束判断
    rs.movenext
    wend%>'下一个循环

    把这个代码放到显示页面里 就是图片滚动的那个地方 修改一下 这个作用是读出图片 要放到第一个DEMO中 然后JS代码让第二个DEMO等于第一个DEMO来进行图片的首尾连接

    回答3:

    如果你是要无刷新显示的话就要用到AJAX。。
    不是的话只需要在你循环滚动的地方查出来就好了嘛。。