校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁 > 知識庫 > TSYS 新聞列表JS調用下載

TSYS 新聞列表JS調用下載
熱門標簽：沈陽三五防封電銷卡 云南便宜外呼系統平臺 沈陽電話機器人公司 鄭州智能外呼電銷機器人廠家 長春公司外呼系統中心 鄢陵學校如何做地圖標注 虛擬電話外呼系統 廣東語音外呼系統公司 成都ai外呼系統線路
有很多網友再問如何做一個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 

標簽：孝感 朝陽 遼陽 平頂山 四平 防城港 馬鞍山 湖北

巨人網絡通訊聲明：本文標題《TSYS 新聞列表JS調用下載》，本文關鍵詞  TSYS,新聞,列表,調用,下載,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《TSYS 新聞列表JS調用下載》相關的同類信息！
  • 本頁收集關于TSYS 新聞列表JS調用下載的相關信息資訊供網民參考！
    • 推薦文章
    主站蜘蛛池模板： 双牌县| 咸丰县| 正定县| 道真| 达州市| 佛冈县| 彭水| 盐源县| 嘉善县| 洞口县| 呼伦贝尔市| 政和县| 贵港市| 乌鲁木齐县| 宁乡县| 平顶山市| 白水县| 巴南区| 泸定县| 临邑县| 揭阳市| 上虞市| 涟水县| 响水县| 封丘县| 育儿| 高邑县| 周宁县| 遵化市| 青龙| 十堰市| 容城县| 青州市| 黄陵县| 合江县| 新丰县| 收藏| 仁布县| 安吉县| 嘉义县| 昌黎县|