TSYS 新闻列表JS调用下载

```html

<%

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 ""&Rs("Title")&"
" & vbCrLf

Rs.MoveNext

Wend

Rs.Close

Set Rs=Nothing

%>

```

解读：这是一个ASP代码片段，其主要功能是从数据库（可能是SQL Server）中查询新闻信息并以HTML的形式输出。通过URL参数`SpecId`来筛选特定的新闻信息，查询结果最多显示10条新闻。查询结果包括新闻的ID、标题和文件路径。然后，使用JavaScript将这些新闻链接输出到页面上。

```html

```

注：这段代码假设已经存在一个名为`Config.asp`的配置文件，用于设置数据库连接参数。这段代码假设页面中存在一个名为`getQueryVariable`的JavaScript函数，用于从URL中获取指定的参数值。你可以根据实际情况进行适当修改和调整。演示地址：<