setmailserver.asp

来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 135 行

ASP
135 行
字号 
<%  
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%>
<%on error resume next
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../adminlogin666.asp"
MM_grantAccess=false
If Session("MM_Usernamesyslogin") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="../../Connections/oavbsconn.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT * FROM eadfgsdfgsdfgsdfg"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<html>
<head>

<style type="text/css">
<!--
.style1 {font-size: 12px}
.style2 {color: #FFFFFF}
-->
</style>
<script language="JavaScript">
<!--
function check() {
if (document.form1.smtp.value=="") {
window.alert ("请您输入邮件smtp地址！")
document.form1.smtp.focus()
return false
}

if (document.form1.u.value=="") {
window.alert ("请您输入oa 邮件帐号 ！")
document.form1.u.focus()
return false
}
 if(document.form1.u.value.length!=0)
{
if (document.form1.u.value.charAt(0)=="." || document.form1.u.value.charAt(0)=="@"|| document.form1.u.value.indexOf('@', 0) == -1 || document.form1.u.value.indexOf('.', 0) == -1 || document.form1.u.value.lastIndexOf("@")==document.form1.u.value.length-1 || document.form1.u.value.lastIndexOf(".")==document.form1.u.value.length-1)
{
alert("您的Email地址格式不正确！");
document.form1.u.focus();
return false;
}
}
if (document.form1.p.value=="") {
window.alert ("请您输入邮件密码！")
document.form1.p.focus()
return false
}
return true
}
//-->
</SCRIPT>
<link href="../../css/link.css" rel="stylesheet" type="text/css">
</head>
<div align="center">
  <form name="form1" method="post" action="EMASERVERSETPOST.asp" onsubmit="return check()">
    <table width="760" height="21" border="0" cellpadding="2" cellspacing="0">
      <tr>
        <td background="../../img/bw/line.gif"><div align="center"><strong><span class="style3 style4 style2">增 加 邮 件 帐 号</span></strong></div></td>
      </tr>
    </table>
    <table width="760" border="0" cellpadding="0" cellspacing="1" bgcolor="#5AAE18">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
            <tr>
              <td width="87" height="25" class="tdbg">　邮件smtp：<br>
              </td>
              <td width="668" height="25" class="tdbg"><input name="smtp" type="text" id="smtp" value="<%=(Recordset1.Fields.Item("smtp").Value)%>" size="40"> 
              形如:smtp.163.com或者smtp.sina.com,具体请联系邮件服务商</td>
            </tr>
            <tr>
              <td height="25" class="tdbg">　邮件地址：<br>
              </td>
              <td height="25" class="tdbg"><input name="u" type="text" id="u" value="<%=(Recordset1.Fields.Item("emailuserdgfhfsgh").Value)%>" size="40"> 
              形如:enterprise@abc.com</td>
            </tr>
            <tr>
              <td height="25" class="tdbg">　邮件密码：<br>
              </td>
              <td height="25" class="tdbg"><input name="p" type="password" id="p" value="<%=(Recordset1.Fields.Item("emailpwddfgsdfg").Value)%>" size="40">
            </td>
            </tr>
            <tr>
              <td height="25" class="tdbg">&nbsp;</td>
              <td height="25" class="tdbg">请填写贵单位可用的对内对外代表单位的象征性邮件,以便OA系统可以中转发送邮件及密码。</td>
            </tr>
            <tr>
              <td height="25" class="tdbg">&nbsp;</td>
              <td height="25" class="tdbg"><span class="tdbg style1"><span class="style1"><span class="bg"><span class="bg style2"><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff>
                <input name="提交" type=submit style="FONT-SIZE: 12px; HEIGHT: 27px"  value= "保存设置" >
            　 <STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff> </font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG> </font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG>　
            <input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px"   onClick="javascript:history.go(-1)" value= " 取 消 " >
          </font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG> </font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></FONT></STRONG></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG></span></span></span></span></td>
            </tr>
            <tr>
              <td height="12" colspan="2" class="tdbg"></td>
            </tr>
        </table></td>
      </tr>
    </table>
  </form>
</div>

<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

setmailserver.asp - 源码说明

本页面展示了「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」中的 setmailserver.asp 源码文件，采用 ASP 编程语言编写，共 135 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与OA系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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