国产午夜精品一区二区三区不-国产午夜精品一区二区三区不卡-国产午夜精品一区二区三区极品-国产午夜精品一区二区三区老-国产午夜精品一区二区三区漫-国产午夜精品一区二区三区嫩草

聊城網站制作公司,聊城網站建設,聊城網站優化,聊城網絡公司,聊城網站推廣,聊城網站運營,聊城網絡運營,聊城搜索引擎優化,聊城網頁設計,聊城網站制作
 
 
公司擁有五年的網站建設經驗,專業網站制作,推廣及網站優化,有大量優秀客戶案例
網站建設 | 設為首頁 | 加入收藏 | 聯系我們  
公告:熱烈慶祝聊城精英網絡2010版官方網站改版成功!
當前位置 :首頁 > 網頁知識  

TSYS 新聞列表JS調用下載

http://m.zjgjyh.cn   2010-12-23   人氣:

有很多網友再問如何做一個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

專業設計團隊
滿足您的各種設計要求
實力程序開發團隊
為您定制各種程序模塊
后臺管理高效安全
方便更新上傳網站資料
全球高速訪問
無盲區、定制異地備份
專業客服團隊
解決一切使用難題
贈送大容量空間郵箱
免費優化推廣
   
關于我們 | 工作機會 | 付款方式 | 網站制作 | 網頁制作 | 網頁設計 | 網絡公司 | 聯系我們 | 網站地圖
版權所有:聊城精英網絡科技有限公司 © 2005-2010 All Rights Reserved.
咨詢專線:0635-6950368 技術專線:15192175820 在線QQ:312817927 1485871644
地址:聊城市閘口科技市場 郵編:252000 蘇ICP備10112026號
主站蜘蛛池模板: 人妻少妇久久中文字 | 亚洲日本精品va中文字幕 | 一本一道AⅤ无码中文字幕 一本一道av无码中文字幕 | 国产对白精品刺激一区二区 | 亚洲女同一区二区 | 人妻激情乱偷一区二 | 亚洲精品无码成人片久久 | 国产亚洲精品AV片在线观看播放 | 无码av天堂一区二区三区免费 | 成人国产一区二区 | 特黄A又粗又大又黄又爽A片软件 | 日韩精品国产主播在线观看 | 无码人妻一区二区三区九色 | 专区久久综合久中文字幕 | caotube超碰| 无码内射中文字幕岛国片 | 人妻无码中文字幕一二三区 | 精品欧美成人高清在线观看 | 亚洲日本一区二区三区在线 | 扒开粉嫩小泬把舌头伸进去添视频 | 人妻丰满熟妞av无码区 | 亚洲精品久久区二区三区蜜桃臀 | 色综合久久无码中文字幕红杏 | 日本视频中文字幕一区二区 | 在线中文字幕国产亚洲欧美 | 亚洲国产欧美日韩精品一区二区三区 | 国内精品一区无码中文在线 | 亚洲国产成人精品久久久久av无码综合色 | 国产av无码专区亚洲av琪琪 | 国产精品久久 | 苍井空A级在线观看网站 | 亚洲午夜无码毛片AV久久久久久 | 三级无码精品国产 | 制服丝袜国产日韩 | 国产极品女主播国产区 | 国产亚洲一区二区三区在线 | 中文国产成人精品久久高清 | 亚洲精品高清国产一线久久97 | 亚洲ⅴa中文字幕无码久久 亚洲ⅴa中文字幕无码 | 亚洲aⅴ无码天堂在线观看 亚洲aⅴ无码精品一区二区三区 | 国产毛A片啊久久久久久A |