Tsys News list js Call Download _ Application Tips

A lot of netizens asked how to do a JS news call program, now posted for your reference:

JS Caller Program:
List2.asp

Source:--------------------------------------------------------------------------------
<!--#include file= "conn.asp"-->
<%
Dim Rs,sql
Dim specid ' resource attribute ID
SPECID=CLNG (Request ("Specid"))

Sql= "SELECT Top 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
%>
--------------------------------------------------------------------------------

Call Method:

Source:------------------------------------------------------------------------
<script src= "List2.asp?specid=13" ></script>

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

Explain ......... The top is TSYS1.0 ....

Here is my TSYS1.1-enhanced version of.
<!--#include file= "include/config.asp"-->
<%
Dim Rs,sql
Dim specid ' resource attribute ID
SPECID=CLNG (Request ("Specid"))

Dim Conn
Set Conn = Server.CreateObject ("Adodb.connection")
Conn.Open ConnStr
Sql= "SELECT Top 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
%>

Everyone see include/config.asp should know where to keep it ...

You can look at the demo:
Http://31u.net/html/zhuanti/daima005.htm
Call is the Www.31u.net home page recommendation information ... Feature is 35.

Of course can be based on this to write the list of JS News column ... from 31u.com