有很多网友再问如何做一个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
推荐阅读
新型ASP后门源代码分析
本是为了逃LAKER2兄 查ASP木马程序的 现在已经挑战成功,已经加为检查对象了。公布出代码给冰点的朋友使使,希望大家喜欢! 利用的是ADOX.Catalog组件 复制代码 代码如下:<% 'code by netpatch dim dbfile>>>详细阅读
本文标题:TSYS 新闻列表JS调用下载
地址:http://www.17bianji.com/kaifa2/ASP/32812.html
1/2 1