源碼:-------------------------------------------------------------------------------- !--#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加強版的.. !--#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 %>
