?? empmain_my_list.asp
字號:
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links
Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev
Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam
MM_keepMove = MM_keepBoth
MM_moveParam = "index"
' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
MM_moveParam = "offset"
If (MM_keepMove <> "") Then
MM_paramList = Split(MM_keepMove, "&")
MM_keepMove = ""
For MM_paramIndex = 0 To UBound(MM_paramList)
MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
End If
Next
If (MM_keepMove <> "") Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If
' set the strings for the move to links
If (MM_keepMove <> "") Then
MM_keepMove = MM_keepMove & "&"
End If
MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = MM_urlStr & "0"
MM_moveLast = MM_urlStr & "-1"
MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
MM_movePrev = MM_urlStr & "0"
Else
MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>列表</title>
<link rel="stylesheet" href="CSS/SellWellWeb.css" type="text/css">
<script>
var objClassName
var objorgImg=null
function showDetail(obj){
URL = window.parent.frames("frmbottom").window.location.href
if(URL.indexOf("EmpMain_Main.asp")==-1){
window.parent.frames("frmbottom").window.location = "EmpMain_Main.asp?ID=" + obj.EmpID + "&PageType=Base"
return
}
window.parent.frames("frmbottom").window.document.form1.ID.value = obj.EmpID
strUrl=window.parent.frames("frmbottom").window.frames("main").location.href
NewUrl = strUrl.substr(0,strUrl.indexOf("?")) + "?ID="+obj.EmpID + "&PageType=Base"
window.parent.frames("frmbottom").window.frames("main").location.href = NewUrl
}
function showCursorLocation(objimg){
if(objorgImg==null){
objorgImg = eval("document.all."+objimg)
}
else{
objorgImg.style.display = "none"
}
objorgImg = eval("document.all."+objimg)
eval("document.all."+objimg+".style.display=''")
}
function HLItem(obj){
obj.oldClassName=obj.className;
obj.className="ListValuehighlight";
}
function Re(obj){
obj.className=obj.oldClassName
}
function dosearch(){
searchField = document.form1.searchField.options[document.form1.searchField.selectedIndex].value
searchWord = document.form1.SearchWord.value
window.location = "EmpMain_List.asp?searchField="+searchField+"&searchWord="+searchWord
}
function fnRedirect(obj){
window.location= obj.value
}
function onsearch(obj){
window.location = "EmpMain_my_list.asp?searchField=省份&SearchWord="+obj.options[obj.selectedIndex].value
}
var where = new Array(35);
function comefrom(loca,locacity) { this.loca = loca; this.locacity = locacity; }
where[0]= new comefrom("選擇省份","");
where[1] = new comefrom("北京","|東城|西城|崇文|宣武|朝陽|豐臺|石景山|海淀|門頭溝|房山|通州|順義|昌平|大興|平谷|懷柔|密云|延慶");
where[2] = new comefrom("上海","|黃浦|盧灣|徐匯|長寧|靜安|普陀|閘北|虹口|楊浦|閔行|寶山|嘉定|浦東|金山|松江|青浦|南匯|奉賢|崇明");
where[3] = new comefrom("天津","|和平|東麗|河東|西青|河西|津南|南開|北辰|河北|武清|紅撟|塘沽|漢沽|大港|寧河|靜海|寶坻|薊縣");
where[4] = new comefrom("重慶","|萬州|涪陵|渝中|大渡口|江北|沙坪壩|九龍坡|南岸|北碚|萬盛|雙撟|渝北|巴南|黔江|長壽|綦江|潼南|銅梁|大足|榮昌|壁山|梁平|城口|豐都|墊江|武隆|忠縣|開縣|云陽|奉節(jié)|巫山|巫溪|石柱|秀山|酉陽|彭水|江津|合川|永川|南川");
where[5] = new comefrom("河北","|石家莊|邯鄲|邢臺|保定|張家口|承德|廊坊|唐山|秦皇島|滄州|衡水");
where[6] = new comefrom("山西","|太原|大同|陽泉|長治|晉城|朔州|呂梁|忻州|晉中|臨汾|運城");
where[7] = new comefrom("內(nèi)蒙古","|呼和浩特|包頭|烏海|赤峰|呼倫貝爾盟|阿拉善盟|哲里木盟|興安盟|烏蘭察布盟|錫林郭勒盟|巴彥淖爾盟|伊克昭盟");
where[8] = new comefrom("遼寧","|瀋陽|大連|鞍山|撫順|本溪|丹東|錦州|營口|阜新|遼陽|盤錦|鐵嶺|朝陽|葫蘆島");
where[9] = new comefrom("吉林","|長春|吉林|四平|遼源|通化|白山|松原|白城|延邊");
where[10] = new comefrom("黑龍江","|哈爾濱|齊齊哈爾|牡丹江|佳木斯|大慶|綏化|鶴崗|雞西|黑河|雙鴨山|伊春|七臺河|大興安嶺");
where[11] = new comefrom("江蘇","|南京|鎮(zhèn)江|蘇州|南通|揚州|鹽城|徐州|連云港|常州|無錫|宿遷|泰州|淮安");
where[12] = new comefrom("浙江","|杭州|寧波|溫州|嘉興|湖州|紹興|金華|衢州|舟山|臺州|麗水");
where[13] = new comefrom("安徽","|合肥|蕪湖|蚌埠|馬鞍山|淮北|銅陵|安慶|黃山|滁州|宿州|池州|淮南|巢湖|阜陽|六安|宣城|亳州");
where[14] = new comefrom("福建","|福州|廈門|莆田|三明|泉州|漳州|南平|龍巖|寧德");
where[15] = new comefrom("江西","|南昌市|景德鎮(zhèn)|九江|鷹潭|萍鄉(xiāng)|新馀|贛州|吉安|宜春|撫州|上饒");
where[16] = new comefrom("山東","|濟南|青島|淄博|棗莊|東營|煙臺|濰坊|濟寧|泰安|威海|日照|萊蕪|臨沂|德州|聊城|濱州|菏澤");
where[17] = new comefrom("河南","|鄭州|開封|洛陽|平頂山|安陽|鶴壁|新鄉(xiāng)|焦作|濮陽|許昌|漯河|三門峽|南陽|商丘|信陽|周口|駐馬店|濟源");
where[18] = new comefrom("湖北","|武漢|宜昌|荊州|襄樊|黃石|荊門|黃岡|十堰|恩施|潛江|天門|仙桃|隨州|咸寧|孝感|鄂州");
where[19] = new comefrom("湖南","|長沙|常德|株洲|湘潭|衡陽|岳陽|邵陽|益陽|婁底|懷化|郴州|永州|湘西|張家界");
where[20] = new comefrom("廣東","|廣州|深圳|珠海|汕頭|東莞|中山|佛山|韶關|江門|湛江|茂名|肇慶|惠州|梅州|汕尾|河源|陽江|清遠|潮州|揭陽|云浮");
where[21] = new comefrom("廣西","|南寧|柳州|桂林|梧州|北海|防城港|欽州|貴港|玉林|南寧地區(qū)|柳州地區(qū)|賀州|百色|河池");
where[22] = new comefrom("海南","|海口|三亞");
where[23] = new comefrom("四川","|成都|綿陽|德陽|自貢|攀枝花|廣元|內(nèi)江|樂山|南充|宜賓|廣安|達川|雅安|眉山|甘孜|涼山|瀘州");
where[24] = new comefrom("貴州","|貴陽|六盤水|遵義|安順|銅仁|黔西南|畢節(jié)|黔東南|黔南");
where[25] = new comefrom("云南","|昆明|大理|曲靖|玉溪|昭通|楚雄|紅河|文山|思茅|西雙版納|保山|德宏|麗江|怒江|迪慶|臨滄");
where[26] = new comefrom("西藏","|拉薩|日喀則|山南|林芝|昌都|阿里|那曲");
where[27] = new comefrom("陜西","|西安|寶雞|咸陽|銅川|渭南|延安|榆林|漢中|安康|商洛");
where[28] = new comefrom("甘肅","|蘭州|嘉峪關|金昌|白銀|天水|酒泉|張掖|武威|定西|隴南|平?jīng)鰘慶陽|臨夏|甘南");
where[29] = new comefrom("寧夏","|銀川|石嘴山|吳忠|固原");
where[30] = new comefrom("青海","|西寧|海東|海南|海北|黃南|玉樹|果洛|海西");
where[31] = new comefrom("新疆","|烏魯木齊|石河子|克拉瑪依|伊犁|巴音郭勒|昌吉|克孜勒蘇柯爾克孜|博爾塔拉|吐魯番|哈密|喀什|和田|阿克蘇");
where[32] = new comefrom("香港","");
where[33] = new comefrom("澳門","");
where[34] = new comefrom("臺灣","|臺北|高雄|臺中|臺南|屏東|南投|云林|新竹|彰化|苗栗|嘉義|花蓮|桃園|宜蘭|基隆|臺東|金門|馬祖|澎湖");
where[35] = new comefrom("其它","|北美洲|南美洲|亞洲|非洲|歐洲|大洋洲");
function select() {
with(document.form1.province) { var loca2 = options[selectedIndex].value; }
for(i = 0;i < where.length;i ++) {
if (where[i].loca == loca2) {
loca3 = (where[i].locacity).split("|");
for(j = 0;j < loca3.length;j++) { with(document.form1.city) { length = loca3.length; options[j].text = loca3[j]; options[j].value = loca3[j]; var loca4=options[selectedIndex].value;}}
break;
}}
}
function init() {
with(document.form1.shenfen) {
length = where.length;
for(k=0;k<where.length;k++) { options[k].text = where[k].loca; options[k].value = where[k].loca; }
options[selectedIndex].text = where[0].loca; options[selectedIndex].value = where[0].loca;
}
}
</script>
</head>
<body bgcolor="#EAF4FF" class="body" onLoad="init()">
<fieldset class="fiedset">
<legend><font size="2"><input name="nolist" onclick="fnRedirect(this)" type="radio" value="EmpMain_no_list.asp">無價值客戶<input name="paylist" onclick="fnRedirect(this)" type="radio" value="EmpMain_Pay_list.asp">意向客戶<input name="yesllist" type="radio" value="EmpMain_yes_list.asp" onclick="fnRedirect(this)"><font size="2">
已合作客戶</font><input name="myllist" type="radio" value="EmpMain_my_list.asp" onclick="fnRedirect(this)" checked>
我的客戶
<input name="Emplist" type="radio" onclick="fnRedirect(this)" value="EmpMain_list.asp" >
客戶列表</font></legend>
<table border="0" width="100%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<form name="form1" action="EmpMain_List.asp" method="post">
<input type="hidden" value="hahahha" name="test">
<tr>
<td width="12%"><p align="left"><font size="2">『<a href="javascript:void window.open('EmpMain_AddNew.asp','AddNew','width=650,height=380')">新增</a>』</font></p></td>
<td width="22%"> <select name="shenfen" size="1" onChange="onsearch(this)" class="Text" id="shenfen" style="width:80">
</select><font size="2">查詢詞：<%=request("SearchWord")%></font></td>
<td width="15%">
<p align="right"><font size="2">快速查詢:</font></td>
<td width="21%"><font size="2">
<select size="1" name="searchField" style="width:100%" class="Text">
<option value="聯(lián)系人" <%if request("searchField") = "聯(lián)系人" then%>selected<%end if%>>姓名</option>
<option value="公司名稱" <%if request("searchField") = "公司名稱" then%>selected<%end if%>>公司名稱</option>
<option value="省份" <%if request("searchField") = "省份" then%>selected<%end if%>>省份</option>
<option value="錄入人" <%if request("searchField") = "錄入人" then%>selected<%end if%>>業(yè)務員</option>
</select></font></td>
<td width="23%" align="center"><font size="2">
<input type="text" name="SearchWord" style="width:95%" class="Text" value="<%=request("SearchWord")%>">
</font></td>
<td width="7%"> <img src="images/Listsearch.gif" width="18" height="18" onClick="dosearch()" style="cursor:hand">
</td>
</tr>
</form>
</table>
</div>
<div align="right">
<table width="100%" border="0" align="center" class="table" cellspacing="0" bordercolor="#ffffff" cellpadding="0">
<tr>
<td width="5%" align="center" class="listTitle" nowrap> </td>
<td width="5%" align="center" class="listTitle" nowrap><font size="2">客戶編號</font></td>
<td width="11%" align="center" class="listTitle" nowrap><font size="2">聯(lián)系人</font></td>
<td width="10%" align="center" class="listTitle" nowrap><font size="2">聯(lián)系電話</font></td>
<td width="8%" align="center" class="listTitle" nowrap><font size="2">省份</font></td>
<td width="20%" align="center" class="listTitle" nowrap><font size="2">公司名稱</font></td>
<td width="19%" align="center" class="listTitle" nowrap><font size="2">客戶等級</font></td>
<td width="16%" align="center" class="listTitle" nowrap><font size="2">操作</font></td>
</tr>
<%
i = 0
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT EmpList.EOF))
%>
<%
i = i + 1
if i mod 2 <> 0 then
classname="ListValueWhite"
else
classname="ListValuegray"
end if
%>
<tr class="<%=classname%>" EmpID="<%=trim(EmpList.Fields.Item("id").Value)%>" onclick="showDetail(this);showCursorLocation('cursorimg<%=i%>')" style="cursor:hand" onMouseOver="HLItem(this)" onMouseOut="Re(this)">
<td width="5%" nowrap><div align="center"><img src="images/location.gif" width="16" height="12" style="display:none" id="cursorimg<%=i%>"></div></td>
<td width="5%" nowrap><%=trim(EmpList.Fields.Item("id").Value)%></td>
<td width="11%" nowrap><%=trim(EmpList.Fields.Item("聯(lián)系人").Value)%></td>
<td width="10%" nowrap><%=trim(EmpList.Fields.Item("聯(lián)系電話").Value)%></td>
<td width="8%" nowrap><%=trim(EmpList.Fields.Item("省份").Value)%></td>
<td width="20%" nowrap><%=trim(EmpList.Fields.Item("公司名稱").Value)%></td>
<td width="19%" nowrap><%=trim(EmpList.Fields.Item("客戶等級").Value)%></td>
<td width="16%" nowrap><button class="button" name=mody onclick="javascript:void window.open('EmpMain_modyNew.asp?id=<%=trim(EmpList.Fields.Item("id").Value)%>','AddNew','width=650,height=380')">修改</button> <button class="button" name=dell onclick="javascript:void window.open('EmpMain_delete.asp?id=<%=trim(EmpList.Fields.Item("id").Value)%>','AddNew','width=650,height=380')">刪除</button></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
EmpList.MoveNext()
Wend
%>
</table>
</div>
<div align="right">
<table border="0" width="100%" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr>
<td width="50%"> <font size="2">從第<%=(EmpList_first)%>條到第<%=(EmpList_last)%>條記錄,總共<%=(EmpList_total)%>條記錄</font></td>
<td width="50%"><span style="mso-char-type: symbol; mso-symbol-font-family: Webdings; mso-bidi-font-size: 12.0pt; font-family: Webdings; mso-ascii-font-family: Times New Roman; mso-fareast-font-family: 宋體; mso-hansi-font-family: Times New Roman; mso-bidi-font-family: Times New Roman; color: blue; mso-font-kerning: 1.0pt; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA" lang="EN-US"></span>
<table border="0" width="50%" align="right">
<tr>
<td width="23%" align="center"> <a href="<%=MM_moveFirst%>"><img src="First.gif" border=0></a>
</td>
<td width="31%" align="center"> <a href="<%=MM_movePrev%>"><img src="Previous.gif" border=0></a>
</td>
<td width="23%" align="center"> <a href="<%=MM_moveNext%>"><img src="Next.gif" border=0></a>
</td>
<td width="23%" align="center"> <a href="<%=MM_moveLast%>"><img src="Last.gif" border=0></a>
</td>
</tr>
</table>
<div align="right"></div></td>
</tr>
</table>
</div>
</fieldset>
</body>
</html>
<%
EmpList.Close()
Set EmpList = Nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -