<%@ Language=VBScript %>
<%Option Explicit
Response.Buffer = True
%>
<!-- #INCLUDE FILE = "inc.asp" -->
<!-- #INCLUDE FILE = "config.asp" -->
<%
Dim sUserID, sPassword1, sPassword2, sNickName, bSex, bShowSex, iGUID
Dim dtBirthday, bShowAge, sEmail, sPortrait

sUserID = Request.Form("UserID")
sPassword1 = Request.Form("Password1")
sPassword2 = Request.Form("Password2")

Dim oChat
Set oChat = Server.CreateObject("LSChat.Users")
oChat.Configure g_SiteName, g_SiteDomain, g_DBString, g_ErrFile, g_ScriptName
Dim rst, rstChatUser
Set rst = oChat.GetUser(sUserID)
If Not rst.EOF Then
	err(sUserID & "已存在，请您选择另外一个用户名。")
Else
	rst.AddNew
		rst("USERID") = sUserID
		rst("PASSWORD") = sPassword1
		rst("FULLNAME") = sUserID
		rst("USERDIR") = sUserDir & "\" & sUserID
		rst("MAILADDR") = sUserID & "@" & sDomain
		rst("MAXSIZE") = iMaxSize
	    rst("MAXMSGS") = iMaxMsgs
		rst("FLAGS") = 128
	    rst("Type") = 0
		rst("NUMTRIES") = 0
	    rst("ATTEMPTTIME") = 0
		rst("NUMTIMESSUSP") = 0
		rst("LASTLOGIN") = 0
		rst("SPNDUSRACCT") = 0
		rst("ICALENBL") = 0
		rst("SPELLENBL") = -1
		rst("NUMSGSTNS") = 4
		rst("IWDEPTH") = -1
		rst("IWOPTIONS") = 0
		rst("SPELLCHKG") = -1
		rst("PRVWSIZE") = -1
		rst("DEFVIEW") = Null
		rst("TIMEZONE") = Null
		rst("STRTDAY") = -1
		rst("DEFCALNM") = Null
		rst("ENTRYGRNL") = -1
	    rst("STARTTIME") = -1
		rst("ENDTIME") = -1
		rst("MAXEVNTDISP") = -1
		rst("MAXTSKDISP") = -1
		rst("MAXNOTEDISP") = -1
		rst("MAXDLYRCURCNT") = -1
		rst("MAXWKLYRCURCNT") = -1
		rst("MAXMONRCURCNT") = -1
		rst("MAXYRLYRCURCNT") = -1
		rst("DISPCMPLTDTSKS") = -1
		rst("HOURSCLOCK") = -1
		rst("MAXSRCHRESPPG") = -1
		rst("MAXEVENTTITLELEN") = -1
		rst("MAXTASKTITLELEN") = -1
		rst("CONFIRMONDELETE") = -1
		rst("NUMNOTIFY") = 0
		rst("LASTNOTIFY") = 0
	rst.Update
	iGUID = rst("GUID")
End If

rst.Close
Set rst = Nothing
Set oChat = Nothing
%>

<html>
<head>
<script src="inc.js" language="javascript"></script>
<script>document.write("<title>"+Title+"</title>");</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="common.css">
</head>
<body <%=g_BodyTag%>>
<!-- #INCLUDE File = "top.asp" -->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td align="left">
    恭喜，您已经注册成功，您的GUID为<%=iGUID%>。请<a href="default.asp">返回</a>进入聊天室。
    </td>
  </tr>
</table>
<br>
<!-- #INCLUDE File = "bottom.asp" -->
</body>
</html>
<%Set oLSChat = Nothing%>