usermanage.asp
来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 145 行
ASP
145 行
<%@ Language=VBScript %>
<!--#include virtual="/Include/Const.asp"-->
<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include virtual="/Include/FuncPub.asp"-->
<!--#Include virtual="/include/PageNavigator.asp"-->
<html>
<head>
<title><%=Application("Site_Name")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content=" ">
<link rel="stylesheet" href="../Css/Css.css" type="text/css">
<script language="Javascript" src="/JS/CheckInput.js"></script>
</head>
<body>
<script language="javascript">
<!--
function deleted(DoType,url) {
var Content=DoType;
var truthBeTold =window.confirm("你确定要"+Content+"?");
if (truthBeTold) {
window.location = ( url )
}
else
{
return false;
}
}
-->
</script>
<%
If Session("Userobj")<3 then
Response.Redirect "editUsers.asp?Catalog_ID="&Session("CatID")&""
Response.End
End IF
If Request("opr")="set" then
If Request("state")<>"" and Request("ID")<>"" then
Conn.Execute "Update Users Set state="&Request("state")&" where UserID="&Request("ID")&""
End IF
ElseIF Request("opr")="del" then
if Request("ID")<>"" then
Conn.Execute "delete * from Users where UserID="&Request("ID")&""
End IF
End IF
%>
<!--#Include file = "Menu.asp" -->
<!--------Center Start ----------------->
<!--列出Users-->
<!--注意事项-->
<!-- 以下代码由程序自动生成 -->
<form method="POST" name="frmUsersList" action="DeleteUser.asp" ID="Form1">
<table border=0 cellspacing=1 cellpadding=2 class=list width=98% ID="Table1">
<tr class=header>
<td>编号</td>
<td>用户名</td>
<td>真实姓名</td>
<td>Email</td>
<td colspan=2>操作</td>
</tr>
<%
Dim strSQL
strSQL = "SELECT * FROM Users "
'strSQL = strSQL & Session("OrderString") '加上排序条件
'Response.Write strsql ' 用于测试
'On Error Resume Next
'打开数据链接
Dim rsUsers
Set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.Open strSQL, Conn, adOpenKeyset ,adLockReadOnly
' 如果没有数据，则结束网页
If rsUsers.EOF Then
Response.Write "<Font Color=Red>无记录！</Font><br>"
Response.Write "<input type=""button"" name=""btnAdd"" value=""添加"" onclick=""window.location.href='AddUsers.asp'"">"
Response.End
End If
' 否则初始化页
Call InitRS( rsUsers, 20 ) ' 默认每页 20 行
Dim i
For i = 1 To PageSize
%>
<tr>
<td class=list><%= rsUsers("UserID") %></td>
<td class=list><%= DeModifyInput(rsUsers("UserName")) %></td>
<td class=list><%= DeModifyInput(rsUsers("RealName")) %></td>
<td class=list><%= DeModifyInput(rsUsers("Email")) %></td>
<td class=list colspan=2 width=180 nowrap><%
If Cint( rsUsers("state") ) = 0 Then
Response.Write "<a href='UserManage.asp?opr=set&state=1&ID="&rsUsers("UserID")&"' title='点击信息被开放' onclick='return deleted(""开放用户"",this.href);'>[<u>开放</u>]</a>"
Else
Response.Write "<a href='UserManage.asp?opr=set&state=0&ID="&rsUsers("UserID")&"' title='点击信息被关闭' onclick='return deleted(""关闭用户"",this.href);'><font color=red>[<u>关闭</u>]</font></a>"
End If
%>
<a href="EditUsers.asp?UserID=<%= rsUsers("UserID") %>">[<u>修改</u>]</a>
<a href="UserManage.asp?opr=del&ID=<%=rsUsers("UserID")%>" title='点击信息被删除' onclick="return deleted('删除信息',this.href);">[<u>删除</u>]</a>
</td>
</tr>
<%
rsUsers.MoveNext
If rsUsers.EOF Then Exit For
Next
rsUsers.Close
Set rsUsers = Nothing
'关闭数据链接
%>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0" ID="Table2">
<tr>
<td width="50%">
</td>
<td width="50%" align=right>
<% Call ShowPageNavigator( Request.ServerVariables("SCRIPT_NAME") & "?OrderItem=" & Trim(Request.QueryString("OrderItem")) & "&SortItem=" & Trim(Request.QueryString("SortItem")) , 1 ) %>
</td>
</tr>
</table>
</form>
<!-- 代码结束 -->
<!------------------------->
<!--#include virtual="/Include/DBClose.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?