- Login
帳號:
密碼:
ASP MENU
線上教學
   ASP 教學
VB.NET 教學
JSP 教學
JAVA 教學
完整 ASP 教學
程式下載
   ASP 程式下載
提供 ASP 程式
程式量身訂做
   收費標準
填寫需求表
討論交流專區
   程式討論區
電腦資訊交流
工作機會
   社會人就職情報
汎亞人力銀行
大台中人力銀行
大高雄人力銀行
相關連結
   ASP 虛擬空間
ASP 相關網站
聯絡我們
   意見信箱
加入會員程式討論區線上購物回首頁
ASP 教學
不能ASP圖像組件來生成圖像的ASP計數器程序(一)
不能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/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><a href="<img src="http://home.lz.gs.cninfo.net/explorer/counter/counter.asp?user=<%=user%>"<br> " target="_blank">http://grwy.online.ha.cn/explorer"><img src="http://home.lz.gs.cninfo.net/explorer/counter/counter.asp?user=<%=user%>"<br>
border="0" alt="探索者計數器" width="64"
height="16"></a></p>

</span>
<a href="<img src="http://-2/explorer/counter/counter.asp?user=<%=user%>" " target="_blank">http://grwy.online.ha.cn/explorer"><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>
by qianfengyun Explorer Sudio



頂端
本網頁最佳瀏覽模式為:瀏覽器 IE4.0 以上    解析度: 800 x 600
Copyright © 2000-2020 COOLASP All Rights Reserved