<% strTemp= "" set rsProduct=server.createobject("adodb.recordset") exec="select top 4 * from [0791idc_Product] where Passed="&TrueType&" order by id desc" rsProduct.open exec,conn,1,1 do while not rsProduct.eof strTemp= strTemp & "" rsProduct.movenext loop rsProduct.close set rsProduct=nothing response.write strTemp %>
" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "" strTemp= strTemp & "
" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"
" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &" " strTemp= strTemp &"" strTemp= strTemp & "" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"" strTemp= strTemp &"
 "&"
" AutoLink = "EnProductShow.asp?ClassID="& rsProduct("ClassID")&"&ID=" & rsProduct("id") &"" strTemp= strTemp &"" strTemp= strTemp & "" & "
" strTemp= strTemp & "
 
" strTemp= strTemp & "
" AutoLink = "EnProductShow.asp?ID="&rsProduct("ID")&"" strTemp= strTemp &""& rsProduct("EnTitle") If Session("UserName")<>"" Then strTemp= strTemp & "
" AutoLink = "EnProductShow.asp?ID="&rsProduct("ID")&"" strTemp= strTemp &""& rsProduct("Title") end if strTemp= strTemp & "
" strTemp= strTemp & "
<% sql="select content from 0791IDC_Aboutus where Title='index_pro'" set rs2=server.createobject("adodb.recordset") rs2.open sql,conn,1,1 if not rs2.eof then %>
<%=rs2("content")%>
<% end if rs2.close set rs2=nothing %>
<%If Session("UserName")<>"" Then%>
<% sql="select content from 0791IDC_Aboutus where Title='index_info'" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then %>
<%=rs("content")%>
<%end if%>
<% end if rs.close set rs=nothing %>