<% // Option Explicit Response.Buffer = True // 特别提醒: 为保证页面的美观,本程序在生成HTML代码的时候 加了样式 ,样式 类 为 P92 ,请一定保证样式表中有此类。 //*******************************常量定义开始 Const LngCorp=6054 //* 定义客户编号 Const PerLine=1 //* 定义每行显示的图片条数 Const TotleLine=10 //* 定义显示多少行 Const MainCate=2 Const CurrFile="default.asp" //*定义套用此脚本的页面文件名,必须为ASP文件 Const IsOpen=0 //*定义是否在弹出窗口浏览大图。 Const ImgWidth=220 //*定义图片的显示宽度,0表示无限制 Const ImgHeight=165 //*定义图片的显示高度,0表示无限制 //*******************************常量定义结束 //◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ //所有控制参数的定义在上面进行,下面的脚本修改请联系技术开发人员◆◆ //◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆ Dim ObjRst,ObjCon,StrSql,StrWhere,StrOrder,StrQry Set ObjRst=Server.CreateObject("ADODB.RecordSet") Set ObjCon=Server.CreateObject("ADODB.Connection") ObjCon.Open "WD102" //连接数据库 //=================================== StrSql="Select id,title,brand,model,img1,ispublished,place,price,img10_title,img9_title,img10 FROM diy_products" //* 定义查询语句 StrWhere=" Where corpid="&LngCorp&" And ispublished=1" //定义查询条件 StrOrder=" Order by id desc" //定义排序规则 StrQry="" //=================================== Dim TotalPage,TotalRecords,CurrPage,Flg,i,k Dim PerPage PerPage=PerLine*TotleLine TotalPage=0 TotalRecords=0 CurrPage=Request("page") If CurrPage="" Or Not IsNumeric(CurrPage) Then CurrPage=0 If CurrPage<1 Then CurrPage=0 CurrPage=Int(CurrPage) //=================================== If ObjRst.State=1 Then ObjRst.Close ObjRst.Open "SELECT Count(id) cc FROM diy_products"&StrWhere,ObjCon TotalRecords=ObjRst.Fields("cc") ObjRst.Close //=================================== 信息显示 %>
<% If TotalRecords>0 Then TotalPage=Int(TotalRecords/PerPage) If PerPage*TotalPageTotalPage Then CurrPage=TotalPage If CurrPage=0 Then CurrPage=1 If ObjRst.State=1 Then ObjRst.Close ObjRst.Open StrSql&StrWhere&StrOrder,ObjCon i=0 If CurrPage>1 Then Do While Not ObjRst.Eof And i<(CurrPage-1)*PerPage i=i+1 ObjRst.MoveNext Loop End If //开始显示图片 k=1 Do While Not ObjRst.Eof And k<=PerPage %> <% ObjRst.MoveNext k=k+1 Loop k=k+1 //显示结束 Else Response.Write "" End If %>
二手机械 品牌 机型 机号 工作时数 产地 出厂年份 价格 图片
<%=ObjRst("title")%> <%=ObjRst("brand")%> <%=ObjRst("model")%> <%=ObjRst("img9_title")%> <%=ObjRst("img10_title")%>小时 <%=ObjRst("place")%> <%=ObjRst("img10")%> <%=ObjRst("price")%> -<%If ObjRst("img1")<>"" Then %>" onclick="return pop(this.href);">浏览图片<%end if%>-
暂时没有相关信息
<% //=========== 分页框 Response.Write "
" Response.Write "
" Response.Write "共"&TotalPage&"页,当前第"&CurrPage&"页  " If CurrPage>1 Then Response.Write "<上页>" If CurrPage<下页>" Response.Write "
" //=================================== If ObjRst.State=1 Then ObjRst.Close If ObjCon.State=1 Then ObjCon.Close Set ObjRst=Nothing Set ObjCon=Nothing ////////////////////////////////////////// %>