<% dim aryList,intPage,intPageCnt,intPageSize,i dim intListCnt,strTemp,intAll on error resume next call getFormValue aryList=getList() if not Err=0 then call ShowError 'Response.End end if %> 深圳鑫盛精密模具配件有限公司
  返回首页 公司简介 产品中心 在线订单 客户反馈 联系我们  
 当前位置:首页>>客户反馈

" id=asdForm name=asdForm> <% if isNull(aryList) then Response.Write ("") else intListCnt=ubound(aryList,2) for i=0 to intListCnt %> <% next end if %>
NO. 我是... 我要... 我想说... 当时是...
<%=arylist(0,i)%> <% select case aryList(3,i) case 1 strTemp="表扬一下" case 2 strTemp="提下意见" case 3 strTemp="问下问题" case 4 strTemp="找些资料" case 5 strTemp="问下价格" end select Response.Write strTemp %> <%=FormatDateTime(aryList(5,i),1)&FormatDateTime(aryList(5,i),4)%>
1 then%>onclick="javascript:gotoPage(<%=(intPage-1)%>);"<%end if%>> onClick="javascript:gotoPage(<%=(intPage+1)%>);"<%end if%>> 目前共有:<%=intAll%> 主题,<%=intPage%>/<%=intPageCnt%> 页
我要咨询:
  我  是:   话 题 是:
  我  要: 表扬一下 提下意见 问下问题 找些资料 问下价格 
  电子邮箱:   联系电话:
   我 想 说:

 
<% function getList() dim lobjConn,lobjRSList,strSQLText strSQLText="SELECT forumid,poster,email,type,topic,posttime,replies FROM TAB_FORUM WHERE forumid=Rootid and deleted=0 order by forumid desc" set lobjConn=server.CreateObject("adodb.connection") set lobjRSList=server.CreateObject("adodb.recordset") lobjConn.Open connstr lobjRSList.Open strSQLText,lobjConn,adOpenKeyset,adlockOptimistic,&H0001 intAll=0 if lobjRSList.EOF then getList=null else lobjRSList.PageSize=intPageSize intPageCnt=lobjRSList.PageCount if intPageCnt=>intPage and intPage>0 then lobjRSList.AbsolutePage=intPage getList=lobjRSList.GetRows(intPageSize) intAll=lobjRSList.RecordCount else getList=null end if end if lobjRSList.Close lobjConn.Close end function 'getList() sub getFormValue intPage=int(Request("page")) 'intPageCnt=int(Request("pagecnt")) intPageSize=int(Request("pagesize")) if intPage=0 then intPage=1 'if intPageCnt=0 then intPageCnt=1 if intPageSize=0 then intPageSize=10 end sub %>