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

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      不能ASP圖像組件來生成圖像的ASP計數器程序(一)
                
                  發表時間：2024-06-10             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]這是我去年編的一個ASP程序，那時用慣了C語言，所以對Basic反而忘了，但由于覺得ASP很熱門，所以試著編了這個程序，程序沒經過優化，代碼很長，主要是數據那時候不知道該怎么用：) 別笑我，因為現在我會用啦!! 這是個簡單的計數器申請系統，采用文本，所以只要是支持ASP的空間就都可以測試!! 其中...

                              這是我去年編的一個ASP程序，那時用慣了C語言，所以對Basic反而忘了，但由于覺得ASP很熱門，所以試著編了這個程序，程序沒經過優化，代碼很長，主要是數據那時候不知道該怎么用：) 別笑我，因為現在我會用啦!! 
      這是個簡單的計數器申請系統，采用文本，所以只要是支持ASP的空間就都可以測試!! 
      其中TXT目錄放的是所有人的計數文本文件 
      number是用來統計當前申請計數器的最大人數 初始化內容為0 
      apply.asp applycheck.asp是用來提供申請計數器的 
      header 是我用C語言從一個256色的bmp圖像中提取出來的bmp圖像的頭部信息，太大了，有時間的人可以改為2色的bmp圖像的頭部信息，當然代碼改變了。我取為256色只是為了方便編制下面的counter.asp 
      counter.asp 當然是計數器的核心程序啦!! 
      里面還有一個counter.txt 時隔久了，不知有沒有用，反正我也把它放上去嘛算啦!! 


      ZIP下載地方： 
      http://grwy.online.ha.cn/explorer 

      下面只例舉出來幾個ASP程序的源程序: 
      --------------apply.asp---------------- 
      <%set fsFilesys=CreateObject("Scripting.FileSystemObject") 
      set myText=fsFilesys.OpenTextFile(Server.MapPath("/explorer/")&"/counter/number.txt") 
      counter=mytext.readline 
      mytext.close 
      counter=counter+1 
      user=counter 
      %> 
      <html> 

      <head> 
      <title></title> 
      <style type="text/css"><!-- 
      .p9 { font-family: "宋體"; font-size: 9pt}a {text-transform: none; text-decoration: none;} 
      a:hover {text-decoration: underline; color: #002255;} 
      --></style> 
      </head> 

      <body bgcolor="#FFE0D7"> 

      <table border="1" cellspacing="0" cellpadding="0" bgcolor="#0E3700"> 
      <tr bgcolor="#EEF9FF"> 
      <td valign="middle" align="center" bgcolor="#FFFCD2" width="694"><span class="p9"><font 
      color="#1F9B00"><a href="../../index.html" target="_blank">網站主頁</a> </font></span></td> 
      <td valign="middle" align="center" bgcolor="#FFFCD2" width="694"><span class="p9"><font 
      color="#1F9B00"><a href="../../zdlink/zdjx.htm" target="_blank">網站精選</a> </font></span></td> 
      <td valign="middle" align="center" bgcolor="#FFFCD2" width="694"><span class="p9"><font 
      color="#1F9B00"><a href="../../program/bcyd111.htm" target="_blank">編程圓地</a> </font></span></td> 
      <td valign="middle" align="center" bgcolor="#FFFCD2" width="694"><span class="p9"><font 
      color="#1F9B00"><a href="../../zypic/zyfg.htm" target="_blank">中雁風光</a> </font></span></td> 
      <td valign="middle" align="center" bgcolor="#FFFCD2" width="694"><span class="p9"><font 
      color="#1F9B00"><a href="../../downfile/ljxz.htm" target="_blank">軟件下載</a> </font></span></td> 
      <td align="center" bgcolor="#FFFCD2" width="695"><p align="center"><span class="p9"><font 
      color="#1F9B00"><a  
      target="_blank">暗黑帝國</a> </font></span></td> 
      <td align="center" bgcolor="#FFFCD2" width="695"><p align="center"><span class="p9"><font 
      color="#1F9B00"><a href="../../myworld/myworld.htm" target="_blank">我的天地</a> </font></span></td> 
      <td align="center" bgcolor="#FFFCD2" width="695"><p align="center"><span class="p9"><font 
      color="#1F9B00"><a href="../../nomoneysource/mfzy.htm" target="_blank">免費資源</a> </font></span></td> 
      <td align="center" bgcolor="#FFFCD2" ><span class="p9"><font color="#1F9B00"></font></span><font 
      size="4"><img src="http://counter.hongzhi.com/cgi-bin/Count.exe?df=3079" width="53" 
      height="12" align="absmiddle"></font><span class="p9"><font color="#1F9B00"></font></span></td> 
      </tr> 
      </table> 

      <p align="center"><span class="p9"><br> 
      </span></p> 

      <p align="center"></p> 
      <div align="center"><center> 

      <table> 
      <tr> 
      <td><span class="p9"><font color="#0080C0"><strong><big>探索者免費計數器申請</big></strong></font></span></td> 
      </tr> 
      <tr> 
      <td ><form name="apply" action="applaycheck.asp?user=<%=counter%>" method="POST"><span class="p9"> 
      <br>你是第<%=counter%>位來本站申請計數器的人，歡迎你！ 
      </span> 
      <span class="p9"><br>三項都是是必填項</span><br><br> 
      <span class="p9">你的用戶名是：<%=counter%><BR>點擊開始申請就會得到一段代碼，<br>加入你的頁面就可開始統計了。 
      </span> 
      <p align="center"><span class="p9"><input type="submit" value="開始申請" class="p9"></p> 
      </form> 
      </td> 
      </tr> 
      </table> 
      </center></div> 

      </body> 
      </html> 

      ------------applycheck.asp--------------------- 
      <style type="text/css"><!-- 
      .p9 { font-family: "宋體"; font-size: 9pt}a {text-transform: none; text-decoration: none;} 
      a:hover {text-decoration: underline; color: #002255;} 
      --></style> 
      </head> 
      <body> 
      <span class="p9"> 
      <%user=request.querystring("user")%> 
      <%set fsFilesys=CreateObject("Scripting.FileSystemObject") 
      set myText=fsFilesys.OpenTextFile(Server.MapPath("/explorer/")&"/counter/number.txt") 
      counter=myText.ReadLine 
      counter=counter+1 
      myText.close 
      set myText=fsFilesys.CreateTextFile(Server.MapPath("/explorer/")&"/counter/number.txt",true) 
      mytext.writeline(counter) 
      mytext.close%> 

      你的計數器申請成功！只要將以下代碼加入你的頁面，就能在你的頁面得到一個計數器：<br><br> 
      <font color="#ff0000"> 
      <p>&lt;a href=&quot;http://grwy.online.ha.cn/explorer&quot;&gt;&lt;img src=&quot;http://home.lz.gs.cninfo.net/explorer/counter/counter.asp?user=<%=user%>&quot;<br> 
      border=&quot;0&quot; alt=&quot;探索者計數器&quot; width=&quot;64&quot; 
      height=&quot;16&quot;&gt;&lt;/a&gt;</p> 

      </span> 
      <a ><img src="http://-2/explorer/counter/counter.asp?user=<%=user%>" 
      border="0" alt="探索者計數器" width="64" height="16"></a> 

      <%set myText=fsFilesys.CreateTextFile(Server.MapPath("/explorer/")&"/counter/txt/"&user&".ddd",true) 
      myText.writeline("0") 
      mytext.close%> 
      </body> （出處：熱點網絡）


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