📄 addnew.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/String.asp" -->
<%
if session("AccountID")="" then
%>
<script language=javascript>
alert("因登录时间过长，会话失效，请退出重新登陆！")
</script>
<%
Response.End
end if
If Request.Form.Count > 0 Then
Dim C,conn
Dim IntID
If Trim(Request("_Atext"))="" then
Response.Write "<script language=javascript>alert('请填写活动主题');history.back();</script>"
Response.End
End if
Set conn=Server.CreateObject("ADODB.Connection")
OpenDBCrm( conn )
conn.Execute("insert into T_CRM_Active (Atext,Guest,LinkMan,Atype,Asdate,Aedate,Aoperater,Aparticular,Remark,Acreater,CreateTime) values ('"&FixSQL(Request("_Atext"))&"','"&FixSQL(Request("_Guest"))&"','"&FixSQL(Request("_LinkMan"))&"','"&FixSQL(Request("_Atype"))&"','"&FixSQL(Request("_Asdate"))&"','"&FixSQL(Request("_Aedate"))&"','"&FixSQL(Request("_Aoperater"))&"','"&FixSQL(Request("_Aparticular"))& "','"& FixSQL(Request("_Remark"))& "','"&session("AccountID")&"','"&date()&"')")
conn.Close
Set conn = Nothing
Response.Redirect "List.asp"
End If
Sub Main
%>
<HTML><HEAD>
<form action="" method="post" onsubmit="return(CheckForm(this))">
<input type=hidden name=_AccountID value=<%=Session("AccountID")%>>
<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr align="middle">
<td width="15%">活动基本信息</td>
<td width="85%"> </td>
</tr>
<tr class=Ltr>
<td>活动主题</td>
<td><input type="text" class=Input Check=1 Show="活动主题" name="_Atext" value=""></td>
</tr>
<tr class=Ltr>
<td>相关客户</td>
<td><input type="text" class=Input Check=0 Show="相关客户" name="_Guest" value=""></td>
</tr>
<tr class=Ltr>
<td>相关联系人</td>
<td><input type="text" class=Input Check=0 Show="相关客户" name="_LinkMan" value=""></td>
</tr>
<tr class=Ltr>
<td>活动类型</td>
<td><input type="text" class=Input Check=0 Show="活动类型" name="_Atype" value=""></td>
</tr>
<tr class=Ltr>
<td>开始日期</td>
<td><input type="text" class=Input onclick="InputDate(this)" readonly Check=0 Show="开始日期" name="_Asdate" value=""></td>
</tr>
<tr class=Ltr>
<td>结束日期</td>
<td><input type="text" class=Input onclick="InputDate(this)" readonly Check=0 Show="结束日期" name="_Aedate" value=""></td>
</tr>
<tr class=Ltr>
<td>操作者</td>
<td><input type="text" class=Input Check=0 Show="操作者" name="_Aoperater" value=""></td>
</tr>
</table>
<table id=MoreInfo class=Ltable cellspacing=1 cellpadding=3>
<tr class=LStr>
<td width="15%">详细活动信息</td>
<td width="85%" colspan=3> </td>
</tr>
<tr class=Ltr>
<td>详细描述</td>
<td colspan=3><textarea cols="20" rows="2" class=Input Check=0 Show="详细描述" name="_Aparticular"></textarea></td>
</tr>
<tr class=Ltr>
<td>备注</td>
<td colspan=3><textarea cols="20" rows="2" class=Input Check=0 Show="备注" name="_Remark"></textarea></td>
</tr>
</table>
<table cellspacing=1 cellpadding=3>
<tr>
<td>
<input type="submit" name="Submit" class=Button value="提 交"><input type="button" class=Button value="取 消" onclick="doList()" id=button1 name=button1></td>
<td></td>
</tr>
</table>
</FORM>
<%
End Sub
%>
<!-- #include virtual="Templet/Templet.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -