⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 create.asp

📁 蓝芒3.0A最新所有功能完整破解版
💻 ASP
📖 第 1 页 / 共 2 页
字号:
              <td height="1">
                <div align="center">
                  <hr size="1">
                </div>
              </td>
            </tr>
            <tr>
              <td height="1">
                <div align="center" style="font-size:9pt;"><font class="s" color="#104A7B"><b>Mailbox [ <%=username & "@" & domain %> ] creation successful.<br><br>
<%
if Application("em_Enable_SignWithDomainUser") = true then
%>
                Your logon ID is: <font class="s" color="#FF3333"><%=username & "@" & domain %></font></font></b></div>
<%
else
%>
                Your logon ID is: <font class="s" color="#FF3333"><%=username %></font></font></b></div>
<%
end if
%>
              </td>
            </tr>
            <tr>
              <td height="1">
                <div align="center">
                  <hr size="1">
                </div>
              </td>
            </tr>
          </table>
          <br>
        </div>
      </td>
    </tr>
    <tr>
      <td height="40" bgcolor="#ffffff">
        <div align="right">
          <input type="submit" value="<< Previous" class="Bsbttn">&nbsp;&nbsp;
          <input type="button" value="Return" onClick="javascript:location.href='default.asp?<%=getGRSN() %>'" class="Bsbttn">
        </div>
      </td>
    </tr>
  </table>
<input type="hidden" name="GRSN" value="<%=createGRSN() %>">
</form>
</div>
</body>
</html>
<%
else
%>
<html>
<head>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>

<SCRIPT LANGUAGE=javascript>
<!--
function isCharsInBag (s, bag)
{
	var i,c;
	for (i = 0; i < s.length; i++)
	{
		c = s.charAt(i);

		if (bag.indexOf(c) == -1)
			return false;
	}

	return true;
}

function ischinese(s)
{
	if (s.charAt(s.length - 1) == '.')
		return true;

	var badChar = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.";

	return !isCharsInBag(s, badChar);
}

function checkpw(){
	if (fc.username.value == "")
	{
		alert("User ID cannot be empty.");
		fc.username.focus();
		return ;
	}
<%
if Application("em_Enable_SignEnglishName") = true then
%>
	if (ischinese(fc.username.value) == true)
	{
		alert("Illegal characters entered for user name.");
		fc.username.focus();
		return ;
	}
<%
end if
%>
	if (fc.pw.value == "")
	{
		alert("Password cannot be empty.");
		fc.pw.focus();
		return ;
	}

	if (fc.pw1.value == "")
	{
		alert("Password cannot be empty.");
		fc.pw1.focus();
		return ;
	}
<%
if Application("em_SignMode") > 1 then
%>
	if (fc.regemail.value == "")
	{
		alert("Invalid email address for the confirmation mail.");
		fc.regemail.focus();
		return ;
	}

	var mailisok = true;
	var sp = fc.regemail.value.indexOf("@");
	if (sp == -1)
		mailisok = false;
	else
	{
		sp = fc.regemail.value.indexOf("@", sp + 1);
		if (sp != -1)
			mailisok = false;
		else
		{
			if (fc.regemail.value.charAt(0) == '@' || fc.regemail.value.charAt(fc.regemail.value.length - 1) == '@')
			{
				mailisok = false;
			}
		}
	}

	if (mailisok == false)
	{
		alert("Invalid email address for the confirmation mail.");
		fc.regemail.focus();
		return ;
	}
<%
end if
%>
	if (fc.pw.value != fc.pw1.value)
		alert("Your password did not match.");
	else
		fc.submit();
}
//-->
</script>
</head>

<body>
<br><br>
<div align="center">
<form name="fc" METHOD="POST">
  <table width="450"  border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" height="254">
    <tr bgcolor="#dbeaf5">
      <td height="28" align="center" nowrap height="28" style="border-left:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>New Member Sign-Up</b></font></td>
    </tr>
    <tr align="center">
      <td><br>
        <div align="center">
          <table width="90%" border="0">
            <tr>
              <td>
                <div align="center"></div>
              </td>
            </tr>
            <tr>
              <td height="1">
                <div align="center">
                  <hr size="1">
                </div>
              </td>
            </tr>
            <tr>
              <td height="1">
                <div style="font-size:9pt;">&nbsp;&nbsp;<%=errstr %></div>
<%
if Application("em_SignMode") > 1 then
%>
<br><div style="font-size:9pt;">&nbsp;&nbsp;<font class=s color="#FF3333">Note</font>: One external email address is used for the application of one mailbox only.</div>
<%
end if
%>
              </td>
            </tr>
            <tr>
              <td height="1">
                <div align="center">
                  <hr size="1">
                </div>
              </td>
            </tr>
            <tr>
              <td height="1">
                <div align="center">
                  <table width="69%" border="0">
                    <tr>
                      <td height="30" style="font-size:9pt;"><font class="s" color="#104A7B"><b>ID:</b></font></td>
                      <td height="30">
                        <input type="text" name="username" value="<%=username %>" maxlength="32" class="textbox">
                      </td>
                    </tr>
                    <tr>
                      <td height="30" style="font-size:9pt;"><font class="s" color="#104A7B"><b>Domain Name:</b></font></td>
                      <td height="30">
<select name="domain" class="drpdwn" size="1">
<%
i = 0
allnum = ei.getcount

do while i < allnum
	domainname = ei.GetDomain(i)

	ei.GetControlMsg domainname, isshow, maxuser, manager

	if isshow = true then
		if domainname <> domain then
			response.write "<option value='" & domainname & "'>" & domainname & "</option>"
		else
			response.write "<option value='" & domainname & "' selected>" & domainname & "</option>"
		end if
	end if

	domainname = NULL
	isshow = NULL
	maxuser = NULL
	manager = NULL

	i = i + 1
loop
%>
</select>
					</td>
                    </tr>
                    <tr>
                      <td height="30" style="font-size:9pt;"><font class="s" color="#104A7B"><b>Password:</b></font></td>
                      <td height="30">
                        <input type="password" name="pw" maxlength="32" class="textbox">
                      </td>
                    </tr>
                    <tr>
                      <td height="30" style="font-size:9pt;"><font class="s" color="#104A7B"><b>Re-type Password:</b></font></td>
                      <td height="30">
                        <input type="password" name="pw1" maxlength="32" class="textbox">
                      </td>
                    </tr>
<%
if Application("em_SignMode") > 1 then
%>
                    <tr>
                      <td height="60" style="font-size:9pt;"><font class="s" color="#104A7B"><b>External email for confirmation:</b></font></td>
                      <td height="60">
                        <input type="text" name="regemail" maxlength="64" class="textbox">
                      </td>
                    </tr>
<%
end if
%>
                  </table>
                </div>
              </td>
            </tr>
          </table><br>
        </div>
      </td>
    </tr>
    <tr>
		<td height="40" bgcolor="#ffffff" align="right">
          <input type="button" value="Submit" onClick="javascript:checkpw();" class="Bsbttn">&nbsp;&nbsp;
          <input type="button" value="Cancel" onClick="javascript:location.href='default.asp?<%=getGRSN() %>'" class="Bsbttn">
		</td>
    </tr>
  </table>
</form>
</div>
</body>
</html>

<%
	Session("Reg") = "next"
end if
%>

<%
set ei = nothing
%>

<%
function getGRSN()
	dim theGRSN
	Randomize
	theGRSN = Int((9999999 * Rnd) + 1)

	getGRSN = "GRSN=" & CStr(theGRSN)
end function


function createGRSN()
	Randomize
	createGRSN = Int((9999999 * Rnd) + 1)
end function


function TimeDelaySeconds(DelaySeconds)
	SecCount = 0
	Sec2 = 0

	while SecCount < DelaySeconds + 1
		Sec1 = Second(Time())
		if Sec1 <> Sec2 then
			Sec2 = Second(Time())
			SecCount = SecCount + 1
		end if
	wend
end function
%>

⌨️ 快捷键说明

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