濮阳杆衣贸易有限公司

主頁 > 知識庫 > TSYS 新聞列表JS調(diào)用下載

TSYS 新聞列表JS調(diào)用下載
熱門標(biāo)簽：沈陽三五防封電銷卡 云南便宜外呼系統(tǒng)平臺 沈陽電話機(jī)器人公司 鄭州智能外呼電銷機(jī)器人廠家 長春公司外呼系統(tǒng)中心 鄢陵學(xué)校如何做地圖標(biāo)注 虛擬電話外呼系統(tǒng) 廣東語音外呼系統(tǒng)公司 成都ai外呼系統(tǒng)線路
有很多網(wǎng)友再問如何做一個JS新聞?wù){(diào)用程序，現(xiàn)在貼出來供大家參考：

JS調(diào)用程序：
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
%>
--------------------------------------------------------------------------------

調(diào)用方法：

源碼:------------------------------------------------------------------------
script src="list2.asp?specId=13">/script>

--------------------------------------------------------------------------------

說明一下..............上面是TSYS1.0的....

下面是我寫的TSYS1.1加強(qiáng)版的..
!--#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應(yīng)該知道保存在什么地方了吧...

大家可以看下演示:
http://31u.net/html/zhuanti/daima005.htm
調(diào)用的是www.31u.net首頁的推薦信息...特性為35..

當(dāng)然可以根據(jù)這個來寫出分欄目的JS新聞列表... from 31u.com 

標(biāo)簽：孝感 朝陽 遼陽 平頂山 四平 防城港 馬鞍山 湖北

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《TSYS 新聞列表JS調(diào)用下載》，本文關(guān)鍵詞  TSYS,新聞,列表,調(diào)用,下載,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《TSYS 新聞列表JS調(diào)用下載》相關(guān)的同類信息！
  • 本頁收集關(guān)于TSYS 新聞列表JS調(diào)用下載的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    辽阳县| 广南县| 浪卡子县| 孙吴县| 商城县| 桑日县| 威海市| 沅江市| 通化市| 大洼县| 六盘水市| 正宁县| 安宁市| 西平县| 海兴县| 虹口区| 偃师市| 上饶市| 法库县| 策勒县| 黄石市| 余姚市| 房产| 崇明县| 黄梅县| 塔城市| 新源县| 德惠市| 郑州市| 大庆市| 广平县| 永宁县| 肇源县| 调兵山市| 融水| 和平县| 离岛区| 平远县| 四子王旗| 花莲县| 镇赉县|