<%@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_ch from news where newsy=" &_ tmpY & " and newsm=" & tmpM & " and newsd=" & tmpD &_ " and title_ch<>'' and publish_ch=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_ch")%>

<% strSql = "Select top 10 news_id,title_ch from news where " &_ "type>0 and newsy=" & tmpY & " and newsm=" & tmpM &_ " and newsd<" & tmpD & " and title_ch <>'' and publish_ch=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_ch")%>

<% 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()%>