电子商务世界 EB-World

节前筹备如火如荼(组图)

所属版面：论坛1 | 作者：alibaba | 编辑：ebworld | 来源：alibaba | 期数：2006年第09期 | 点击次数： <% strFileName = "200698231600.html" strFullName = "./html/2006-9-8/200698231600.html" Set rsRecord = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM [article] WHERE [fname]='" & strFileName & "'" rsRecord.Open strSQL, conn, 1, 3 %> <% = rsRecord("ClickNum") %> <% rsRecord("ClickNum") = rsRecord("ClickNum") + 1 rsRecord.Update rsRecord.Close Set rsRecord = Nothing %>

网商节前一天，西湖风和日丽，而网商节的工作人员们根本无暇欣赏美景，他们都在紧张忙碌地为明天的节日工作着。

工作人员在开幕式的大台子上铺设地毯

本届网商大会的20强选手

工作人员在搭“时光遂道”

这位工作人员告诉记者，他们昨天就熬了个通宵，今天白天也不能休息，今天晚上也还是要继续“奋战”

“以商会友”的帐蓬也正在搭建中

已经搭好的淘宝展厅

<% Set rsConst = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM [jsconst]" rsConst.Open strSQL, conn, 1, 3 If Request("action") = "update" Then If Request("txtName") = "" or Request("txtContent") = "" Then %> <% Else Set rsReview = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM [review]" rsReview.Open strSQL, conn, 1, 3 rsReview.AddNew rsReview("content") = CutWidth(ReplaceHTML(Request("txtContent")), CInt(rsConst("reviewmax")), "") rsReview("addtime") = Now() rsReview("name") = Request("txtName") rsReview("fname") = strFileName rsReview.Update rsReview.Close Set rsReview = Nothing End If End If If rsConst.EOF Then intPageSize = 10 Else intPageSize = rsConst("reviewpage") Set rsReview = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM [review] WHERE [fname]='" & strFileName & "' ORDER BY [id] DESC" rsReview.Open strSQL, conn, 1, 1 If rsReview.EOF Then %> <% Else %> <% rsReview.PageSize = intPageSize If Request("page")="" Then intCurPage = 1 Else intCurPage = CInt(Request("page")) rsReview.AbsolutePage = intCurPage intPageCount = rsReview.PageCount For intCounter = 1 To intPageSize If rsReview.EOF Then Exit For %>

目前没有该文章的评论

文章评论

<% Else %> #EEEEEE"> <% End If %> <% = rsReview("name")%> 于 <% = rsReview("addtime") %> 说道：

<% =rsReview("Content") %>

第 <% For intCounter = 1 To intPageCount If intCounter = intCurPage Then %> <% =intCounter %> <% Else %>

我来说两句：（限 <% =rsConst("reviewmax") %> 字以内，并请对发言负责！）

署名：
内容：

会员登录

用户名
密　码
新用户注册忘记密码?

精品文章