不能ASP映像組件來產生映像的ASP計數器程式(一)

來源:互聯網
上載者:User
程式|計數器 不能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 href="http://grwy.online.ha.cn/explorer/diablo2/diablo.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="../../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/



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。