📄 updatepaixu.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<%
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%>
<%
MM_authorizedUsers=""
MM_authFailedURL="../../../../../index.asp"
MM_grantAccess=false
If Session("userssdfgfhtrh") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="../../../../../../Connections/oavbsconn.asp" -->
<!--#include file="../../../../../../toall/fengge/config.asp" -->
<%
Dim rs__u
rs__u = "1"
If (Session("userssdfgfhtrh") <> "") Then
rs__u = Session("userssdfgfhtrh")
End If
%>
<%
Dim Recordset1__u
Recordset1__u = "1"
If (Session("userssdfgfhtrh") <> "") Then
Recordset1__u = Session("userssdfgfhtrh")
End If
%>
<%
Dim webtiles
Dim webtiles_numRows
Set webtiles = Server.CreateObject("ADODB.Recordset")
webtiles.ActiveConnection = MM_oavbsconn_STRING
webtiles.Source = "SELECT 页面名称 FROM webtitles WHERE 模块名称 = '文件传输' and 描述='文件类别排序'"
webtiles.CursorType = 0
webtiles.CursorLocation = 2
webtiles.LockType = 1
webtiles.Open()
if not webtiles.eof or not webtiles.bof then
dim webtilesname
webtilesname=webtiles("页面名称")
webtiles.Close()
Set webtiles = Nothing
else
webtiles.Close()
Set webtiles = Nothing
response.write "页面标题不完整，请管理员在后台补充。"
end if
webtiles_numRows = 0
%>
<%
Dim webtiles1
Dim webtiles1_numRows
Set webtiles1 = Server.CreateObject("ADODB.Recordset")
webtiles1.ActiveConnection = MM_oavbsconn_STRING
webtiles1.Source = "SELECT 页面名称 FROM webtitles WHERE 模块名称 = '文件传输' and 描述='文件类别列表'"
webtiles1.CursorType = 0
webtiles1.CursorLocation = 2
webtiles1.LockType = 1
webtiles1.Open()
if not webtiles1.eof or not webtiles1.bof then
dim webtiles1name
webtiles1name=webtiles1("页面名称")
webtiles1.Close()
Set webtiles1 = Nothing
else
webtiles1.Close()
Set webtiles1 = Nothing
response.write "页面标题不完整，请管理员在后台补充。"
end if
webtiles1_numRows = 0
%>
<%
Dim rs__d
rs__d = "1"
If (request("id") <> "") Then
rs__d = request("id")
End If
%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_oavbsconn_STRING
rs.Source = "SELECT * FROM filestyeps WHERE id=" + Replace(rs__d, "'", "''") + " AND 用户帐号='" + Replace(rs__u, "'", "''") + "'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT * FROM filestyeps WHERE 用户帐号='" + Replace(Recordset1__u, "'", "''") + "' ORDER BY 排序 ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%if not rs.eof or not rs.bof then
dim t
t=rs("目录名")
kg1=rs("开关")
px=rs.Fields.Item("排序").Value
else%>
<script>
{
alert("数据不存在。");history.go(-1)
}
</script>
<%response.end()
end if%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rs_numRows = rs_numRows + Repeat1__numRows
%>
<HEAD>
<script language="javascript">
<!--
function isNumber(string) {
if (string =="") string = "0";
valid = '0123456789x';
for (var i=0; i< string.length; i++) {
if (valid.indexOf(string.charAt(i)) == -1) {
return false;
}
}
return true;
}
function dis(){
document.form1.submit.value=' 更新..'
document.form1.submit.disabled=true;
return true;
}
function check(){
if(form1.types.value==""){
alert("请输入类别。");
form1.types.focus();
return(false);
}
if ((document.form1.types.value.indexOf("*")>-1)||(document.form1.types.value.indexOf(":")>-1)||(document.form1.types.value.indexOf(",")>-1)||(document.form1.types.value.indexOf("/")>-1)||(document.form1.types.value.indexOf("<")>-1)||(document.form1.types.value.indexOf(">")>-1)||(document.form1.types.value.indexOf("?")>-1))
{
alert("请勿输入*：,/<>?等非法字符。")
form1.types.focus();
return false;
}
if(form1.p.value==""){
alert("请输入排序。");
form1.p.focus();
return(false);
}
if(isNumber(document.form1.p.value) == false){
alert("友情提醒：排序需为数字。");
document.form1.p.focus();
return (false);
}
return(true);
}
//-->
</script>
<link href="../../../../../../css/textarea.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
</HEAD><body onload=document.form1.p.focus()>
<div align="center">
<table width="70%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
</span> <div class="RoundedCorner">
<div align="center"><b class="rtop"><b class="r1"></b><b class="r2"></b><b class="r3"></b><b class="r4"></b></b> <span class="style2"><%=webtilesname%></span></div>
</div></td>
</tr>
</table>
</div>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><form name="form1" method="post" action="updatepaixupost.asp" onSubmit="return dis()">
<div align="center">
<table width="70%" height="129" border="0" cellpadding="3" cellspacing="1" bgcolor="<%=secaiid%>">
<tr bgcolor="#FFFFFF">
<td width="14%"><div align="right" style="font-size: 12px">
<input name="t" type="hidden" id="t" value="<%=t%>">
类 别：</div></td>
<td width="86%"><span style="font-size: 12px">
<input name="types" type="text" class=inputs id="types" value="<%=t%>" size="25" maxlength="10" readonly="0">
<img src="../../../../../../img/files/f.gif" width="16" height="16">
</span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right" style="font-size: 12px">
<input name="id" type="hidden" id="id" value="<%=(Recordset1.Fields.Item("ID").Value)%>">
启用否：</div></td>
<td><%=(rs.Fields.Item("开关").Value)%>
<%if kg1="是" then%>
<img src="../../../../../../toall/workreport/img/cs-1.gif" width="25" height="16">
<%else%>
<img src="../../../../../../toall/workreport/img/cs-3.gif" width="25" height="16">
<%end if%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right" style="font-size: 12px">
<input name="p1" type="hidden" id="p1" value="<%=px%>">
排 序：</div></td>
<td><input name="p" type="text" id="p" value="<%=px%>" maxlength="9"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> </td>
<td><input name="submit" type=submit id="submit" style="FONT-SIZE: 12px; HEIGHT: 27px" value= " 更 新 " onclick="return check()">
<input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px" onClick="javascript:history.go(-1)" value= " 取 消 " ></td>
</tr>
</table>
</div>
</div>
<p> </p>
</form></td>
</tr>
</table>
<div align="center">
<table width="70%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div class="RoundedCorner">
<div align="center"><b class="rtop"><b class="r1"></b><b class="r2"></b><b class="r3"></b><b class="r4"></b></b><span class="style2"><%=webtilesname%></span></div>
</div></td>
</tr>
</table>
<table width="70%" border="0" cellpadding="3" cellspacing="1" bgcolor="<%=secaiid%>">
<tr bgcolor="#FFFFFF">
<td width="12%"><div align="center"><strong>类 别</strong></div></td>
<td width="4%"><div align="center"><strong>排 序</strong></div></td>
<td width="5%"><div align="center"><strong>开 关</strong></div></td>
<td width="15%"><div align="center"><strong>时 间</strong></div></td>
<td width="18%"><div align="center"><strong>操 作</strong></div></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
dim kg,f
f=Recordset1("目录名")
kg=Recordset1.Fields.Item("开关").Value
%>
<tr bgcolor="#FFFFFF" >
<td><div align="center"><%=f%></div></td>
<td><div align="center"><%=(Recordset1.Fields.Item("排序").Value)%></div></td>
<td><div align="center">
<%if kg="是" then%>
<img src="../../../../../../toall/workreport/img/cs-1.gif" width="25" height="16">
<%else%>
<img src="../../../../../../toall/workreport/img/cs-3.gif" width="25" height="16">
<%end if%>
</div></td>
<td><div align="center"><%=(Recordset1.Fields.Item("建立时间").Value)%></div></td>
<td><%if f<>"其它" then%>
<%if kg="是" then%>
<a href="close.asp?id=<%=(Recordset1.Fields.Item("ID").Value)%>&p=<%=(Recordset1.Fields.Item("排序").Value)%>&c=<%=f%>" onClick="return confirm('您确定要关闭 <%=f%> 吗？系统将把该类的所有文件转移到 其它 类别')">关闭</a>
<%else%>
<a href="open.asp?id=<%=(Recordset1.Fields.Item("ID").Value)%>">启用</a>
<%end if%>
<a href="update.asp?id=<%=(Recordset1.Fields.Item("ID").Value)%>">修改</a> <a href="del.asp?id=<%=(Recordset1.Fields.Item("ID").Value)%>&p=<%=(Recordset1.Fields.Item("排序").Value)%>&c=<%=f%>" onClick="return confirm('您确定要删除 <%=f%> 吗？系统将把该类的所有文件转移到 其它 类别')">删除 </a>
<a href="updatepaixu.asp?id=<%=(Recordset1.Fields.Item("ID").Value)%>">修改排序</a>
<%end if%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
<br>
</div>
<div align="center">
<%
rs.Close()
Set rs = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<img src="../../../../../../img/up.gif" width="17" height="12"><a href="careatefloder.asp">返 回</a> </div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -