<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Option Explicit %> <% if Instr(Request.ServerVariables("http_user_agent"),"Firefox")<=0 then 'FF瀏覽器必須去掉第一行的w3c標準 %> <%end if%> 我要操操_网站啪啪_网站你懂的_网站你懂得

我要操操_网站啪啪_网站你懂的_网站你懂得

<% dim ID,datafrom ID=request.QueryString("ID") datafrom="DeSou_About" dim rs,sql sql="select * from ["& datafrom &"] where id=1" set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 if not rs.eof then 'if StrLen(rs("Content"))>40 then 'response.Write StrLeft(rs("Content"),40)&"..." 'else response.Write rs("Content") 'end if end if rs.close %>

    <% sql="select top 7 * from [DeSou_News] where 1=1 order by AddTime desc" rs.open sql,conn,0,1 while(not rs.eof) response.Write "
  • "&rs("NewsName")&"
  • " rs.movenext wend rs.close %>
<% sql="select top 16 * from [DeSou_Products] where ViewFlag and CommendFlag order by PaiXu desc" rs.open sql,conn,0,1 %> <% while(not rs.eof) %> <% rs.movenext wend %> <% rs.movefirst while(not rs.eof) %> <% rs.movenext wend %>
" width="155" height="110" />
<%=StrLeft(rs("ProductName"),16)%>
<% rs.close set rs=nothing %>