TSYS新闻列表JS调用下载
2023-06-13 09:13:52 时间
有很多网友再问如何做一个JS新闻调用程序,现在贴出来供大家参考:
JS调用程序:
List2.asp
源码:--------------------------------------------------------------------------------
<!--#include file="Conn.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(""<a href="/Tsys/NewsFiles/"&Rs("FilePath")&"" target="_blank">"&Rs("Title")&"</a><br/>"")" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
%>
--------------------------------------------------------------------------------
调用方法:
源码:------------------------------------------------------------------------
<script src="list2.asp?specId=13"></script>
--------------------------------------------------------------------------------
说明一下..............上面是TSYS1.0的....
下面是我写的TSYS1.1加强版的..
<!--#include file="Include/Config.asp" -->
<%
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(""<a href=""&Rs("FilePath")&"" target="_blank">"&Rs("Title")&"</a><br/>"")" & 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新闻列表... from 31u.com
JS调用程序:
List2.asp
源码:--------------------------------------------------------------------------------
<!--#include file="Conn.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(""<a href="/Tsys/NewsFiles/"&Rs("FilePath")&"" target="_blank">"&Rs("Title")&"</a><br/>"")" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
%>
--------------------------------------------------------------------------------
调用方法:
源码:------------------------------------------------------------------------
<script src="list2.asp?specId=13"></script>
--------------------------------------------------------------------------------
说明一下..............上面是TSYS1.0的....
下面是我写的TSYS1.1加强版的..
<!--#include file="Include/Config.asp" -->
<%
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(""<a href=""&Rs("FilePath")&"" target="_blank">"&Rs("Title")&"</a><br/>"")" & 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新闻列表... from 31u.com
相关文章
- js书写原生ajax,JS 原生ajax写法
- js面试题及答案2020_JS面试题大全
- labuladong的算法小抄之js实现-第0章-回溯算法
- 初识js中的闭包_Js闭包中变量理解
- Js生成二维码_js在线生成二维码
- JS对象转数组_js怎么把数组转成对象
- JS获取当前年份_js获取当前时间年月日
- 取两个列表的交集_js两个数组取差集
- vue.js客服系统实时聊天项目开发(十四)点击加载展示历史消息列表
- 【源码】PDF.js批注注释插件库(纯JS). 创建和保存PDF批注(PDF 高亮/签名/插图/截屏/文本框/画笔/多边形)-pdf.js
- JS实现手机摇一摇功能详解编程语言
- 快速掌握JS操作MySQL数据库技巧(js操作mysql数据库)
- JS在Oracle中的应用(js如何oracle)
- js获取中文拼音,Select自动匹配字母获取值的代码
- 远离JS灾难css灾难之js私有函数和css选择器作为容器
- js延迟加载改变JS的位置加快网页加载速度
- JS定时器实例详细分析
- eclipse如何忽略js文件报错(附图)
- JS获取下拉列表所选中的TEXT和Value的实现代码
- 使用js实现一个可编辑的select下拉列表
- js事件截取enter按键页面提交事件示例代码
- js类型转换与引用类型详解(Boolean_Number_String)
- node.js中的events.emitter.listeners方法使用说明
- JS实现一个列表中包含上移下移删除等功能