欢迎来到站长教程网!

CSS

当前位置:主页 > 网页制作 > CSS >

TSYS 新闻列表JS调用下载

时间:2020-06-08|栏目:CSS|点击:

TSYS 新闻列表JS调用下载

有很多网友再问如何做一个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/"http://phpstudy.php.cn/&Rs("FilePath")&"' target='_blank'>"http://phpstudy.php.cn/&Rs("Title")&"</a><br/>"")" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
%>
--------------------------------------------------------------------------------

调用方法:

源码:------------------------------------------------------------------------
<script src="http://phpstudy.php.cn/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='"http://phpstudy.php.cn/&Rs("FilePath")&"' target='_blank'>"http://phpstudy.php.cn/&Rs("Title")&"</a><br/>"")" & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
conn.close
set conn=nothing
%>

大家看Include/Config.asp应该知道保存在什么地方了吧...

大家可以看下演示:

调用的是首页的推荐信息...特性为35..

当然可以根据这个来写出分栏目的JS新闻列表... from 31u.com

   
相关阅读:
VBS教程:对象-FileSystemObject 对象
php 求质素(素数) 的实现代码
Js&Vbs正则表达式替换重复的字符
CSS教程:first-letter伪类元素的特点
dedecms5.7sp1评论添加字段的实现方法
JQuery,Extjs,YUI,Prototype,Dojo 等JS框架的区别和应用场景简述
用一个示例讲解自治事务和非自治事务的区别
兼容ie和firefox版本的js反选 全选 多选框
javascript强制弹出新窗口实现代码
qmail邮件系统安装(freebsd 3.4)
oracle em中按钮乱码解决办法
TOMCAT+IIS配置方法
asp.net下让Gridview鼠标滑过光棒变色效果
jquery 实现的改变颜色与背景的代码 change(fontsize,background)补充2

上一篇:说说Ubuntu的ISO安装

栏    目:CSS

下一篇:CSS教程:first-letter伪类元素的特点

本文标题:TSYS 新闻列表JS调用下载

本文地址:http://www.jh-floor.com/wangyezhizuo/CSS/125554.html

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:888888 | 邮箱:888888#qq.com(#换成@)

Copyright © 2002-2017 青云站长教程网 版权所有 琼ICP备xxxxxxxx号