源碼:-------------------------------------------------------------------------------- <!--#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 %> --------------------------------------------------------------------------------
下面是我寫的TSYS1.1加強(qiáng)版的.. <!--#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 %>
