<% ID=trim(request.QueryString("id")) if ID="" then ID="1" select case id case "1" titleimg = "index_r2_c2.jpg" case "2" titleimg = "index_r2_c72.jpg" case "8" titleimg = "culture.jpg" end select If ID="" Then Response.write "" End if set Rs = server.createobject("adodb.recordset") Rs.source = "select * from Company where ID="&ID&"" Rs.open Rs.source,conn,1,3 if Rs.eof then Content="還沒有添加相關內容!" else Kig=Rs("Kig") Rs("kig")=Kig+1 Rs.update Content=Rs("Content") ComName=Rs("ComName") If Rs("GroupID")=0 Then GroupID=rs("id") Else GroupID=Rs("GroupID") End if end if Rs.close set Rs=nothing %> 日本老师xxxx_www.xxxxxxxx_最新韩剧2024热播韩剧_精品偷拍被偷拍在线观看 - 福利在线看片

日本老师xxxx_www.xxxxxxxx_最新韩剧2024热播韩剧_精品偷拍被偷拍在线观看 - 福利在线看片

 
新聞動態 更多>>
<% set rs=server.createobject("adodb.recordset") sql="select id,* from News where TreeID='54' and Putout=true ORDER BY id desc" rs.open sql,conn,1,3 count=0 if rs.Bof then response.write "
還沒有新聞內容!
" else do while not rs.eof and count<6 Newtitle=rs("Newtitle") if len(Newtitle)>18 then Newtitle=left(Newtitle,18)&"......" %>
<%count=count+1 rs.movenext loop end if %>
  <%set rs=server.CreateObject("adodb.recordset") rs.open "select jianjie from shuxing",conn,1,1 response.write trim(rs("jianjie")) rs.close set rs=nothing%>  
 
  公司簡介
  <%set rs=server.CreateObject("adodb.recordset") rs.open "select qita from shuxing",conn,1,1 response.write trim(rs("qita")) rs.close set rs=nothing%>
   
  產品展示