TSYS 新聞列表JS調用下載

有很多網友再問如何做一個JS新聞調用程序，現在貼出來供大家參考：

JS調用程序：

List2.asp

源碼:--------------------------------------------------------------------------------

<!--#includefile="Conn.asp"-->

<%

DimRS,Sql

DimSpecId'資源特性Id

SpecId=CLng(Request("SpecId"))

Sql="selectTop10Id,Title,FilePathFromview_NewsInfowhereInstr(','+Speciality+',',',"&SpecId&",')<>0OrderByIdDESC"

SetRs=Conn.ExeCute(Sql)

WhileNotRs.Eof

Response.Write"document.write(""<ahref='/Tsys/NewsFiles/"&Rs("FilePath")&"'target='_blank'>"&Rs("Title")&"</a><br/>"")"&vbCrLf

Rs.MoveNext

Wend

Rs.Close

SetRs=Nothing

%>

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

調用方法：

源碼:------------------------------------------------------------------------

<scriptsrc="list2.asp?specId=13"></script>

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

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

下面是我寫的TSYS1.1加強版的..

<!--#includefile="Include/Config.asp"-->

<%

DimRS,Sql

DimSpecId'資源特性Id

SpecId=CLng(Request("SpecId"))

DimConn

SetConn=Server.createObject("Adodb.Connection")

Conn.OpenConnStr

Sql="selectTop10Id,Title,FilePathFromview_NewsInfowhereInstr(','+Speciality+',',',"&SpecId&",')<>0OrderByIdDESC"

SetRs=Conn.ExeCute(Sql)

WhileNotRs.Eof

Response.Write"document.write(""<ahref='"&Rs("FilePath")&"'target='_blank'>"&Rs("Title")&"</a><br/>"")"&vbCrLf

Rs.MoveNext

Wend

Rs.Close

SetRs=Nothing

conn.close

setconn=nothing

%>

大家看Include/Config.asp應該知道保存在什麼地方了吧...

大家可以看下演示:

http://31u.net/html/zhuanti/daima005.htm

調用的是www.31u.net首頁的推薦信息...特性為35..

當然可以根據這個來寫出分欄目的JS新聞列表...from31u.com