六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

不能ASP圖像組件來生成圖像的ASP計數器程序(一)

發表時間：2024-02-14 來源：明輝站整理相關軟件相關文章人氣：

[摘要]這是我去年編的一個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> （出處：熱點網絡）
主站蜘蛛池模板： 欧美一级乱理片免费观看 | 在线中文字幕不卡 | 亚洲伦理片 | 伊人久久大香现线蕉 | 午夜免费看片 | 一级人做人爰a全过程免费视频 | 日韩欧美成人乱码一在线 | 亚洲成a人片在线观看中文app | 亚洲 自拍 欧美 综合 | 欧美一级艳片视频免费观看 | 欧美在线一级视频 | 色先锋资源网 | 日本免费高清在线观看播放 | 中文字幕日本不卡 | 亚洲啪视频 | 青青青视频免费线看 视频 青青青视频免费观看 | 伊人久久大香线蕉综合影 | 亚洲精品欧美精品国产精品 | 天天噜日日噜 | 亚洲一区 在线播放 | 香港全黄一级毛片在线播放 | 日韩精品一区二区三区免费视频 | 亚州一级毛片 | 在线免费视频一区二区 | 最新版天堂资源中文官网 | 欧美特黄一区二区三区 | 午夜小视频网站 | 午夜精品久久久久久影视riav | 最新网址在线观看 | 天堂资源在线8 | 日韩免费毛片全部不收费 | 午夜色婷婷 | 青草视频网址 | 综合激情五月婷婷 | 色婷婷中文网 | 午夜网站免费版在线观看 | 青青草华人 | 日韩一区二区不卡 | 最新亚洲情黄在线网站 | 一区二区视频在线播放 | 伊人久久大香现线蕉 |