📄 admin_sourcelist.asp
字号:
Response.Write " <td width='100'><a href='#' onclick=""window.returnValue='" & rsClient("ClientName") & "$$$" & rsClient("ClientID") & "';window.close();"">" & rsClient("ShortedForm") & "</a></td>"
Response.Write " <td><a href='#' onclick=""window.returnValue='" & rsClient("ClientName") & "$$$" & rsClient("ClientID") & "';window.close();"">" & rsClient("ClientName") & "</a></td>"
Response.Write " <td width='60' align='center'>" & GetArrItem(arrClientType, rsClient("ClientType")) & "</td>"
Response.Write " <td width='80' align='center'>" & GetArrItem(arrGroupID, rsClient("GroupID")) & "</td>"
Response.Write " </tr>"
i = i + 1
If i >= MaxPerPage Then Exit Do
rsClient.MoveNext
Loop
Response.Write "</table>"
End If
rsClient.Close
Set rsClient = Nothing
Response.Write "</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
strFileName = strFileName & "&ClientType=" & ClientType
Response.Write ShowSourcePage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个客户", True)
End Sub
Sub CompanyList()
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'>"
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>单位名称</td>"
Response.Write " <td>联系地址</td>"
Response.Write " <td width='60'>邮政编码</td>"
Response.Write " </tr>"
Dim i, rsCompany, sql
sql = "select * from PE_Company Where 1=1"
If Keyword <> "" Then
sql = sql & " and CompanyName like '%" & Keyword & "%'"
End If
sql = sql & " order by CompanyID desc"
Set rsCompany = Server.CreateObject("adodb.recordset")
rsCompany.Open sql, Conn, 1, 1
If rsCompany.BOF And rsCompany.EOF Then
totalPut = 0
Response.Write "<tr class='tdbg'><td colspan='10'>没有任何企业</td></tr>"
Else
totalPut = rsCompany.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
rsCompany.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Do While Not rsCompany.EOF
Response.Write " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td width='30' align='center'>" & rsCompany("CompanyID") & "</td>"
Response.Write " <td><a href='#' onclick=""window.returnValue='" & rsCompany("CompanyName") & "$$$" & rsCompany("CompanyID") & "';window.close();"">" & rsCompany("CompanyName") & "</a></td>"
Response.Write " <td><a href='#' onclick=""window.returnValue='" & rsCompany("CompanyName") & "$$$" & rsCompany("CompanyID") & "';window.close();"">" & rsCompany("Address") & "</a></td>"
Response.Write " <td width='60' align='center'>" & rsCompany("ZipCode") & "</td>"
Response.Write " </tr>"
i = i + 1
If i >= MaxPerPage Then Exit Do
rsCompany.MoveNext
Loop
Response.Write "</table>"
End If
rsCompany.Close
Set rsCompany = Nothing
Response.Write "</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write ShowSourcePage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "家企业", True)
End Sub
Sub ContacterList()
Response.Write "<script language=""javascript"">" & vbCrLf
Response.Write "function add(str1,id1)" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " opener.myform.ContacterName.value=str1;" & vbCrLf
Response.Write " opener.myform.ContacterID.value=id1;" & vbCrLf
Response.Write " window.close();" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & 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'>"
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='100'><strong>姓 名</strong></td>"
Response.Write " <td width='60'><strong>称谓</strong></td>"
Response.Write " <td width='100'><strong>工作电话</strong></td>"
Response.Write " <td width='100'><strong>手机</strong></td>"
Response.Write " <td width='90'><strong>类型</strong></td>"
Response.Write " <td width='100'><strong>对应客户</strong></td>"
Response.Write " </tr>"
Dim i, rsContacterList, sql
sql = "select C.ContacterID,C.TrueName,C.Title,C.OfficePhone,C.Mobile,C.UserType,C.ClientID,Cl.ShortedForm from PE_Contacter C left join PE_Client Cl on C.ClientID=Cl.ClientID where UserType>0"
If Keyword <> "" Then
sql = sql & " and TrueName like '%" & Keyword & "%'"
End If
sql = sql & " order by ContacterID desc"
Set rsContacterList = Server.CreateObject("adodb.recordset")
rsContacterList.Open sql, Conn, 1, 1
If rsContacterList.BOF And rsContacterList.EOF Then
totalPut = 0
Response.Write "<tr class='tdbg'><td colspan='10'>没有任何联系人</td></tr>"
Else
totalPut = rsContacterList.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
rsContacterList.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Do While Not rsContacterList.EOF
Response.Write " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td align='center'><a href='#' onclick=""window.returnValue='" & rsContacterList("TrueName") & "$$$" & rsContacterList("ContacterID") & "';window.close();"">" & rsContacterList("TrueName") & "</a></td>"
Response.Write " <td width='60' align='center'><a href='#' onclick=""window.returnValue='" & rsContacterList("TrueName") & "$$$" & rsContacterList("ContacterID") & "';window.close();"">" & rsContacterList("Title") & "</a></td>"
Response.Write " <td width='100' align='center'>" & rsContacterList("OfficePhone") & "</td>"
Response.Write " <td width='100' align='center'>" & rsContacterList("Mobile") & "</td>"
Response.Write " <td width='90' align='center'>" & GetArrItem(Array("个人客户", "主联系人", "其他联系人"), rsContacterList("UserType")) & "</td>"
Response.Write " <td width='100' align='center'>" & rsContacterList("ShortedForm") & "</td>"
Response.Write " </tr>"
i = i + 1
If i >= MaxPerPage Then Exit Do
rsContacterList.MoveNext
Loop
Response.Write "</table>"
End If
rsContacterList.Close
Set rsContacterList = Nothing
Response.Write "</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write ShowSourcePage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个联系人", True)
End Sub
Sub Producer()
Response.Write "<script language=""javascript"">" & vbCrLf
Response.Write "function add(obj)" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write " if(obj==""""){return false;}" & vbCrLf
Response.Write " opener.myform.ProducerName.value=obj;" & vbCrLf
Response.Write " window.close();" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<table width='560' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>" & vbCrLf
Response.Write " <tr height='22' class='title'><td>" & vbCrLf
Response.Write " | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=Time'><FONT style='font-size:12px'" & vbCrLf
If Group = "Time" Then Response.Write " color='red'>"
Response.Write "最近常用</FONT></a>" & vbCrLf
Response.Write " | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=All'><FONT style='font-size:12px'" & vbCrLf
If Group = "All" Then Response.Write " color='red'"
Response.Write ">全部厂商</FONT></a>" & vbCrLf
Response.Write " | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=MLand'><FONT style='font-size:12px'" & vbCrLf
If Group = "MLand" Then Response.Write " color='red'"
Response.Write ">" & XmlText("ShowSource", "ShowProducer/ProducerType1", "大陆厂商") & "</FONT></a>" & vbCrLf
Response.Write " | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=GT'><FONT style='font-size:12px'" & vbCrLf
If Group = "GT" Then Response.Write " color='red'"
Response.Write ">" & XmlText("ShowSource", "ShowProducer/ProducerType2", "港台厂商") & "</FONT></a>" & vbCrLf
Response.Write " | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=JK'><FONT style='font-size:12px'" & vbCrLf
If Group = "JK" Then Response.Write " color='red'"
Response.Write ">" & XmlText("ShowSource", "ShowProducer/ProducerType3", "日韩厂商") & "</FONT></a>" & vbCrLf
Response.Write " | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=OutSea'><FONT style='font-size:12px'" & vbCrLf
If Group = "OutSea" Then Response.Write " color='red'"
Response.Write ">" & XmlText("ShowSource", "ShowProducer/ProducerType4", "欧美厂商") & "</FONT></a>" & vbCrLf
Response.Write " | <a href='Admin_SourceList.asp?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=Other'><FONT style='font-size:12px'" & vbCrLf
If Group = "Other" Then Response.Write " color='red'"
Response.Write ">" & XmlText("ShowSource", "ShowProducer/ProducerType5", "其他厂商") & "</FONT></a>" & vbCrLf
Response.Write " | </td></tr>" & vbCrLf
Response.Write "</table><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, rsProducer, sql
Select Case Group
Case "Time"
sql = "select * from PE_Producer Where (ChannelID=" & ChannelID & " or ChannelID=0)"
If Keyword <> "" Then sql = sql & (" and ProducerName like '%" & Keyword & "%'")
sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",LastUseTime Desc"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -