TSYS 新闻列表JS调用下载

来源：百度文库 编辑：神马文学网 时间：2024/06/05 03:56:48
TSYS 新闻列表JS调用下载   [ 日期: 2005-10-18 4:10:01 PM | 作者:admin | 来源:Original ||]
有很多网友再问如何做一个JS新闻调用程序，现在贴出来供大家参考：
JS调用程序：
List2.asp
源码:--------------------------------------------------------------------------------

<%
Dim RS,Sql
Dim SpecId  ‘资源特性Id
SpecId=CLng(Request("SpecId"))
Sql="select Top 10 Id,Title,FilePath From view_NewsInfo where Instr(‘,‘+Speciality+‘,‘,‘,"&SpecId&",‘)<>0 Order By Id DESC"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
Response.Write "document.write("""&Rs("Title")&"
"")" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
%>
--------------------------------------------------------------------------------
调用方法：
源码:------------------------------------------------------------------------

--------------------------------------------------------------------------------
说明一下..............上面是TSYS1.0的....
下面是我写的TSYS1.1加强版的..

<%
Dim RS,Sql
Dim SpecId ‘资源特性Id
SpecId=CLng(Request("SpecId"))
Dim Conn
Set Conn = Server.createObject("Adodb.Connection")
Conn.Open ConnStr
Sql="select Top 10 Id,Title,FilePath From view_NewsInfo where Instr(‘,‘+Speciality+‘,‘,‘,"&SpecId&",‘)<>0 Order By Id DESC"
Set Rs=Conn.ExeCute(Sql)
While Not Rs.Eof
Response.Write "document.write("""&Rs("Title")&"
"")" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
conn.close
set conn=nothing
%>
大家看Include/Config.asp应该知道保存在什么地方了吧...
大家可以看下演示:
http://31u.net/html/zhuanti/daima005.htm
调用的是www.31u.net首页的推荐信息...特性为35..
当然可以根据这个来写出分栏目的JS新闻列表...
_xyz
TSYS 新闻列表JS调用下载 js调用dom对象 天气的JS左右调用 天气的JS左右调用 Linux系统调用列表 学会用js调用AdSense代码 浏览器开发插件列表(JS、DIV、CSS) Fluke‘s Blog: Linux系统调用列表 内容页评论列表动态调用DZ会员头像 帝国cms5.1会员资料调用标签下载 XML学习资源下载列表 eclipse以插件下载列表 江北人物新闻文章列表 环宇新闻中心，港澳新闻列表。 一个关于框架页面frame之间JS函数调用的问题 一个关于框架页面frame之间JS函数调用的问题 休闲减压音乐 歌曲列表 下载试听 心灵休闲 歌曲列表 下载试听 自然音乐 歌曲列表 下载试听 音乐疗法 歌曲列表 下载试听 腾格尔所有歌曲列表，腾格尔mp3下载 魔指-薛啸秋专辑 歌曲列表 下载试听 搜索列表-下载中心-诺亚教育网 如何在 Firefox 3 中调用迅雷下载