📄 pubconncode.asp

📁 一个很好的在线购物系统
💻 ASP
字号:
<%
     Sub DisPlayPageLinks(rsData,intPageNum,LinkParam)
         Response.Write "转跳到："           
         For i=1 to Rsdata.PageCount
             Response.write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pn=" & i & LinkParam & """>" & i & "</a>" & "&nbsp;"
         Next
         Response.Write  "</br>"    
     end sub
      
     sub DisplayNavigation(rsData,IntPageNum,LinkParam)
     
         dim i
         Dim FirstRecord
         dim LastRecord
         if intPageNum=1 then 
              FirstRecord=1
         else
             FirstRecord=(intPageNum-1)*(Rsdata.PageSize)+1
         end if    
         LastRecord=intPageNum*(rsdata.PageSize)
         if LastRecord>rsdata.RecordCount then LastRecord=rsdata.RecordCount
         Response.Write "共<font color=""" & "#CC0000" & """>" & rsData.RecordCount & "</font>条记录，列出第<font color=""" & "#CC0000" & """>" & FirstRecord & "</font>到第<font color=""" & "#CC0000" & """>" & LastRecord & "</font>条记录&nbsp;&nbsp;&nbsp;&nbsp;"
         
       If IntPageNum=1 then 
           Response.write "首页 &nbsp;"       
           Response.write "上一页 &nbsp;" 
       elseIf IntPageNum>1 then 
           Response.write "<a Href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pn=" & 1 & LinkParam & """>首页<a/> &nbsp;"
           Response.write "<a Href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pn=" & intPageNUm-1 & LinkParam & """>上一页<a/> &nbsp;"
       End if   
       
       If IntPageNum=rsData.PageCount then 
           Response.write "未页 &nbsp;"       
           Response.write "下一页 &nbsp;" 
       elseIf IntPageNum<rsData.PageCount then 
           Response.write "<a Href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pn=" & intPageNUm+1 & LinkParam & """>下一页<a/> &nbsp;"       
           Response.write "<a Href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pn=" & RsData.PageCount & LinkParam & """>未页<a/> &nbsp;"
       End if                 
       Response.Write "<p></p>"
     end sub 
     
    Sub FillBackSpace(iCount)
        dim i 
        for i=1 to iCount
           response.Write "&nbsp;"
        next
    end sub 
    
    Sub OpenRecordSet(Rst,Sql)
      if Rst is Nothing then  
         Set Rst=CreateObject("Adodb.RecordSet")
      End if 
      if Rst.State=1 then Rst.Close
      Rst.Open Sql,Application("PubCnn"),2,3 
    End Sub
    
    
    Sub FillTable(RstData,IntPageNum,ListFieldCount)
    RstData.AbsolutePage =intPageNUm 
    for i=0 to RstData.PageSize-1
      Response.write "<Tr>"
        for j=0 to ListFieldCount-1
           Response.write "<td ><font size=""" & "2" & """>&nbsp;" & RstData(j) & "</font></td>"
        next
        RstData.MoveNext
        Response.write "</Tr>"  
        if RstData.Eof then exit For
    next
    End sub



	  
%>

<head>
<title></title>
</head>

<body bgcolor="#FFFFFF">
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -