📄 addnew.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
if session("AccountID")="" then
%>
<script language=javascript>
alert("因登录时间过长，会话失效，请退出重新登陆！")
</script>
<%
Response.End
end if
If Request.Form.Count > 0 Then
Dim ObjDB
Dim C
Dim IntID
if request("_CustomerName")="" then
%>
<script language=javascript>
alert("姓名不能为空！")
window.location = "addnew.asp"
</script>
<%
response.end
end if
if request("_CompanyName")="" then
%>
<script language=javascript>
alert("公司名称不能为空！")
window.location = "addnew.asp"
</script>
<%
response.end
end if
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDB ObjDB
Set C = Server.CreateObject("CMS2003.DBHandle")
C.Init(ObjDB)
IntID = C.AddNew("_","t_OA_Private_AddressBook")
ObjDB.Close
Set ObjDB = 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="_CustomerName" value=""><font color=red> *</font></td>
</tr>
<tr class=Ltr>
<td>公司名称</td>
<td><input type="text" class=Input Check=1 Show="公司名称" name="_CompanyName" value=""><font color=red> *</font></td>
</tr>
<tr class=Ltr>
<td>办公电话</td>
<td><input type="text" class=Input Check=1 Show="办公电话" name="_CompanyPhone" value=""><font color=red> *</font></td>
</tr>
<tr class=Ltr>
<td>移动电话</td>
<td><input type="text" class=Input Check=0 Show="移动电话" name="_MobilePhone" value=""></td>
</tr>
<tr class=Ltr>
<td>传真</td>
<td><input type="text" class=Input Check=0 Show="传真" name="_CompanyFax" value=""></td>
</tr>
<tr class=Ltr>
<td>公司网址</td>
<td><input type="text" class=Input Check=0 Show="公司网址" name="_CompanyWebPage" value=""></td>
</tr>
<tr class=Ltr>
<td>职位</td>
<td><input type="text" class=Input Check=0 Show="职位" name="_Des" value=""></td>
</tr>
<tr class=Ltr>
<td>电子信箱</td>
<td><input type="text" class=Input Check=0 Show="电子信箱" name="_Email" value=""></td>
</tr>
<tr class=Ltr>
<td>创建时间</td>
<td><input type="text" Check=1 Show="创建时间" class=Input readonly name="_CreateTime" value="<%=Date()%>"></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 + -