📄 dataform.asp
字号:
'Dim rTrade
rTrade = Trim(Request.Form("rTrade"))
If rTrade = "" Then Response.Redirect("?errMsg=1")
sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList2(9,rGroup) & ")) And cId In (Select cId From baidu_client Where cTrade = '" & rTrade & "')"
'sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And cId In (Select cId From baidu_client Where cTrade = '" & rTrade & "')"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
Case "rRecordsType"
'Dim rRecordsType
rRecordsType = Trim(Request.Form("rRecordsType"))
If rRecordsType = "" Then Response.Redirect("?errMsg=1")
sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList2(9,rGroup) & ")) And rType = '" & rRecordsType & "'"
'sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rType = '" & rRecordsType & "'"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
End Select
End If
End If
If sql1 <> "" Then
Session("CRM_sql1") = sql1
If intDay <> "" Then Session("CRM_intDay") = intDay
Else
Dim pageNum
pageNum = Request.QueryString("pageNum")
If pageNum <> "" Then
arrList = listAllAtDate(Session("CRM_sql1"),Session("CRM_intDay"))
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
End If
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>客户资料收集系统</title>
<link href="myStyle.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function showHideHead(strSrc)
{
var strFile = strSrc.substring(strSrc.lastIndexOf("/"),strSrc.length);
if (strFile == "/arrow_up.gif"){
oHead.style.display = "none";
oHeadCtrl.src = "images/arrow_down.gif";
oHeadCtrl.alt = "显示头部";
oHeadBar.title = "显示头部";
}
else {
oHead.style.display = "block";
oHeadCtrl.src = "images/arrow_up.gif";
oHeadCtrl.alt = "隐藏头部";
oHeadBar.title = "隐藏头部";
}
}
if (this.location.href == top.location.href){
top.location.href = "";
}
function changeItem()
{
var items01 = "起始日期：";
items01 = items01 + " <input name=\"rTimeBegin\" type=\"text\" id=\"rTimeBegin\" value=\"<% = Date()-7 %>\" size=\"12\" maxlength=\"12\" onClick=\"this.value='';\">";
items01 = items01 + "----结束日期：";
items01 = items01 + " <input name=\"rTimeEnd\" type=\"text\" id=\"rTimeEnd\" value=\"<% = Date() %>\" size=\"12\" maxlength=\"12\" onClick=\"this.value='';\">";
var items02 = "业务种类：";
var items02 = items02 + " <% = Replace(getList(1,"baidu_clientsType","","clientsType","rType","业务种类"),"""","\""") %>";
var items03 = "行业类型：";
var items03 = items03 + " <% = Replace(getList(1,"baidu_clientsTrade","","clientsTrade","rTrade","行业类型"),"""","\""") %>";
var items04 = "拜访类型：";
items04 = items04 + " <% = Replace(getList(1,"baidu_recordsType",,"recordsType","rRecordsType","拜访类型"),"""","\""") %>";
var items = document.all.selectItems.value;
switch(items){
case "rTime":
document.all.dataFormItems.innerHTML = items01;
document.all.items.value = items;
return;
case "rType":
document.all.dataFormItems.innerHTML = items02;
document.all.items.value = items;
return;
case "rTrade":
document.all.dataFormItems.innerHTML = items03;
document.all.items.value = items;
return;
case "rRecordsType":
document.all.dataFormItems.innerHTML = items04;
document.all.items.value = items;
return;
case "":
alert("请选择报表数据类型。");
document.all.selectItems.focus();
return;
}
//if(items != ""){
// if(items == "rTime"){
// document.all.dataFormItems.innerHTML = items01;
// }
// else{
// if(items == "rType"){
// document.all.dataFormItems.innerHTML = items02;
// }
// else{
// document.all.dataFormItems.innerHTML = items03;
// }
// }
//}
//else{
// alert("请选择报表数据类型。");
// document.all.selectItems.focus();
// return false;
//}
}
-->
</script>
</head>
<body style="background-color: menu;" >
<%' Response.Write(sql1 & selectItems & rTimeBegin & rTimeEnd) %>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr id="oHead" style="display: block;">
<td height="1" valign="top">
<table width="778" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"><img src="images/null.gif" width="1" height="1"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="menu">
<tr>
<td align="left" background='images/tab_top_background_runner.gif'> <table width="5" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/null.gif" width="1" height="1"></td>
</tr>
</table>
<table onClick="window.location.replace('listAll.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr >
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">查看所有数据</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('addData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">添加数据</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('advanceSearch.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">高级搜索</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('dataForm.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_on_left.gif" width="16" height="24"></td>
<td background="images/tab_on_middle.gif">数据报表</td>
<td><img src="images/tab_on_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('exportData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">数据导出</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('question.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">问题集</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('plan.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">计划与总结</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<% If Session("CRM_level") = 9 Then %>
<table onClick="window.location.replace('transData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">数据转移</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('manageUser.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">用户管理</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('system_level.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">系统设置</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<% End If %>
<table onClick="window.location.replace('logout.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">注销</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.reload();" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif">刷新</td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="5"><img src="images/null.gif" width="1" height="1"></td>
</tr>
<tr>
<td bgcolor="#999999"> </td>
</tr>
</table>
<table width="100%" border="0" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
<form name="dataForm" action="<% = actionUrl %>" method="post">
<tr>
<td align="right"> </td>
<td>报表内容： <select name="selectItems" id="selectItems" onChange="return changeItem();">
<option value="">请选择</option>
<option value="rTime">拜访时间</option>
<option value="rType">业务种类</option>
<option value="rTrade">行业类型</option>
<option value="rRecordsType">拜访类型</option>
</select>
<input name="items" type="hidden" id="items"></td>
</tr>
<tr>
<td align="right"> </td>
<td id="dataFormItems"> </td>
</tr>
<tr>
<td align="right"> </td>
<td> 用户：
<input name="rUser" type="text" id="rUser" size="16" maxlength="16">
<% If Session("CRM_level") >= 9 Then %>业务组：<% = getList(2,"baidu_group","gId","gName","rGroup","业务组") %><% End If %>
（用户名留空为权限下所有用户） </td>
</tr>
<tr>
<td width="40" align="right"> </td>
<td align="center"><input type="submit" name="Submit" value="提交">
<input name="Reset" type="reset" id="Reset" value="重置"></td>
</tr>
</form>
</table>
</td>
</tr>
<tr>
<td height="16" align="center" bgcolor="#999999" id="oHeadBar" style="cursor: hand;" title="隐藏头部" onClick="return showHideHead(document.all.oHeadCtrl.src);">
<img src="images/arrow_up.gif" alt="隐藏头部" width="16" height="16" align="absmiddle" id="oHeadCtrl"> </td>
</td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF" style="padding: 10px;">
<% = strCounter %>
<table width="100%" align="center" border="1" cellpadding="3" cellspacing="0" bordercolor="#DCDCDC" bordercolordark="#FFFFFF"><% = strToPrint %>
</table></td>
</tr>
<tr>
<td height="16" align="right" bgcolor="#999999"><a href="#top"><img src="images/arrow_up.gif" alt="返回顶部" width="16" height="16" border="0" align="absmiddle"></a> </td>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -