<%Root=1%> <%current="news" Title=request.querystring("Title") TitleAll=request.querystring("TitleAll") mainType=request.querystring("MainT") ND_SID=request.querystring("ND_SID") if not IsNumeric(ND_SID) or ND_SID="" then ND_SID=0 sql="select *" sql=sql&",format(ND_StarDate,'yyyy/mm/dd') as StarDate" sql=sql&",NT2.name as NT2_Name" sql=sql&" from NewsData as N" sql=sql&" left join NewsType2nd as NT2 on NT2.id=N.ND_Type2nd" sql=sql&" where ND_SID="& ND_SID set NewsData=conn.execute(sql)%>
<%=NewsData("NT2_Name")%>

<%=NewsData("ND_Title")%>

<%=NewsData("ND_Content")%>
<%if NewsData("ND_Url")<>"" then if left(NewsData("ND_Url"),4) <> "http" then webURL = "http://" & NewsData("ND_Url") else webURL = NewsData("ND_Url") end if%> <%end if%> <%sql="select *" sql=sql&" from NewsAdd" sql=sql&" where ND_SID="& ND_SID set NewsAdd=conn.execute(sql) set FS=Server.CreateObject("Scripting.FileSystemObject") Pic_Path="../DB/NewsData/File" Pic_Path=Server.MapPath(Pic_Path)&"\" if not (NewsAdd.eof or NewsAdd.bof) then%>
<% do while not NewsAdd.eof or NewsAdd.bof if FS.FileExists(Pic_Path&ND_SID&"/"&NewsAdd("NA_PIC")) then%> "><%=NewsAdd("NA_LINK")%> <%else%> 附檔錯誤!! <% end if NewsAdd.movenext loop%>
<%end if%>