<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      用ASP完成免費計數器提供-2
                
                  發表時間：2024-01-02             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]4.用戶管理程序 <%Response.Expires=0 dim input() thisfile = server.mappath("counter.asp") Set fs = CreateObject("Scripting.FileSystemObjec...

                              4.用戶管理程序 
      <%Response.Expires=0 
      dim input() 
      thisfile = server.mappath("counter.asp") 
      Set fs = CreateObject("Scripting.FileSystemObject") 
      Set thisfile = fs.OpenTextFile(thisfile,1,False) 
      count = 0 
      do while not thisfile.AtEndOfStream 
      thisline = thisfile.readline 
      Redim preserve input(count) 
      input(count) = thisline 
      count = count + 1 
      loop 
      thisfile.Close 
      number=(count-1)/5 
      set fs=nothing 
      %> 
      <html> 
      <title>計數器管理系統</title> 
      <body> 
      <p align="center"><font style="font-size: 20pt">計數器管理系統</font></p> 
      <p align="center">目前保留用戶 <%=number%>個</p> 
      <table width="760"> 
      <tr> 
      <td width="100" ><font color="#FF00FF">編號</font></td> 
      <td width="200"><font color="#FF00FF">用戶名</font></td> 
      <td width="360" ><font color="#FF00FF">網站名</font></td> 
      <td width="100" ><font color="#FF00FF">刪除</font></td> 
      </tr> 
      <%x="" 
      for i=1 to number 
      x=input((i-1)*5+1) 
      Response.Write "<tr><td width='100'><font color=#00ffFF>" &i & "</font>" 
      Response.Write "<td width=200 ><font color=#FFffFF>"&input((i-1)*5+1)&"</font></td>" Response.Write "<td 
      width=360 ><font color=#FF00FF>"&input((i-1)*5+4)&"</font></td>" 
      Response.Write "<td width=100 align=left><a href=dele.asp?id=" &x& ">刪除</a></td></tr>" 
      next 
      %> 
      </table> 
      </body> 
      </html> 
      5.用戶刪除處理程序dele.asp 
      <%Response.Expires=0 
      dim input() 
      id=Request.QueryString("id") 
      thisfile = server.mappath("counter.asp") 
      Set fs = CreateObject("Scripting.FileSystemObject") 
      Set infile = fs.OpenTextFile(thisfile,1,False) 
      counter = 0 
      do while not infile.AtEndOfStream 
      thisline = infile.readline 
      Redim preserve input(counter) 
      input(counter) = thisline 
      counter = counter + 1 
      loop 
      infile.Close 
      number=(counter-1)/5 
      Set outfile = fs.CreateTextFile(thisfile) 
      outfile.WriteLine input(0) 
      for i=1 to number 
      if input((i-1)*5+1)<>id then 
      outfile.WriteLine input((i-1)*5+1) 
      outfile.WriteLine input((i-1)*5+2) 
      outfile.WriteLine input((i-1)*5+3) 
      outfile.WriteLine input((i-1)*5+4) 
      outfile.WriteLine input((i-1)*5+5) 
      end if 
      next 
      outfile.Close 
      set fs=nothing 
      Response.Redirect "manage.asp" 
      %> 
      --------------------------------------------------- 
      （出處：熱點網絡）


              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清