📄 admin_company.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="Admin_CommonCode_CRM.asp"-->
<!--#include file="../Include/PowerEasy.Bankroll.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 = "Company" '其他权限
Dim arrStatusInField, arrCompanySize, arrManagementForms
arrStatusInField = GetArrFromDictionary("PE_Company", "StatusInField")
arrCompanySize = GetArrFromDictionary("PE_Company", "CompanySize")
arrManagementForms = GetArrFromDictionary("PE_Company", "ManagementForms")
Response.Write "<html><head><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 "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>" & vbCrLf
Response.Write " <form name='searchmyform' action='Admin_Company.asp' method='get'>"
Call ShowPageTitle("企 业 管 理", 10221)
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td height='30'>"
Response.Write " <a href='Admin_Company.asp'>企业管理首页</a> | <a href='Admin_Company.asp?Action=AddCompany&ClientType=0'>添加企业</a>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </form>" & vbCrLf
Response.Write "</table>" & vbCrLf
Select Case Action
Case "AddCompany"
Call AddCompany
Case "Modify"
Call Modify
Case "SaveAdd", "SaveModify"
Call SaveCompany
Case "Show"
Call Show
Case Else
Call main
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub main()
Dim GroupID, i
Dim sql, Querysql, rsCompanyList
GroupID = PE_CLng(Trim(Request("GroupID")))
strFileName = "Admin_Company.asp?SearchType=" & SearchType & "&Field=" & strField & "&keyword=" & Keyword & "&GroupID=" & GroupID
Call ShowJS_Main("企业")
Response.Write "<br><table width='100%'><tr><td align='left'>您现在的位置：<a href='Admin_Company.asp'>企业管理</a> >> "
sql = "select top " & MaxPerPage & " * from PE_Company"
Querysql = Querysql & " where 1=1 "
Select Case SearchType
Case 0
Response.Write "所有企业"
Case 1
Querysql = Querysql & " and ClientType=0"
Response.Write "企业企业"
Case 2
Querysql = Querysql & " and ClientType=1"
Response.Write "个人企业"
Case 10
If Keyword = "" Then
Response.Write "所有企业"
Else
Select Case strField
Case "CompanyID"
If IsNumeric(Keyword) = False Then
FoundErr = True
ErrMsg = ErrMsg & "<li>企业ID必须是整数</li>"
Else
Querysql = Querysql & " and CompanyID=" & PE_CLng(Keyword)
Response.Write "企业ID等于<font color=red> " & PE_CLng(Keyword) & " </font>的企业"
End If
Case "CompanyName"
Querysql = Querysql & " and CompanyName like '%" & Keyword & "%'"
Response.Write "名称中含有“ <font color=red>" & Keyword & "</font> ”的企业"
Case Else
Querysql = Querysql & " and CompanyName like '%" & Keyword & "%'"
Response.Write "名称中含有“ <font color=red>" & Keyword & "</font> ”的企业"
End Select
End If
Case 11
Response.Write GetArrItem(arrGroupID, GroupID)
Querysql = Querysql & " and GroupID=" & GroupID
End Select
TotalPut = PE_CLng(Conn.Execute("select Count(*) from PE_Company " & Querysql)(0))
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
Querysql = Querysql & " and CompanyID < (select min(CompanyID) from (select top " & ((CurrentPage - 1) * MaxPerPage) & " CompanyID from PE_Company " & Querysql & " order by CompanyID desc) as QueryClient) "
End If
sql = sql & Querysql & " order by CompanyID desc"
Response.Write "</td></tr></table>"
If FoundErr = True Then Exit Sub
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <form name='myform' method='Post' action='Admin_Company.asp'>"
Response.Write " <td>"
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'>选中</td>"
Response.Write " <td>企业名称</td>"
Response.Write " <td>联系地址</td>"
Response.Write " <td width='90'>操作</td>"
Response.Write " </tr>"
Set rsCompanyList = Server.CreateObject("Adodb.RecordSet")
rsCompanyList.Open sql, Conn, 1, 1
If rsCompanyList.BOF And rsCompanyList.EOF Then
Response.Write "<tr><td colspan='20' height='50' align='center'>共找到 <font color=red>0</font> 个企业</td></tr>"
Else
Dim ClientNum
ClientNum = 0
Do While Not rsCompanyList.EOF
Response.Write " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td width='30' align='center'><input name='CompanyID' type='checkbox' onclick=""unselectall()"" id='CompanyID' value='" & CStr(rsCompanyList("CompanyID")) & "'></td>"
Response.Write " <td width='100'><a href='Admin_Company.asp?Action=Show&CompanyID=" & rsCompanyList("CompanyID") & "'>" & rsCompanyList("ShortedForm") & "</a></td>"
Response.Write " <td><a href='Admin_Company.asp?Action=Show&CompanyID=" & rsCompanyList("CompanyID") & "'>" & rsCompanyList("CompanyName") & "</a></td>"
Response.Write " <td>" & rsCompanyList("Address") & "</td>"
Response.Write " <td width='90' align='center'>"
Response.Write "<a href='Admin_Company.asp?Action=Show&CompanyID=" & rsCompanyList("CompanyID") & "'>查看</a> "
Response.Write "<a href='Admin_Company.asp?Action=Modify&CompanyID=" & rsCompanyList("CompanyID") & "'>修改</a> "
Response.Write "<a href='Admin_Company.asp?Action=DelClient&CompanyID=" & rsCompanyList("CompanyID") & "' onClick='return confirm(""确定要删除此企业吗？"");'>删除</a> "
Response.Write " </td>"
Response.Write " </tr>"
ClientNum = ClientNum + 1
If ClientNum >= MaxPerPage Then Exit Do
rsCompanyList.MoveNext
Loop
End If
rsCompanyList.Close
Set rsCompanyList = Nothing
Response.Write " </table>"
If TotalPut > 0 Then
Response.Write " <table width='100%' border='0' cellpadding='0' cellspacing='0'>"
Response.Write " <tr height='30'>"
Response.Write " <td width='200'><input name='chkAll' type='checkbox' id='chkAll' onclick='CheckAll(this.form);' value='checkbox'>"
Response.Write " 选中本页显示的所有企业</td>"
Response.Write " <td><input type='hidden' name='Action' value=''>"
Response.Write " <input name='Del' type='submit' value=' 批量删除 ' onClick=""document.myform.Action.value='DelClient';return confirm('确定要删除选定的企业吗？');""> "
'Response.Write " <input name='BatchMove' type='submit' value=' 批量移动 ' onClick=""document.myform.Action.value='BatchMove'"">"
Response.Write " </tr>"
Response.Write " </table>"
End If
Response.Write " </td>"
Response.Write " </form>"
Response.Write " </tr>"
Response.Write "</table>"
If TotalPut > 0 Then
Response.Write ShowPage(strFileName, TotalPut, MaxPerPage, CurrentPage, True, True, "个企业", True)
End If
Response.Write "<br>"
Response.Write "<form name='SearchForm' action='Admin_Company.asp' method='post'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='1' cellspacing='1' class='border'>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='80'><b>企业查询：</b></td>" & vbCrLf
Response.Write " <td>" & vbCrLf
Response.Write " <select name='Field' size='1'>" & vbCrLf
Response.Write " <option value='CompanyID'>企业ID</option>" & vbCrLf
Response.Write " <option value='CompanyName' selected>企业名称</option>" & vbCrLf
Response.Write " </select>" & vbCrLf
Response.Write " <input name='Keyword' type='text' id='Keyword' size='20' maxlength='40'>" & vbCrLf
Response.Write " <input type='submit' name='Submit' value='搜 索' id='Submit'>" & vbCrLf
Response.Write " <input type='hidden' name='SearchType' value='10'>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</form>" & vbCrLf
End Sub
Sub ShowJS_Check()
Response.Write "<script language=javascript>" & vbCrLf
Response.Write "function CheckSubmit(){" & vbCrLf
Response.Write " if(document.myform.CompanyName.value==''){" & vbCrLf
Response.Write " alert('企业名称不能为空！');" & vbCrLf
Response.Write " document.myform.CompanyName.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " if(document.myform.ShortedForm.value==''){" & vbCrLf
Response.Write " alert('助记名称不能为空！');" & vbCrLf
Response.Write " document.myform.ShortedForm.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " document.myform.Country.value=frm1.document.regionform.Country.value;" & vbCrLf
Response.Write " document.myform.Province.value=frm1.document.regionform.Province.value;" & vbCrLf
Response.Write " document.myform.City.value=frm1.document.regionform.City.value;" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "function ChangeType(Type){" & vbCrLf
Response.Write " if(Type==0){" & vbCrLf
Response.Write " TabTitle[2].style.display='';" & vbCrLf
Response.Write " infoE.style.display='';" & vbCrLf
Response.Write " TabTitle[3].style.display='none';" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -