<%@CODEPAGE="65001"%> <% reportFlag = false tmpDate = date tmpY = year(tmpDate) tmpM = month(tmpDate) tmpD = day(tmpDate) reportCount=0 if Request.Cookies("VISTED") <> "" then reportCount=cint(Request.Cookies("VISTED")) else strSql = "select reportId,reportCount from report where reporty=" & tmpY & " and reportm=" & tmpM set rs = server.CreateObject("adodb.recordset") rs.open strSql,conn,1,1 if not rs.eof then reportCount = rs("reportCount") reportId = rs("reportId") reportFlag = true end if set rs = nothing reportCount=reportCount + 1 if reportFlag then strSql = "update report set reportCount=reportCount + 1 where reportId=" & reportId conn.execute strSql reportCount=reportCount else strSql = "insert into report(reporty,reportm,reportcount) values(" & tmpY & "," & tmpM & ",1)" conn.execute strSql end if Response.Cookies("VISTED") = reportCount end if %>
廣登電子歡迎您，您是本月第 <%=reportCount%> 位光臨本公司網站的來賓!
 
公司查詢:
產業查詢:
貨號查詢:
簡述查詢:
   
 
 
<% strSql = "Select news_id,title_tw from news where newsy=" &_ tmpY & " and newsm=" & tmpM & " and newsd=" & tmpD &_ " and title_tw<>'' and publish_tw=4 order by news_id desc" Set rs = server.createobject("adodb.recordset") rs.Open strSql,conn,1,1 dim cur cur = 1 do while not rs.eof %> <% rs.moveNext cur = cur + 1 loop set rs = nothing %>
  <%=cur%>.." class="title2"><%=rs("title_tw")%>
 
<% strSql = "Select top 10 news_id,title_tw from news where " &_ "type>0 and newsy=" & tmpY & " and newsm=" & tmpM &_ " and newsd<" & tmpD & " and title_tw <>'' and publish_tw=4 order by news_id desc" 'response.write strsql 'response.end Set rs = server.createobject("adodb.recordset") rs.Open strSql,conn,1,1 cur = 1 do while not rs.eof %> <% rs.moveNext cur = cur + 1 loop set rs = nothing %>
  <%=cur%>." class="title2"><%=rs("title_tw")%>
   
<% strSql = "select companyId,logo,swidth,sheight from company order by companyId asc" set rs = server.CreateObject("adodb.recordset") rs.open strSql,conn,1,1 do while not rs.eof %> ">" width="<%=rs("swidth")%>" height="<%=rs("sheight")%>" border="0"> <% rs.moveNext loop set rs = nothing %>
<%call endConnection()%>