<% dim typeid_,Fid_ tArr=Array("幻灯片图片","企业专访","现场花絮","现场精英访谈","设计人员访谈","展会精品","现场醒目展位") id=ConvertNum(Request.QueryString("id")) IF id<=0 Then Url301("http://www.fsjiaju.com/?peopleShow-id-0-404") End IF sql="Select * From [f_img] Where id=" & id Set Rs=conn.execute(sql) IF Rs.EOF Then Url301("http://www.fsjiaju.com/?peopleShow-404") End IF content=Rs("content") content = replace(content,"""http://www.fsjiaju.com/UploadFile/","""http://img1.fsjiaju.com/UploadFile/") content = replace(content,"""/images/UploadFile/","""http://img1.fsjiaju.com/UploadFile/") title=Rs("title") time_=Formatdatetime(Rs("imgdate"),1) come_=Replace(Rs("come")," ","") title_2=Rs("title_2") IF instr(title,"|")>0 Then title=split(title,"|")(1) End IF conArr=split(content,"[NextPage]") Function Mytitle(f) sql="select title from f_info where id=" & f set mrs=conn.execute(sql) if not mrs.eof then Mytitle=mrs("title") else Mytitle="" end if end function className_=Mytitle(rs("fid")) sql="Select * From [f_img] Where id=" & id Set Rs=conn.execute(sql) typeid_=Rs("type") Fid_=Rs("fid") %> <%=title%>-<%=className_%>-顺德家具网
佰壹家私
<% IF typeid_>0 Then Response.Write("
您所在的位置: 顺德家具网 > "&className_&" > 正文
") Else Response.Write("
您所在的位置: 顺德家具网 > "&className_&" > 正文
") End IF %>

<%=title%>

<%=title_2%>

来源:<%=come_%>    时间:<%=time_%>

<%=content%>

到网上搜索“<%=title%>”

热点展会

<% sql="Select top 4 id,title,content From f_info Where id Not In (12,13) Order By id Desc" Set rs=conn.execute(sql) x=0 do while not rs.eof '/zhuanti/?id= Response.Write("
"&Rs("title")&"
"&Rs("content")&"
") x=x+1 rs.movenext loop %>
<% Function ReadFile(f) set fso=server.createobject("scripting.filesystemobject") set nf=fso.opentextfile(server.mappath(f)) Response.Write(nf.Readall()) nf.close set nf=nothing set fso=nothing End function Randomize R_NUM=Round(9* Rnd) ReadFile("/Templets/Right/"&R_NUM&".htm") %>