📄 activity.asp

📁 Activity——活动管理模块 Analyse——分析模块 Client——客户管理系统模块 Email——E-mail管理模块 Fee——费用管理模块 Report——报表模块 Sel
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%

%>
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<%
	
    set  rs = server.createobject("adodb.recordset")
	set  rcs = server.createobject("adodb.recordset")
	
	Sqlstr = "select TouchManID from TouchMan where TouchManCreatorID ="&User_ID
	rcs.open Sqlstr,conn,3,2
	if (rcs.bof or rcs.eof) then
				response.write "<script language=javascript>"
				response.write"alert('尚未有任何联系人记录！无法进行活动操作！');"
				response.write"location.href='../menu.asp';"
				response.write "</script>"
				response.end
	end if
	rcs.close
	
	Sqlstr = "select ClientID,ClientName from Client where ClientCreatorID ="&User_ID&" order by ClientID"
	rcs.open Sqlstr,conn,3,2
	if (rcs.bof or rcs.eof) then
				response.write "<script language=javascript>"
				response.write"alert('尚未有任何客户记录！无法进行活动操作！');"
				response.write"location.href='../menu.asp';"
				response.write "</script>"
				response.end
	end if
	
	
	ActivityID=request("ActivityID")
	if ActivityID = "" Then			'未指明访问客户ID
		Sqlstr = "select top 1 * from Activity where ActivityCreatorID=" & User_ID & " order by ActivityID"
		rs.open Sqlstr,conn,3,2
			if rs.bof or rs.eof then
				response.write "<script language=javascript>"
				response.write"alert('尚未有任何记录！系统将自动创建一个新记录');"
				response.write"location.href='NewActivity.asp';"
				response.write "</script>"
				response.end
			end if
	else							'指明访问客户ID
		Sqlstr = "select * from Activity where (ActivityCreatorID=" &User_ID& " and ActivityID ="&ActivityID&") or (ActivityID ="&ActivityID&" and ActivityOpenFlag = 1 )"
		rs.open Sqlstr,conn,3,2
			if rs.bof or rs.eof then
				response.write "<script language=javascript>"
				response.write"alert('暂时无记录或该记录未公开！');"
				response.write"location.href='../menu.asp';"
				response.write "</script>"
				response.end
			end if
	end if
	ActivityID=rs ("ActivityID")
	ActivityTopic  = rs("ActivityTopic")
	ActivityClientID = rs("ActivityClientID")
	ActivityTouchmanID = rs("ActivityTouchmanID")
	ActivitySort = rs("ActivitySort")
	ActivityDate = rs("ActivityDate")
	ActivityOverDate = rs("ActivityOverDate")
	ActivityPriority  = rs("ActivityPriority")
	ActivityDetail = rs("ActivityDetail")
	ActivityCreatorID   = rs("ActivityCreatorID")
	ActivityCreateDate = rs("ActivityCreateDate")
	ActivityOpenFlag  = rs("ActivityOpenFlag")
	ActivityOperatorID = rs("ActivityRevisorID")
    ActivityUpdateDate = rs("ActivityReviseDate")
	if ActivityClientID = 0 then
	ActivityClientID = rcs("ClientID")
	end if
	if request("NotSave")=1 then
	ActivityClientID = request("T_ActivityClientID")
	end if
	ActivityClientID = Cint(ActivityClientID)
	rs.close
	Sqlstr = "select * from [User] where UserID=" & ActivityCreatorID
	rs.open Sqlstr,conn,3,2
	if not (rs.bof or rs.eof) then
		ActivityCreatorName = rs("UserName")
		ActivityCreatorSnum = rs("UserSection")
	else
		ActivityCreatorName = "未知"
		ActivityCreatorSnum = 0
	end if

	rs.close
	Sqlstr = "select * from Section where SectionID =" & ActivityCreatorSnum
	rs.open Sqlstr,conn,3,2
	if not (rs.bof or rs.eof) then
		ActivityCreatorSName = rs("SectionName")
	else
		ActivityCreatorSName = "未知"
	end if

	rs.close
	Sqlstr = "select * from [User] where UserID=" & ActivityOperatorID
	rs.open Sqlstr,conn,3,2
	if not (rs.bof or rs.eof) then
		ActivityOperatorName = rs("UserName")
	else
		ActivityOperatorName = "未知"
	end if
	
	rs.close
	rspre=0
	rsnext=0
	rsfisrt=0
	rslast=0
	if ActivityCreatorID = User_ID then					'浏览自己客户资料
		Sqlstr = "select top 1 ActivityID  from Activity where ActivityID<"&ActivityID&" and ActivityCreatorID="&User_ID&" order by ActivityID desc"
		rs.open Sqlstr,conn,3,2
			if not (rs.bof or rs.eof) then
				rspre=1
				ActivityPreID = rs("ActivityID")
			end if
		rs.close

		Sqlstr = "select top 1 ActivityID  from Activity where ActivityID>"&ActivityID&" and ActivityCreatorID="&User_ID&" order by ActivityID"
		rs.open Sqlstr,conn,3,2
			if not (rs.bof or rs.eof) then
				rsnext=1
				ActivityNextID = rs("ActivityID")
			end if
		rs.close
		
		Sqlstr = "select count(ActivityID) as Rnum  from Activity where ActivityID<"&ActivityID&" and ActivityCreatorID="&User_ID
		rs.open Sqlstr,conn,3,2
		Rnum = rs("Rnum")
		rs.close

		Sqlstr = "select count(ActivityID) as Totalnum , max(ActivityID) as LastID , min(ActivityID) as FirstID  from Activity where ActivityCreatorID="&User_ID
		rs.open Sqlstr,conn,3,2
		Totalnum = rs("Totalnum")
		FirstID = rs("FirstID")
		LastID = rs("LastID")
		rs.close

		if FirstID<>ActivityID then
		rsfirst = 1
		end if
		
		if LastID<>ActivityID then
		rslast = 1
		end if
	else
	''浏览别人记录程序
		Sqlstr = "select top 1 ActivityID  from Activity where ActivityID<"&ActivityID&" and ActivityCreatorID<>"&User_ID&" and ActivityOpenFlag = 1 order by ActivityID desc"
		rs.open Sqlstr,conn,3,2
			if not (rs.bof or rs.eof) then
				rspre=1
				ActivityPreID = rs("ActivityID")
			end if
		rs.close

		Sqlstr = "select top 1 ActivityID  from Activity where ActivityID>"&ActivityID&" and ActivityCreatorID<>"&User_ID&" and ActivityOpenFlag = 1 order by ActivityID"
		rs.open Sqlstr,conn,3,2
			if not (rs.bof or rs.eof) then
				rsnext=1
				ActivityNextID = rs("ActivityID")
			end if
		rs.close
		
		Sqlstr = "select count(ActivityID) as Rnum  from Activity where ActivityID<"&ActivityID&" and ActivityOpenFlag = 1 and ActivityCreatorID<>"&User_ID
		rs.open Sqlstr,conn,3,2
		Rnum = rs("Rnum")
		rs.close

		Sqlstr = "select count(ActivityID) as Totalnum , max(ActivityID) as LastID , min(ActivityID) as FirstID  from Activity where ActivityOpenFlag = 1 and ActivityCreatorID<>"&User_ID
		rs.open Sqlstr,conn,3,2
		Totalnum = rs("Totalnum")
		FirstID = rs("FirstID")
		LastID = rs("LastID")
		rs.close

		if FirstID<>ActivityID then
		rsfirst = 1
		end if
		
		if LastID<>ActivityID then
		rslast = 1
		end if

	end if
	set rs=nothing
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>活动信息察看</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
<META content="MSHTML 6.00.2715.400" name=GENERATOR>
<style type="text/css">
<!--
.style1 {color: #FF6600}
-->
</style>
</HEAD>
<LINK href="../css.css" rel=stylesheet>
<BODY><BR>

  <TABLE  width="751" border=0 align=center cellPadding=0 cellSpacing=0>
    <!--DWLayoutTable-->
    <TBODY>
	<FORM name=SearchActivity  action=Activitylist.asp method=post> 
    <TR> 
        <TD  width="12" height="24" valign="top"   ><Span align=center><img src="../images/DispStation_H.gif" width="11" height="24"></span></TD>
    <TD width="137" align="center" valign="middle" bgcolor="#566CDB" >活动信息察看</TD>
      <TD colspan="8" align="right" valign="middle" bgcolor="#DDDDDD" >快速查询：
        <select name="S_SearchOption" class="text100" id="S_SearchOption" >
          <option value="0">活动主题</option>
		<%
			'生成下拉列表
		SqlAttachNameTab =  Array("类型","开始日期","结束日期","活动细节")
			for i=1 to 4 
		%>
          <option value="<%=i%>"><%=SqlAttachNameTab(i-1)%></option>
		<% 
			next 
		%>
        </select>
&nbsp;&nbsp;
<select name="S_Relation" class="text100" id="S_Relation" >
          <option value="包含" selected>包含</option>
          <option value="不包含">不包含</option>
</select>
&nbsp;&nbsp;
<input name="T_SearchText" type="text" id="T_SearchText" size="20" maxlength="50" >
&nbsp;
<input name="SelectClientID" type="hidden"  size="20" maxlength="50" value="<%=ActivityClientID%>" >
<input name="Search" type="submit" class="button_all" id="Search" value="查询" ></TD>
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -