您好,欢迎光临本网站![请登录][注册会员]  
文件名称: asp.net汽车销售网站
  所属分类: C#
  开发工具:
  文件大小: 4mb
  下载次数: 0
  上传时间: 2010-06-23
  提 供 者: zangy******
 详细说明: <%=webname%>--新闻快讯 <% Dim Intcatid,strOrder,strcat,strcategory Intcatid = 0 Intcatid=SafeRequest("catid",1) strcat = "综合新闻" set rs=server.CreateObject("adodb.recordset") If Intcatid <> 0 Then rs.open " select category from category where categoryid="&Intcatid&" ",conn,1,1 strcategory = trim(rs("category")) rs.close strcat = strcat &"->"& strcategory &" " Else End If %> background="<% = webimg16 %>">
>您的位置: ><%=webname%>->><% = strcat %>
<% Const MaxPerPage=20 dim totalPut dim CurrentPage dim TotalPages dim j dim sql if Not isempty(SafeRequest("page",1)) then currentPage=Cint(SafeRequest("page",1)) else currentPage=1 end if If Intcatid = 0 Then rs.open "select newsid,newsname,newscontent,addname,adddate from news Order By adddate desc",conn,1,1 Else rs.open "select newsid,newsname,newscontent,addname,adddate from news Where categoryid = "& Intcatid &" Order By adddate desc ",conn,1,1 End If if rs.eof And rs.bof then Response.Write "

您还没有添加新闻!

" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"chknews.asp" else if (currentPage-1)*MaxPerPage background="<% = webimg16 %>"> <%do while not rs.eof%> <%i=i+1 if i>=MaxPerPage then Exit Do rs.movenext loop rs.close set rs=nothing%>
>新闻主题 >发布人 >发布时间
','','width=500,height=300,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"> ><%=trim(rs("newsname"))%> ><%=trim(rs("addname"))%> ><%=rs("adddate")%>
<% End Sub Function showpage(totalnumber,maxperpage,filename) Dim n If totalnumber Mod maxperpage=0 Then n= totalnumber \ maxperpage Else n= totalnumber \ maxperpage+1 End If %>
>

<% If CurrentPage<2 Then %> >首 页 上一页 <% Else %> ?page=1>>首 页 ?page=<% = CurrentPage-1 %>>>上一页 <% End If If n-currentpage<1 Then %> >下一页 末 页 <% Else %> ?page=<% = (CurrentPage+1) %>>>下一页 ?page=<% = n %>>>末 页 <% End If %> >第 <% = CurrentPage %> >页 共 <% = n %> 页 共 <% = totalnumber %> 条新闻 每页 <% = maxperpage %> 条新闻 转到第:> 页 <% End Function %>

...展开收缩
(系统自动生成,下载前可以参看下载内容)

下载文件列表

相关说明

  • 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
  • 本站是交换下载平台,提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度
  • 本站已设置防盗链,请勿用迅雷、QQ旋风等多线程下载软件下载资源,下载后用WinRAR最新版进行解压.
  • 如果您发现内容无法下载,请稍后再次尝试;或者到消费记录里找到下载记录反馈给我们.
  • 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
  • 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.
 相关搜索: 汽车销售
 输入关键字,在本站1000多万海量源码库中尽情搜索: