📄 actlistnew.asp

📁 聊天室源码呵呵你好用~~~~~~2.0版本
💻 ASP
字号:
<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
if Session("a_c_user_name")="" then
 Response.write "<b>[操作失败]</b><p>您尚未登录（或已经超时退出），不能进行此操作！"
 Response.end
end if
if Session("a_c_user_level")<10 then
 Response.Write "<b>[操作失败]</b><p>您没有管理动作库的权限！"
 Response.End
end if
dim act()
actfile = server.mappath("actdata.asp")
Set fs = CreateObject("Scripting.FileSystemObject")
set thisfile = fs.OpenTextFile(actfile,1,False)
countact = 0
do while not thisfile.AtEndOfStream
thisline = thisfile.readline
Redim preserve act(countact)
act(countact) = thisline
countact = countact + 1
loop
thisfile.Close
newactnum=(countact-act(2)-1)/3
page=int(Request.QueryString("page"))
if page="" then page=1
if page<1 then page=1
if newactnum/20=int(newactnum/20) then
 pagenum=int(newactnum/20)
else
 pagenum=fix(newactnum/20)+1
end if
if page>pagenum then page=pagenum
showb=act(2)+(page-1)*60+1
showe=showb+59
if showe>countact-1 then showe=countact-1%><html>
<head>
<title>修改、删除动作</title>
<style type='text/css'>
<!--
.p9 {line-height: 150%; font-size: 9pt;}
.p12 {line-height: 150%; font-size: 12pt;}
body {line-height: 150%;font-size : 12pt;}
A  {text-decoration: none;}
A:Hover  {text-decoration : none;}
a:visited {  color: #0000FF}
-->
</style>
<script language="javaScript">
function load()
{var name=navigator.appName
var vers=navigator.appVersion
if(name=="Netscape")
{window.location.reload()
}else
{history.go(0)
}}</script>
</head>
<body bgcolor="#FFFFFF">
<h1 align="center"><font color="#0099FF">【修改、删除动作】</font></h1>
<div align="center"></div>
<hr noshade size="1" color=#009900>
<form method="post" action="">
<div align="center"> 
<input type="button" value="刷新" onClick=load() style="font-size:12pt" name="button">
</div>
</form>
<p><b>[功能说明]</b></p>
<blockquote> 
<p>仅用于修改和删除网友添加的动作。不能修改或删除内置的动作库。</p>
</blockquote>
<p><b>[网友添加动作列表]</b>　网友共添加 <b><font color="#FF0000"><%=newactnum%></font></b> 
条动作（每页 20 条）</p>
<p><%if newactnum>0 then%>第<%=page%>页·<%for i=1 to pagenum%><a href=actlistnew.asp?page=<%=i%>>[<%=i%>]</a><%next%><br>
</p>
<table border="1" cellpadding="4" width="100%" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#FFCC99">
<tr bgcolor="#3399FF"><td width="32"><font color="#FFFFFF">删除</font></td><td width="32"><font color="#FFFFFF">行号</font></td><td width="32"><font color="#FFFFFF">对象</font></td><td width="64"><font color="#FFFFFF">动作名称</font></td><td><font color="#FFFFFF">动作内容</font></td><td width="32"><font color="#FFFFFF">修改</font></td></tr>
<%for i=showb to showe step 3%><tr><td><a href=actdel.asp?line=<%=i%>>删除</a></td><td><%=i%></td><td><%=act(i)%></td><td><%=act(i+1)%></td><td><%=act(i+2)%></td><td><a href=actchange.asp?line=<%=i%>>修改</a></td></tr><%next%>
</table>
<p>第<%=page%>页·<%for i=1 to pagenum%><a href=actlistnew.asp?page=<%=i%>>[<%=i%>]</a><%next%></p><%end if%> 
<hr noshade size="1" color=#009900>
<div align="center" class="p9"><script src="use.asp"></script>　<script src="sn.asp"></script><br><script src="copyright.asp"></script></div>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -