📄 addnew.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
If Request.Form.Count > 0 Then
Dim ObjDB
Dim C
Dim IntID
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDB ObjDB
Set C = Server.CreateObject("CMS2003.DBHandle")
C.Init(ObjDB)
IntID = C.AddNew("_","t_OA_Message_MailServer")
ObjDB.Close
Set ObjDB = Nothing
Response.Redirect "List.asp"
End If
%>
<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>
<HTML><HEAD>
<form action="" method="post" onsubmit="return(CheckForm(this))">
<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr align="center">
<td width="15%">新增邮件服务器</td>
<td width="85%"> </td>
</tr>
<tr class=Ltr>
<td>邮件服务器名称</td>
<td bgcolor="#F0F0F0"><input type="text" class=Input Check=1 Show="邮件服务器名称" name="_MailServerName" value=""></td>
</tr>
<tr class=Ltr>
<td>域名</td>
<td><input type="text" class=Input Check=1 Show="域名" name="_Address" value=""></td>
</tr>
<tr class=Ltr>
<td>IP</td>
<td><input type="text" class=Input Check=1 Show="IP" name="_IP" value=""></td>
</tr>
<tr class=Ltr>
<td>端口</td>
<td><input type="text" class=Input Check=1 Show="端口" name="_Port" value=""></td>
</tr>
<tr class=Ltr>
<td>登录名</td>
<td><input type="text" class=Input Check=0 Show="使用者" name="_UserName" value=""></td>
</tr>
<tr class=Ltr>
<td>密码</td>
<td><input type="text" class=Input Check=0 Show="密码" name="_Password" value=""></td>
</tr>
<tr class=Ltr>
<td>超时时间</td>
<td><input type="text" class=Input Check=1 Show="超时时间" name="_TimeOut" value=""></td>
</tr>
<tr class=Ltr>
<td>创建日期</td>
<td bgcolor="#F0F0F0"><input type="text" class=Input Check=1 Show="创建日期" readonly name="_CreateTime" onclick="InputDate(this)" 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 file="templet.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -