?? dataform.asp
字號(hào):
strOut(1) = strOut(1) & " </tr>" & VBCrlf
If k >= intPageSize Then Exit Do
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
listAllAtDate = strOut
End Function
Dim actionUrl
If Session("CRM_level") >= 9 Then
actionUrl = "?action=adminAction"
Else
actionUrl = "?action=userAction"
End If
Dim action,selectItems,rUser,arrList
Dim sql1,intDay
action = Trim(Request.QueryString("action"))
selectItems = Trim(Request.Form("selectItems"))
rUser = Trim(Request.Form("rUser"))
If action <> "" Then Session("CRM_sql1") = ""
If action = "userAction" Then
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
''數(shù)據(jù)不完整
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 rUser = "" Then
sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")) And rDate >= #" & rTimeBegin & "# And rDate <= #" & rTimeEnd & "#"
arrList = listAllAtDate(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
Else
''沒有權(quán)限
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 = '" & rUser & "') And rDate >= #" & rTimeBegin & "# And rDate <= #" & rTimeEnd & "#"
arrList = listAllAtDate(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
End If
ElseIf rTimeBegin <> "" Then
''數(shù)據(jù)不完整
If Not IsDate(rTimeBegin) Then Response.Redirect("?errMsg=1")
If rUser = "" Then
sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")) And rDate >= #" & rTimeBegin & "#"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
Else
''沒有權(quán)限
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 = '" & rUser & "') And rDate >= #" & rTimeBegin & "#"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
End If
Else
''數(shù)據(jù)不完整
If Not IsDate(rTimeEnd) Then Response.Redirect("?errMsg=1")
If rUser = "" Then
sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")) And rDate <= #" & rTimeEnd & "#"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
Else
''沒有權(quán)限
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 = '" & rUser & "') And rDate <= #" & rTimeEnd & "#"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
End If
End If
Case "rType"
Dim rType
rType = Trim(Request.Form("rType"))
If rType = "" Then Response.Redirect("?errMsg=1")
If rUser = "" Then
sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")) And cId In (Select cId From baidu_client Where cType = '" & rType & "')"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
Else
''沒有權(quán)限
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 = '" & rUser & "') And cId In (Select cId From baidu_client Where cType = '" & rType & "')"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
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 cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")) And cId In (Select cId From baidu_client Where cTrade = '" & rTrade & "')"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
Else
''沒有權(quán)限
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 = '" & rUser & "') And cId In (Select cId From baidu_client Where 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 cId In (Select cId From baidu_client Where cUser In (" & getUserList(Session("CRM_level"),Session("CRM_group")) & ")) And rType = '" & rRecordsType & "'"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
Else
''沒有權(quán)限
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 = '" & rUser & "') And rType = '" & rRecordsType & "'"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
End If
End Select
ElseIf action = "adminAction" Then
Dim rGroup
rGroup = Request.Form("rGroup")
If rGroup = "" Then
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
''數(shù)據(jù)不完整
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 rUser = "" Then
sql1 = "Select * From baidu_records Where rDate >= #" & rTimeBegin & "# And rDate <= #" & rTimeEnd & "#"
arrList = listAllAtDate(sql1,intDay)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
Else
''沒有權(quán)限
'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 = '" & rUser & "') And rDate >= #" & rTimeBegin & "# And rDate <= #" & rTimeEnd & "#"
arrList = listAllAtDate(sql1,intDay)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
End If
ElseIf rTimeBegin <> "" Then
''數(shù)據(jù)不完整
If Not IsDate(rTimeBegin) Then Response.Redirect("?errMsg=1")
If rUser = "" Then
sql1 = "Select * From baidu_records Where rDate >= #" & rTimeBegin & "#"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
Else
''沒有權(quán)限
'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 = '" & rUser & "') And rDate >= #" & rTimeBegin & "#"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
End If
Else
''數(shù)據(jù)不完整
If Not IsDate(rTimeEnd) Then Response.Redirect("?errMsg=1")
If rUser = "" Then
sql1 = "Select * From baidu_records Where rDate <= #" & rTimeEnd & "#"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
Else
''沒有權(quán)限
'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 = '" & rUser & "') And rDate <= #" & rTimeEnd & "#"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
End If
End If
Case "rType"
'Dim rType
rType = Trim(Request.Form("rType"))
If rType = "" Then Response.Redirect("?errMsg=1")
If rUser = "" Then
sql1 = "Select * From baidu_records Where cId In (Select cId From baidu_client Where cType = '" & rType & "')"
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 cType = '" & rType & "')"
arrList = listAll(sql1)
strToPrint = strToPrint & arrList(1)
strCounter = arrList(0)
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
''數(shù)據(jù)不完整
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
''沒有權(quán)限
'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
''數(shù)據(jù)不完整
If Not IsDate(rTimeBegin) Then Response.Redirect("?errMsg=1")
''沒有權(quán)限
'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
''數(shù)據(jù)不完整
If Not IsDate(rTimeEnd) Then Response.Redirect("?errMsg=1")
''沒有權(quán)限
'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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -