dataform.asp

这是一个ASP平台的制衣管理系统,里面有比较好看FLASH动画,希望大家喜欢.

    		End If
    	Case "rTrade"
    	    'Dim rTrade
    		rTrade = Trim(Request.Form("rTrade"))
    		If rTrade = "" Then Response.Redirect("?errMsg=1")
    		If rUser = "" Then
    		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cTrade = '" & rTrade & "')"
                arrList = listAll(sql1)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
    		Else		
    		    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "' And cTrade = '" & rTrade & "')"
                arrList = listAll(sql1)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
    		End If
    	Case "rRecordsType"
    	    'Dim rRecordsType
    		rRecordsType = Trim(Request.Form("rRecordsType"))
    		If rRecordsType = "" Then Response.Redirect("?errMsg=1")
    		If rUser = "" Then
    		    sql1 = "Select * From baidu_records Where rType  = '" & rRecordsType & "'"
                arrList = listAll(sql1)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
    		Else		
    		    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 If
    	End Select
    Else
	    If CInt(Abs(rGroup)) <= 0 Then Response.Redirect("?errMsg=1")
    	Select Case selectItems
    	Case "rTime"
    	    'Dim rTimeBegin,rTimeEnd
    		rTimeBegin = Trim(Request.Form("rTimeBegin"))
    		rTimeEnd = Trim(Request.Form("rTimeEnd"))
    		If rTimeBegin = "" And rTimeEnd = "" Then Response.Redirect("?errMsg=1")
    		If rTimeBegin <> "" And rTimeEnd <> "" Then
	    	    ''数据不完整
	    	    If Not IsDate(rTimeBegin) Or Not IsDate(rTimeEnd) Or rTimeBegin > rTimeEnd Then Response.Redirect("?errMsg=1")
				intDay = DateDiff("d",rTimeBegin,rTimeEnd)
				If intDay = 0 Then intDay = 1
	    		''没有权限
	    		'If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")
			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList2(9,rGroup) & ")) And rDate >= #" & rTimeBegin & "# And rDate <= #" & rTimeEnd & "#"
	    '		sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rDate >= #" & rTimeBegin & "# And rDate <= #" & rTimeEnd & "#"
                arrList = listAllAtDate(sql1,intDay)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
	    	ElseIf rTimeBegin <> "" Then
	    	    ''数据不完整
	    	    If Not IsDate(rTimeBegin) Then Response.Redirect("?errMsg=1")
    			''没有权限
    			'If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")
			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList2(9,rGroup) & ")) And rDate >= #" & rTimeBegin & "#"
    			'sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rDate >= #" & rTimeBegin & "#"
                arrList = listAll(sql1)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
    		Else
    		    ''数据不完整
    		    If Not IsDate(rTimeEnd) Then Response.Redirect("?errMsg=1")
    			''没有权限
    			'If Not IsAccessUser(getUserList(Session("CRM_level"),Session("CRM_group")),rUser) Then Response.Redirect("?errMsg=2")
			    sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList2(9,rGroup) & ")) And rDate <= #" & rTimeEnd & "#"
    			'sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser = '" & rUser & "') And rDate <= #" & rTimeEnd & "#"
                arrList = listAll(sql1)
                strToPrint = strToPrint & arrList(1)
                strCounter = arrList(0)
    		End If
    	Case "rType"
    	    'Dim rType
    		rType = Trim(Request.Form("rType"))
    		If rType = "" 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 cType = '" & rType & "')"
    		'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 cType = '" & rType & "')"
            arrList = listAll(sql1)
            strToPrint = strToPrint & arrList(1)
            strCounter = arrList(0)
    	Case "rTrade"
    	    '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">
<meta name="Author" content="http://www.technet.cn">
<meta name="Date" content="2003-08">
<title></title>
<link href="myStyle.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
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() %>\" 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;" onCopy="return false;" onSelectStart="return false;" onCut="return false;" onContextMenu="window.event.returnValue=false;">
<%' Response.Write(sql1 & selectItems & rTimeBegin & rTimeEnd) %>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr id="oHead" style="display: block;">
    <td valign="top"> 
      <table width="100%" 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="5" cellspacing="0" bgcolor="#FFFFFF">
        <form name="dataForm" action="<% = actionUrl %>" method="post">
		<tr> 
          <td align="right">&nbsp;</td>
          <td width="924">报表内容： <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">&nbsp;</td>
          <td id="dataFormItems">&nbsp; </td>
        </tr>
        <tr> 
          <td align="right">&nbsp;</td>
          <td>&nbsp;&nbsp;&nbsp;&nbsp;用户：
            <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">&nbsp;</td>
          <td align="center"><input type="submit" name="Submit" value="提交"> &nbsp;&nbsp; 
            <input name="Reset" type="reset" id="Reset" value="重置"></td>
        </tr>
		</form>
    </table>    </td>
  </tr>
  <tr>
    <td colspan="2" align="center" id="oHeadBar">&nbsp;</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 colspan="4" align="right"><a href="#top">返回顶部<img src="images/arrow_up.gif" alt="返回顶部" width="16" height="16" border="0" align="absmiddle"></a>&nbsp;      </td></td>
  </tr>
</table>
</body>
</html>