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

明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

用ASP完成免費計數(shù)器提供-2

發(fā)表時間：2024-05-16 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]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>計數(shù)器管理系統(tǒng)</title>
<body>
<p align="center"><font style="font-size: 20pt">計數(shù)器管理系統(tǒng)</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">網(wǎng)站名</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"
%>
---------------------------------------------------
（出處：熱點網(wǎng)絡(luò)）
主站蜘蛛池模板： 天天躁日日躁狠狠躁中文字幕 | 午夜观看 | 在线视频二区 | 青青青免费观看在线视频网站 | 欧美性xxxxx极品 | 欧美在线xxx| 在线观看视频h | 亚洲图区综合 | 欧美亚洲另类色国产综合 | 小明永久2015www永久免费观看 | 色网站在线 | 最新精品女神在线观看 | 亚洲国产最新在线一区二区 | 天天摸日日操 | 亚洲第一中文字幕 | 色噜噜狠狠色综合免费视频 | 亚洲福利国产 | 亚洲天堂男人的天堂 | 青青青爽视频在线观看入口 | 亚洲免费视频观看 | 亚洲第一天堂 | 日韩理论| 日本免费看片在线播放 | 日本不卡视频 | 亚洲狼人综合 | 五月激情婷婷丁香 | 亚洲视频免费播放 | 天天干天天爱天天操 | 一级欧美 | 五月婷婷六月丁香激情 | 日本三级精品 | 日韩在线国产 | 一级黄色免费片 | 亚洲综合a | 网站久久 | 手机看片国产精品 | 日韩 欧美 综合 | 欧美一区二区福利视频 | 日本亚洲乱码中文字幕影院 | 最新精品亚洲成a人在线观看 | 亚洲欧美第一 |