📄 admin_sourcelist.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="../Include/PowerEasy.SourceList.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = False '是否需要检查外部访问
Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim TypeSelect, Group, strTypeName, AllKeyList, AllUserList
MaxPerPage = PE_CLng(Trim(Request("MaxPerPage")))
If MaxPerPage <= 0 Then MaxPerPage = 40
TypeSelect = ReplaceBadChar(Trim(Request("TypeSelect")))
Group = ReplaceBadChar(Trim(Request("Group")))
FileName = "Admin_SourceList.asp"
strFileName = "Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=" & Group & "&KeyWord=" & Keyword
XmlDoc.Load (Server.MapPath(InstallDir & "Language/Gb2312.xml"))
Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>选择对话框</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "<base target='_self'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body>" & vbCrLf
Response.Write "<form method='post' name='myform' action=''>" & vbCrLf
Select Case TypeSelect
Case "KeyList"
strTypeName = "关键字"
Call Key
Case "UserList"
strTypeName = "会员"
Call UserList
Case "AdminList"
strTypeName = "管理员"
Call AdminList
Case "AgentList"
strTypeName = "代理商"
Call AgentList
Case "ClientList"
strTypeName = "客户"
Call ClientList
Case "CompanyList"
strTypeName = "企业"
Call CompanyList
Case "ContacterList"
strTypeName = "联系人"
Call ContacterList
Case "AuthorList"
strTypeName = "作者"
Call Author
Case "CopyFromList"
strTypeName = "来源"
Call CopyFrom
Case "ProducerList"
strTypeName = "厂商"
Call Producer
Case "TrademarkList"
strTypeName = "品牌"
Call Trademark
Case Else
Response.Write "参数丢失"
End Select
Response.Write "</form>"
Response.Write "</body></html>"
Call CloseConn
Sub AdminList()
Response.Write "<table width='560' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>" & vbCrLf
Response.Write " <tr class='title' height='22'>" & vbCrLf
Response.Write " <td valign='top'><b>已经选定的管理员：</b></td>" & vbCrLf
Response.Write " <td align='right'><a href='javascript:window.returnValue=myform.UserList.value;window.close();'>返回>></a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td><input type='text' name='UserList' size='60' maxlength='200' readonly='readonly'></td>" & vbCrLf
Response.Write " <td align='center'><input type='button' name='del1' onclick='del(1)' value='删除最后'> <input type='button' name='del2' onclick='del(0)' value='删除全部'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<br>" & vbCrLf
Response.Write "<table width='560' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>" & vbCrLf
Response.Write " <tr height='22' class='title'>" & vbCrLf
Response.Write " <td><b><font color=red>" & strTypeName & "</font>列表：</b></td><td align=right><input name='KeyWord' type='text' size='20' value=" & Keyword & "> <input type='submit' value='查找'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td valign='top' height='100' colspan=2>"
Dim i, rsAdmin, sql
sql = "select AdminName from PE_Admin Where 1=1"
If Keyword <> "" Then
sql = sql & " and AdminName like '%" & Keyword & "%'"
End If
sql = sql & " order by ID"
Set rsAdmin = Server.CreateObject("adodb.recordset")
rsAdmin.Open sql, Conn, 1, 1
If rsAdmin.BOF And rsAdmin.EOF Then
totalPut = 0
Response.Write "<li>没有任何管理员</li>"
Else
totalPut = rsAdmin.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rsAdmin.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Response.Write "<table width='550' border='0' cellspacing='1' cellpadding='1' bgcolor='#f9f9f9'><tr>"
Do While Not rsAdmin.EOF
If AllUserList = "" Then
AllUserList = rsAdmin("AdminName")
Else
AllUserList = AllUserList & "," & rsAdmin("AdminName")
End If
Response.Write "<td align='center'><a href='#' onclick='add(""" & rsAdmin("AdminName") & """)'>" & rsAdmin("AdminName") & "</a></td>"
i = i + 1
If i >= MaxPerPage Then Exit Do
If (i Mod 8) = 0 And i > 1 Then Response.Write "</tr><tr>"
rsAdmin.MoveNext
Loop
Response.Write "</tr></table>"
End If
rsAdmin.Close
Set rsAdmin = Nothing
Response.Write "</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td align='center' colspan=2><a href='#' onclick='add(""" & AllUserList & """)'>增加以上所有管理员</a></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write ShowSourcePage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个管理员", True)
Call ShowJS("管理员")
End Sub
Sub ClientList()
Dim arrGroupID, arrClientType, ClientType
ClientType = Trim(Request("ClientType"))
arrGroupID = GetArrFromDictionary("PE_Client", "GroupID")
arrClientType = Array("企业客户", "个人客户")
Response.Write "<table width='560' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>" & vbCrLf
Response.Write " <tr height='22' class='title'>" & vbCrLf
Response.Write " <td><b><font color=red>" & strTypeName & "</font>列表：</b></td><td align=right><input name='KeyWord' type='text' size='20' value=" & Keyword & "><input type='hidden' name='ClientType' value='" & ClientType & "'> <input type='submit' value='查找'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <td valign='top' height='100' colspan='2'>"
Response.Write " <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr class='title' height='22' align='center'>"
Response.Write " <td width='30'>ID</td>"
Response.Write " <td width='100'>助记名称</td>"
Response.Write " <td>客户名称</td>"
Response.Write " <td width='60'>客户类别</td>"
Response.Write " <td width='80'>种类</td>"
Response.Write " </tr>"
Dim i, rsClient, sql
sql = "select * from PE_Client Where 1=1"
If PE_CLng(Group) > 0 Then
sql = sql & " and GroupID=" & PE_CLng(Group)
End If
If ClientType = "E" Then
sql = sql & " and ClientType=0"
ElseIf ClientType = "P" Then
sql = sql & " and ClientType=1"
End If
If Keyword <> "" Then
sql = sql & " and ClientName like '%" & Keyword & "%'"
End If
sql = sql & " order by ClientID desc"
Set rsClient = Server.CreateObject("adodb.recordset")
rsClient.Open sql, Conn, 1, 1
If rsClient.BOF And rsClient.EOF Then
totalPut = 0
Response.Write "<tr class='tdbg'><td colspan='10'>没有任何客户</td></tr>"
Else
totalPut = rsClient.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rsClient.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Do While Not rsClient.EOF
Response.Write " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td width='30' align='center'>" & rsClient("ClientID") & "</td>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -