多くのネチズンは、JSニュースコールプログラムの作成方法を尋ねましたが、今では参照のために投稿されています。
JSコールプログラム：
list2.asp
Source code:------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<！ - ＃includefile = "conn.asp" - >
<％
DIMRS、SQL
dimspecid 'リソース機能ID
specid = clng（request（ "specid"））
sql = "selecttop10ID、title、filepathfromview_newsinfowhereinstr（ '、'+specity+'、'、 '、"＆ "＆"、'）<> 0ORDERBYIDDESC "
setrs = conn.execute（sql）
wherenotrs.eof
respons.write "document.write（" "<ahref = '/tsys/newsfiles/"＆rs（ "filepath"）＆ "'ターゲット= '_ blank'>"＆rs（ "title"）＆ "</a> <br/>" "）＆vbcrlf
rs.movenext
ウェンド
rs.close
setrs =何もない
％>
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------）
呼び出し方法：
Source code:------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<scriptsrc = "list2.asp？specid = 13"> </script>
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------）
説明させてください.....上記はtsys1.0です...
以下は、私によって書かれたTSYS1.1の拡張バージョンです。
<！ - ＃includefile = "include/config.asp" - >
<％
DIMRS、SQL
dimspecid 'リソース機能ID
specid = clng（request（ "specid"））
ディムコン
setConn = server.createObject（ "adodb.connection"）
conn.openconnstr
sql = "selecttop10ID、title、filepathfromview_newsinfowhereinstr（ '、'+specity+'、'、 '、"＆ "＆"、'）<> 0ORDERBYIDDESC "
setrs = conn.execute（sql）
wherenotrs.eof
Response.Write "document.write（" "<ahref = '"＆rs（ "filepath"）＆ "'ターゲット= '_ blank'>"＆rs（ "title"）＆ "</a> <br/>" "）＆vbcrlf
rs.movenext
ウェンド
rs.close
setrs =何もない
conn.close
setConn =何もない
％>
include/config.asp ...を見るとき、誰もがそれを保存する場所を知っている必要があります...
デモを見ることができます：
http://31u.net/html/zhuanti/daima005.htm
通話は、www.31u.netのホームページに関する推奨情報です...機能は35です。
もちろん、これに基づいてサブコラムのJSニュースリストを書くことができます... from31u.com