- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5蘋果iphone自動時間不準確的多種校正方法
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 7Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 8Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 9ipad版office如何激活? office365激活的圖文說明教程
- 10最新的Adobe Illustrator CS4序列號大全
- 11Mac怎么通過設置VPN來登錄youtube等國外網站
- 12qq郵件是否已讀怎么看 QQ郵箱已經發出去的郵件怎么知道對方是否已經查看
[摘要]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>計數器管理系統</title>
<body>
<p align="center"><font style="font-size: 20pt">計數器管理系統</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">網站名</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"
%>
---------------------------------------------------
（出處：熱點網絡）
推薦資訊 總人氣榜
最新教程 本月人氣
- 1ios8.1正式版耗電如何辦？ios8.1費電處理方法
- 2iphone6染色如何辦？蘋果iphone6染色處理方法
- 3ios8.1越獄存儲容量幾乎已滿處理方法
- 4ios8越獄ifile安裝圖文說明教程 ios8/8.1越獄后安裝ifile步驟
- 5iphone5 ios8越獄圖文說明教程：蘋果5 ios8圓滿越獄步驟
- 6iphone6紅屏重啟如何辦？蘋果6紅屏重啟處理方法
- 7iphone6 plus無限重啟如何辦？蘋果6plus自動重啟處理方法
- 8ios8越獄后美化圖文說明教程 ios8.1越獄后美化字體步驟
- 9ios8越獄后必裝插件 ios8越獄插件總結
- 10ios8共享我的位置圖文說明教程 ios8共享位置方法
- 11ios8越獄后白蘋果處理方法 ios8越獄白蘋果恢復步驟
- 12ios8家人共享如何用？ios8家人共享設置方法
