<%
function errma(errbt,errstr)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>操作反馈</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<br>
<br>
<br>
<table width="360" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FF8C55">
  <tr>
    <td height="25" align="center"><font color="#FFFFFF"><b><%=errbt%></b></font></td>
  </tr>
  <tr>
    <td height="104" bgcolor="#FFFFFF">&nbsp;&nbsp;&nbsp;&nbsp;原因是：<font color="#990000"><%=errstr%></font>&nbsp;&nbsp;<input type="button" value="上一步" onclick="history.go(-1)"></td>
  </tr>
</table>
</body>
</html>
<%
end function

'检查用户名--只能使用小写字母，数字及下划线！
Public Function chkdomain(domain)
        Dim name, i, c
        name = domain
        chkdomain = True
        If Len(name) <= 0 Then
            chkdomain = False
            Exit Function
        End If
        For i = 1 To Len(name)
           c = LCase(Mid(name, i, 1))
            If InStr("abcdefghijklmnopqrstuvwxyz_-", c) <= 0 And Not IsNumeric(c) Then
               chkdomain = False
            Exit Function
           End If
       Next
End Function
%>