<% set rs=Server.CreateObject("adodb.recordset") set rsimg=server.CreateObject("ADODB.RecordSet") NewsID=request("NewsID") sql="SELECT * FROM xinwen as a,type as b where NewsID=" & NewsID & " and a.type=b.typeid " rs.open sql,conn,1,1 subtype=trim(rs("typeName")) keyword=trim(rs("keyword")) subtypeid=trim(rs("typeid")) rs.close %> 中国服装协会官方网站-行业资讯
 首页 > 行业资讯 > <%=subtype%> > 正文
<% sql="update xinwen set hits=hits+1 where newsid=" & NewsId conn.execute (sql) Set RS = Server.CreateObject("ADODB.RecordSet") exec= "select * from xinwen where newsid=" & NewsId rs.Open exec, Conn, 1,1 text=rs("content") if not(instr(rs("grade"),session("grade"))>0 or trim(rs("grade"))="" or isnull(rs("grade"))) then %>
<% rs.close else %>
<% Application.Unlock end if end if rs.close end if Set fso =nothing %>
<% ' if trim(rs("Content"))<>"" then if (trim(rs("Filename"))="" or isnull(rs("Filename")) ) then %> <%' response.write "

"&trim(rs("title"))&"

" ' response.write "
<%=trim(rs("Title"))%>
日期:<%=rs("NTime")%>
<%=trim(rs("author"))%>
来源: <%if rs("Original")="《服装界》" then %> <%=trim(rs("Original"))%> <%else if rs("Original")="服饰流行前线" then %> <%=trim(rs("Original"))%> <%else if rs("Original")="2007版《中国服装产业链配套资源》" then %> <%=trim(rs("Original"))%> <%else if rs("Original")="www.fibre2fashion.com" then %> <%=trim(rs("Original"))%> <%else if rs("Original")="中国制衣技术网" then %> <%=trim(rs("Original"))%> <%else if rs("Original")="2009版《中国服装产业链配套资源》" then %> <%=trim(rs("Original"))%> <%else if rs("Original")="中国服饰新闻网" then %> <%=trim(rs("Original"))%> <%else if rs("Original")="中国纺织报" then %> <%=trim(rs("Original"))%> <%else if (rs("Original")="《服装时报》" or rs("Original")="服装时报") then %> <%=trim(rs("Original"))%> <%else if rs("Original")="江苏纺织服装网" then %> <%=trim(rs("Original"))%> <%else if rs("Original")="宁波市服装协会" then %> <%=trim(rs("Original"))%> <%else if rs("Original")="中国流行色协会" then %> <%=trim(rs("Original"))%> <%else if rs("Original")="中国服装传媒网" then %> <%=trim(rs("Original"))%> <%else%> <%=trim(rs("Original"))%> <%end if end if end if end if end if end if end if end if end if end if end if end if end if %>
<% if instr(1,rs("Content"),"
",1)>0 or instr(1,rs("Content"),"

",1)>0 then Response.Write rs("Content") else Response.Write replace(rs("Content"),chr(13),"
") end if rs.close %>

"&text ' response.write "

" else ss=len(trim(rs("Filename"))) fileAtt= mid(trim(rs("Filename")),ss-2,ss) if fileAtt="txt" or fileAtt="doc" or fileAtt="xls" then response.redirect "http://www.cnga.org.cn/news/text/"&trim(rs("Filename")) 'response.write rs("filename") else Set fso = Server.CreateObject("Scripting.FileSystemObject") FilePath = Server.MapPath("/news/text/"&trim(rs("Filename"))) '"/cnita/news/text/"& if fso.FileExists(Filepath) then Application.lock %>
<% Set fin = fso.OpenTextFile(Filepath, , True) 'fin.ReadAll=replace(fin.ReadAll,"","
")replace(fin.ReadAll,"","

") Response.Write replace(fin.ReadAll,"","

") fin.close%>

分享到:
相关新闻>>
<% sql="SELECT Top 10 * FROM xinwen WHERE keyword like '%" & keyword & "%' and newsid<> "&newsid& " and (Type<>'61' and Type<>'63' and Type<>'64' ) and disappare='1' ORDER BY NTime DESC" rs.open sql,conn,1,1 If rs.eof then Response.Write "" else do while not rs.eof ab=int(rs("subtype")) select case ab case "2": linkpath="news/View.asp" 'linkpath=="news/View.asp?NewsID="&rs("NewsID")&"" case "3": linkpath="cnga/xhdt-View.asp" case "33" linkpath="cnga/gonggao-View.asp" case "8": linkpath="peitao/View.asp" case "66": linkpath="liux/View.asp" end select %> <% rs.movenext loop End If rs.close %>
暂无相关新闻
·
<% t=rs("type") permission=int(rs("linkpermission")) if t=33 then %> " target="_blank"><%=rs("Title")%> <%else%> <% if permission=1 then %> " target="_blank"><%=rs("Title")%> <%else%> &MainType=<%=MainType%>&Typeid=<%=Type_id%>" target="_blank"><%=rs("Title")%> <% end if end if %>(<%=rs("NTime")%>)
版权声明:
1
网站注明“来源:中国服装协会、《服装界》、中国服装协会网”的所有作品,其他媒体、网站或个人转载使用时必须注明:“来源:中国服装协会、《服装界》或中国服装协会网”。
2
凡本网站注明“来源:XXX”的作品,均转载其它媒体,转载目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责。本网站提供的资料如与相关纸质文本不符,以纸质文本为准。
 
<% end if %>