网上反馈--徐州市合众物资有限公司

<% Response.Buffer = True strPageNo = Request("PageNo") If IsEmpty(strPageNo) Then strPageNo = "1" If Not IsNumeric(strPageNo) Then strPageNo = "1" intPageNo = cLng(strPageNo) if intpageno < 1 then intpageno = 1 strfind = request("find") if isempty(strfind) then strfind = "" strtemp = strfind intNewsListRows = 10 intNewsintNewsListCols = 60 intTotalRows = 0 intTotalPages = 0 Set objCn1 = Server.CreateObject("ADODB.Connection") Set objRst1 = Server.CreateObject("ADODB.RecordSet") Set objRst2 = Server.CreateObject("ADODB.RecordSet") objCn1.Open "WEBDB" strQry = "SELECT ""ID"", ""MID"", ""CATIDS"", ""BRAND"", ""TITLE"", ""DESCRIPTION"", ""MODEL"", ""PRICEX"", ""STORE"", ""MOUNT"", ""PUBDATE"" FROM ""WEBPARTS"" " strQry = strQry + " WHERE ""ISPUBLISHED"" > 0 AND ""MID"" = 'YZJ9022' AND ""PUBDATE"" > CURRENT DATE - 900 DAYS " if strfind <> "" then strfind = ucase(replace(strfind, "'", "''")) strfind = replace(strfind, "%", "%%") strfind = "'%" & strfind & "%'" strqry = strqry & " AND UCASE(TITLE) LIKE " & strfind end if strQry = strQry + " ORDER BY ID DESC " objRst1.Open strQry, objCn1 Do While Not objRst1.Eof objRst1.MoveNext intTotalRows = intTotalRows + 1 Loop intTotalPages = intTotalRows \ intNewsListRows If IntTotalRows MOD intNewsListRows > 0 Then intTotalPages = intTotalPages + 1 If Not objRst1.Bof Then objRst1.MoveFirst If intPageNo > intTotalPages Then intPageNo = intTotalPages intCount = 0 Do While intCount < (intPageNo - 1) * intNewsListRows objRst1.MoveNext intCount = intCount + 1 Loop intCount = 0 %> 网上反馈--徐州市合众物资有限公司

如果您想购买我们的产品或者有任何疑问，请您详细填写以下联系方式，我们会尽快派专人与您联系。

公司名称：
地址：
电话：
传真：
联系人：
E - mail：
其它要求：