<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/User_Setup.ASP -->
<!-- #include file=../../inc/Board_popfun.asp -->
<!-- #include file=inc/BoardMaster_Fun.asp -->
<!-- #include file=../../inc/ubbcode.asp -->
<!-- #include file=../../manage/user/inc/User_fun.ASP -->
<!-- #include file=../../inc/Limit_Fun.asp -->
<!-- #include file=../../inc/Constellation2.asp -->
<%
DEF_BBS_HomeUrl = "../../"
Dim GBL_ID
initDatabase
GBL_CHK_TempStr = ""
CheckisBoardMasterFlag

SiteHead(DEF_SiteNameString & " - 管理员")
GBL_CHK_TempStr=""
Form_ID = Left(Request("Form_ID"),14)
If isNumeric(Form_ID) = 0 Then Form_ID = 0
Form_ID = cCur(Form_ID)
If Form_ID < 0 Then Form_ID = 0

If Form_ID=0 Then
	GBL_CHK_TempStr = GBL_CHK_TempStr & "没有选择要修改的用户<br>" & VbCrLf
End If
UserTopicTopInfo
DisplayUserNavigate("用户资料修改")
If GBL_CHK_Flag=1 Then
	If GBL_CHK_TempStr = "" Then
		If Request.Form("SubmitFlag")="29d98Sasphouseasp8asphnet" Then
			GBL_CHK_TempStr = ""
			checkFormDate

			If GBL_CHK_Flag = 0 Then
				Response.WRite "<p><font color=ff0000 class=RedFont><b>" & GBL_CHK_TempStr & "</b></font>" & VbCrLf
				JoinForm
			Else
				If saveFormData = 1 Then
					displayAccessFull
				Else
					Response.WRite "<p><font color=ff0000 class=RedFont><b>" & GBL_CHK_TempStr & "</b></font>" & VbCrLf
					JoinForm
				End If
			End If
		Else
			GetUserData(Form_ID)
			JoinForm
		End If
	Else%>
		<table width=96%>
		<tr>
			<td>
				<%
				Response.Write "<br><b>" & GBL_CHK_TempStr%>
			</td>
		</tr>
		</table>
	<%End If
Else%>
	<table width=96%>
	<tr>
	<td>
	<%
	If Request("submitflag")="" Then
		Response.Write "<br><b>请先登录</b>"
	Else
		Response.Write "<br><p align=left><font color=ff0000 class=RedFont><b>" & GBL_CHK_TempStr & "</b></font>"
	End If
	DisplayLoginForm
	Response.Write "</p>"%>
	</td>
	</tr>
	</table>
<%End If
UserTopicBottomInfo
closeDataBase
SiteBottom
If GBL_ShowBottomSure = 1 Then Response.Write GBL_SiteBottomString

Function GetUserData(ID)

	Dim Rs
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.Open "Select top 1 * from leadbbs_User where id=" & ID,con,1,1
	GBL_DBNum = GBL_DBNum + 1
	If Rs.Eof Then
		GetUserData = 0
		GBL_CHK_Flag = 0
		Rs.Close
		Set Rs = Nothing
		Exit Function
	End If
	Form_UserName = Rs("UserName")
	Form_Mail = Rs("Mail")
	Form_Address = Rs("Address")
	Form_Sex = Rs("Sex")
	Form_ICQ = Rs("ICQ")
	Form_OICQ = Rs("OICQ")
	Form_Userphoto = Rs("Userphoto")
	Form_Homepage = Rs("Homepage")
	Form_Underwrite = Rs("Underwrite")
	'Form_Password1 = Rs("Pass")
	'Form_Password2 = Form_Password1
	Form_birthday = Rs("birthday")
	If len(Form_birthday)=14 Then
		Form_birthday = RestoreTime(Rs("birthday"))
		Form_bday = day(Form_birthday)
		Form_byear = year(Form_birthday)
		Form_bmonth = month(Form_birthday)
	End If

	REM 特殊数据
	Form_ApplyTime = Rs("ApplyTime")
	Form_IP = Rs("IP")
	Form_UserLevel = Rs("UserLevel")
	Form_Officer = Rs("Officer")
	Form_Points = Rs("Points")
	Form_Sessionid = Rs("Sessionid")
	Form_Online = Rs("Online")
	Form_Prevtime = Rs("Prevtime")
	Form_ID = Rs("ID")
	Form_Login_ip = Rs("Login_ip")
	Form_Login_oknum = Rs("Login_oknum")
	Form_Login_falsenum = Rs("Login_falsenum")
	Form_Login_lastpass = Rs("Login_lastpass")
	Form_Login_RightIP = Rs("Login_RightIP")
	Form_Question = Rs("Question")
	'Form_Answer = Rs("Answer")
	Form_LockIP = Rs("LockIP")
	
	If DEF_AllDefineFace = 1 Then
		Form_FaceUrl = Rs("FaceUrl")
		Form_FaceWidth = Rs("FaceWidth")
		Form_FaceHeight = Rs("FaceHeight")
	End If
	Form_UserLimit = Rs("UserLimit")
	Form_UserTitle = Rs("UserTitle")
	Form_CachetValue = Rs("CachetValue")
	Form_CharmPoint = Rs("CharmPoint")
	If Form_CachetValue > 127 Then Form_CachetValue = 127-Form_CachetValue
	Rs.Close
	Set Rs = Nothing
	GetUserData = 1
	GBL_CHK_Flag = 1

End Function

Function JoinForm%>
<head>
	<STYLE type=text/css>
		.input
		{
			FONT-FAMILY: 宋体;
			border-left:0px;
			border-right:0px;
			border-top:0px;
			border-bottom:1px groove #0055ff;
			width:240px;
			font-size:9pt
		}
		.inputs
		{
			FONT-FAMILY: 宋体;
			border-left:0px;
			border-right:0px;
			border-top:0px;
			border-bottom:1px groove #0055ff;
			width:40px;
			font-size:9pt
		}
		.inputss
		{
			FONT-FAMILY: 宋体;
			border-left:0px;
			border-right:0px;
			border-top:0px;
			border-bottom:1px groove #0055ff;
			width:20px;
			font-size:9pt
		}
	</STYLE>
	<script LANGUAGE="JavaScript" TYPE="text/javascript">
		function setface() 
		{
			window.open('facelist.asp','','width=250,height=450 scrollbars=auto,status=no');
		}
	</script>
	<script language=JavaScript>
	<!--
	ValidationPassed = true;
	function isnum(str)
	{
		rset="";
		for(i=0;i<str.length;i++)
		{
			if(str.charAt(i)>="0" && str.charAt(i)<="9")
			{
			}
			else
			{
				return 0;
			}
		}
		return 1;
	}

	function changeface()
	{
		var temp;
		temp=document.form1.Form_userphoto.value;
		if (temp!="" && isnum(temp)==1 && temp.length==4)
		{
			if (temp > 0 && temp <= <%=DEF_faceMaxNum%>)
			{
				document.faceimg.src='<%=DEF_BBS_HomeUrl%>images/face/'+temp+'.gif';
			}
			else
			{
				alert("错误!此图像代号不存在!");
				document.faceimg.src='<%=DEF_BBS_HomeUrl%>images/null.gif';
				document.form1.Form_userphoto.value='';
				ValidationPassed = false;
			}
		}
		else
		{
			alert("错误!此图像代号不存在!\n图像代号必须是4位数<%if len(Cstr(DEF_faceMaxNum))>4 then Response.Write "或以上"%>,比如 0001 ,最大为<%=DEF_faceMaxNum%>");
			document.faceimg.src='<%=DEF_BBS_HomeUrl%>images/null.gif';
			document.form1.Form_userphoto.value='';
			ValidationPassed = false;
		}
	}

	<%If DEF_AllDefineFace = 1 Then%>
	function changeface2()
	{
		var temp,obj;
		obj=document.form1;
		if(obj.Form_FaceWidth.value!="")
		{
			if (! isnum(obj.Form_FaceWidth.value))
			{
				alert("自定义头像宽度必须是数字！\n");
				obj.Form_FaceWidth.focus();
				return;
			}
			else
			{
				if(obj.Form_FaceWidth.value<20 || obj.Form_FaceWidth.value><%=DEF_AllFaceMaxWidth%>)
				{
					alert("自定义头像宽度必须在20-<%=DEF_AllFaceMaxWidth%>之间！\n");
					obj.Form_FaceWidth.focus();
					return;
				}
			}
		}

		if(obj.Form_FaceHeight.value!="")
		{
			if (! isnum(obj.Form_FaceHeight.value))
			{
				alert("自定义头像高度必须是数字！\n");
				obj.Form_FaceHeight.focus();
				return;
			}
			else
			{
				if(obj.Form_FaceHeight.value<20 || obj.Form_FaceHeight.value><%=DEF_AllFaceMaxWidth*2%>)
				{
					alert("自定义头像高度必须在20-<%=DEF_AllFaceMaxWidth*2%>之间！\n");
					obj.Form_FaceHeight.focus();
					return;
				}
			}
		}

		temp=document.form1.Form_FaceUrl.value;
		if (temp!="")
		{
			document.faceimg.src=temp;
			document.faceimg.width=obj.Form_FaceWidth.value;
			document.faceimg.height=obj.Form_FaceHeight.value;
		}
	}
	<%End If%>
	function form_onsubmit(obj)
	{
		if(obj.Form_username.value=="")
		{
			alert("请输入你的用户名!\n");
			ValidationPassed = false;
			obj.Form_username.focus();
			return;
		}
		
		if(obj.Form_username.value.length<1)
		{
			alert("用户名长度至少需要1个字符!\n");
			ValidationPassed = false;
			obj.Form_username.focus();
			return;
		}

		//if(obj.Form_password1.value=="")
		//{
		//	alert("请输入新的密码!\n");
		//	ValidationPassed = false;
		//	obj.Form_password1.focus();
		//	return;
		//}

		//if(obj.Form_password2.value=="")
		//{
		//	alert("请输入你的验证密码！\n");
		//	ValidationPassed = false;
		//	obj.Form_password2.focus();
		//	return;
		//}

		if(obj.Form_password1.value!=obj.Form_password2.value)
		{
			alert("你的两次密码输入不相同！\n");
			ValidationPassed = false;
			obj.Form_password1.focus();
			return;
		}

		if(obj.Form_icq.value!="")
		{
			if (! isnum(obj.Form_icq.value))
			{
				alert("喂,你填入了ICQ框中填入了东西,但你的ICQ号码怎么不是数字！\n");
				ValidationPassed = false;
				obj.Form_icq.focus();
				return;
			}
		}

		if(obj.Form_oicq.value!="")
		{
			if (! isnum(obj.Form_oicq.value))
			{
				alert("喂,你填入了OICQ框中填入了东西,但你的OICQ号码怎么不是数字?\n");
				ValidationPassed = false;
				obj.Form_oicq.focus();
				return;
			}
		}

		if(obj.Form_byear.value!="")
		{
			if (! isnum(obj.Form_byear.value))
			{
				alert("喂,你填入了你的出生年,但你的年份怎么不是数字！\n");
				ValidationPassed = false;
				obj.Form_byear.focus();
				return;
			}
		}

		if(obj.Form_bmonth.value!="")
		{
			if (! isnum(obj.Form_bmonth.value))
			{
				alert("喂,你填入了你的出生月,但你的月份怎么不是数字！\n");
				ValidationPassed = false;
				obj.Form_bmonth.focus();
				return;
			}
		}

		if(obj.Form_bday.value!="")
		{
			if (! isnum(obj.Form_bday.value))
			{
				alert("喂,你填入了你的出生日,但你的出生日怎么不是数字！\n");
				ValidationPassed = false;
				obj.Form_bday.focus();
				return;
			}
		}

		if(obj.Form_userphoto.value!="")
		{
			if (! isnum(obj.Form_bday.value))
			{
				alert("用户图像,只能是001-318之间的数字！\n");
				ValidationPassed = false;
				obj.Form_bday.focus();
				return;
			}
		}
		
		if(obj.Form_Underwrite.value.length>255)
		{
			alert("用户签名内容要小于255个字符!\n");
			ValidationPassed = false;
			obj.Form_Underwrite.focus();
			return;
		}
		//其它资料
		

		if(obj.Form_ApplyTime.value=="")
		{
			alert("申请时间可不能忘了呀!\n");
			ValidationPassed = false;
			obj.Form_ApplyTime.focus();
			return;
		}		

		if(obj.Form_ApplyTime.value!="")
		{
			if (! isnum(obj.Form_ApplyTime.value))
			{
				alert("喂,您填入了申请时间,申请时间需要是数字的噢！\n");
				ValidationPassed = false;
				obj.Form_ApplyTime.focus();
				return;
			}
			if (obj.Form_ApplyTime.value.length!=14)
			{
				alert("申请时间必须是14位的噢！\n");
				ValidationPassed = false;
				obj.Form_ApplyTime.focus();
				return;
			}
		}
		
		if(obj.Form_Online.value=="")
		{
			alert("在线状态可不能忘了呀!\n");
			ValidationPassed = false;
			obj.Form_Online.focus();
			return;
		}
		if (! isnum(obj.Form_Online.value))
		{
			alert("在线状态必须是正整数。\n");
			ValidationPassed = false;
			obj.Form_Online.focus();
			return;
		}
		if(obj.Form_Prevtime.value=="")
		{
			alert("最后登录时间可不能忘了呀!\n");
			ValidationPassed = false;
			obj.Form_Prevtime.focus();
			return;
		}		

		if(obj.Form_Prevtime.value!="")
		{
			if (! isnum(obj.Form_Prevtime.value))
			{
				alert("喂,您填入了最后登录时间,最后登录时间需要是数字的噢！\n");
				ValidationPassed = false;
				obj.Form_Prevtime.focus();
				return;
			}
			if (obj.Form_Prevtime.value.length!=14)
			{
				alert("最后登录时间必须是14位的噢！\n");
				ValidationPassed = false;
				obj.Form_Prevtime.focus();
				return;
			}
		}
		
		if(obj.Form_UserLevel.value=="")
		{
			alert("用户等级可不能忘了呀!\n");
			ValidationPassed = false;
			obj.Form_UserLevel.focus();
			return;
		}
		if (! isnum(obj.Form_UserLevel.value))
		{
			alert("用户等级必须是正整数。\n");
			ValidationPassed = false;
			obj.Form_UserLevel.focus();
			return;
		}
		if (obj.Form_UserLevel.value><%=DEF_UserLevelNum%>||obj.Form_UserLevel.value<0)
		{
			alert("用户等级值必须是大等于0并且小于<%=DEF_UserLevelNum%>。\n");
			ValidationPassed = false;
			obj.Form_UserLevel.focus();
			return;
		}

		if(obj.Form_Points.value=="")
		{
			alert("用户积分可不能忘了呀!\n");
			ValidationPassed = false;
			obj.Form_Points.focus();
			return;
		}
		if (! isnum(obj.Form_Points.value))
		{
			alert("用户积分必须是正整数。\n");
			ValidationPassed = false;
			obj.Form_Points.focus();
			return;
		}
		
		if(obj.Form_Officer.value=="")
		{
			alert("荣誉称号可不能忘了呀!\n");
			ValidationPassed = false;
			obj.Form_Officer.focus();
			return;
		}

		if (! isnum(obj.Form_Login_oknum.value))
		{
			alert("成功登次必须是正整数。\n");
			ValidationPassed = false;
			obj.Form_Login_oknum.focus();
			return;
		}
		if (! isnum(obj.Form_Login_falsenum.value))
		{
			alert("持败登次必须是正整数。\n");
			ValidationPassed = false;
			obj.Form_Login_falsenum.focus();
			return;
		}
		
		<%If DEF_AllDefineFace = 1 Then%>
		if(obj.Form_FaceWidth.value!="")
		{
			if (! isnum(obj.Form_FaceWidth.value))
			{
				alert("自定义头像宽度必须是数字！\n");
				ValidationPassed = false;
				obj.Form_FaceWidth.focus();
				return;
			}
			else
			{
				if(obj.Form_FaceWidth.value<20 || obj.Form_FaceWidth.value><%=DEF_AllFaceMaxWidth%>)
				{
					alert("自定义头像宽度必须在20-<%=DEF_AllFaceMaxWidth%>之间！\n");
					ValidationPassed = false;
					obj.Form_FaceWidth.focus();
					return;
				}
			}
		}

		if(obj.Form_FaceHeight.value!="")
		{
			if (! isnum(obj.Form_FaceHeight.value))
			{
				alert("自定义头像高度必须是数字！\n");
				ValidationPassed = false;
				obj.Form_FaceHeight.focus();
				return;
			}
			else
			{
				if(obj.Form_FaceHeight.value<20 || obj.Form_FaceHeight.value><%=DEF_AllFaceMaxWidth*2%>)
				{
					alert("自定义头像高度必须在20-<%=DEF_AllFaceMaxWidth%>之间！\n");
					ValidationPassed = false;
					obj.Form_FaceHeight.focus();
					return;
				}
			}
		}<%End if%>
		ValidationPassed = true;
		return true;
	}
	-->
	</script>
</head>

<FORM action=UserModify.asp method=post name=form1 onSubmit="return ValidationPassed">
	<p align=left><b>用户资料修改</b><br>
	<br>
	</p>
	<TABLE border=0 align="left" cellpadding="0" cellspacing="0">
	<TR align=middle>
		<TD colspan="2">
			<TABLE border=0 class=font width="100%" cellpadding="0" cellspacing="0">
			<TR>
				<TD height=1 bgcolor="#ececff" class=TBBG1><img src="<%=DEF_BBS_HomeUrl%>images/null.GIF" height=1></TD>
				<TD height=1 bgcolor="#ececff" class=TBBG1><img src="<%=DEF_BBS_HomeUrl%>images/null.GIF" height=1></TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>*用户名称： 
				</TD>
				<TD height="25">
					<p>
					<INPUT maxLength=20 name="Form_username" size=36 class=fminpt Value="<% If Form_username<>"" Then Response.Write Server.HtmlEncode(Form_Username)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>&nbsp;新的密码： 
				</TD>
				<TD height="25">
					<input name=SubmitFlag type=hidden value="29d98Sasphouseasp8asphnet">
					<input name=Form_ID type=hidden value="<%=htmlencode(Form_ID)%>">
					<INPUT maxLength=20 name="Form_password1" size=36 class=fminpt type=password Value="<% If Form_password1<>"" Then Response.Write Server.HtmlEncode(Form_password1)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>&nbsp;验证密码： 
				</TD>
				<TD height="25">
					<input maxlength=20 name="Form_password2" size=36 class=fminpt type=password Value="<% If Form_password2<>"" Then Response.Write Server.HtmlEncode(Form_password2)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>*密码提示： 
				</TD>
				<TD height="25">
					<INPUT maxLength=20 name=Form_Question class=fminpt size=36 Value="<% If Form_Question<>"" Then Response.Write Server.HtmlEncode(Form_Question)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>&nbsp;提示答案：
				</TD>
				<TD height="25">
					<input maxlength=20 name=Form_Answer class=fminpt size=36 Value="<% If Form_Answer<>"" Then Response.Write Server.HtmlEncode(Form_Answer)%>"> 不改可以不填写
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>ＩＰ锁定：
				</TD>
				<TD height="25">
					<input maxlength=15 name=Form_LockIP class=fminpt size=36 Value="<% If Form_LockIP<>"" Then Response.Write Server.HtmlEncode(Form_LockIP)%>"> 仅允许输入一个IP地址
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>电子邮件： 
				</TD>
				<TD height="25">
					<INPUT maxLength=60 name=Form_mail size=36 class=fminpt Value="<% If Form_mail<>"" Then Response.Write Server.HtmlEncode(Form_mail)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>主页地址：
				</TD>
				<TD height="25">
					<input maxlength=250 name=Form_homepage size=36 class=fminpt Value="<% If Form_homepage<>"" Then Response.Write Server.HtmlEncode(Form_homepage)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>ICQ 号码：
				</TD>
				<TD height="25">
					<input maxlength=10 name=Form_icq size=36 class=fminpt Value="<% If Form_icq<>"" Then Response.Write Server.HtmlEncode(Form_icq)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>OICQ号码：
				</TD>
				<TD height="25">
					<input maxlength=10 name=Form_oicq size=36 class=fminpt Value="<% If Form_oicq<>"" Then Response.Write Server.HtmlEncode(Form_oicq)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>你的地址：
				</TD>
				<TD height="25">
					<input maxlength=150 name=Form_address size=36 class=fminpt Value="<% If Form_address<>"" Then Response.Write Server.HtmlEncode(Form_address)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户头衔：
				</TD>
				<TD height="25">
					<input maxlength=14 name=Form_UserTitle size=36 class=fminpt Value="<% If Form_UserTitle<>"" Then Response.Write Server.HtmlEncode(Form_UserTitle)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>你的性别：
				</TD>
				<TD height="25">
					<select name="Form_sex" class=l>
						<option value="密">保密</option>
						<option value="男" <% If Form_sex = "男" Then Response.Write "selected"%>>男</option>
						<option value="女" <% If Form_sex = "女" Then Response.Write "selected"%>>女</option>
					</select>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户头像：
				</TD>
				<TD height="25">
					<input onchange="javascript:changeface();" maxlength=4 name=Form_userphoto size=6 class=fminpt Value="<% If Form_userphoto<>"" Then Response.Write Server.HtmlEncode(string(4-len(cstr(Form_userphoto)),"0")&Form_userphoto)%>">
					<span style='cursor:hand' title='查看头像代号' onclick="setface();">查看头像代号</span>
					<%If DEF_AllDefineFace = 0 or Form_FaceUrl & "" = "" Then%>
						<%If Form_userphoto<>"" and isNumeric(Form_userphoto) Then%><img name=faceimg id=faceimg src=<%=DEF_BBS_HomeUrl%>images/face/<%=string(4-len(cstr(Form_userphoto)),"0")&Form_userphoto%>.gif align=absmiddle width=62 height=62><%Else%><img name=faceimg id=faceimg src=<%=DEF_BBS_HomeUrl%>images/null.gif align=absmiddle><%End If%>
					<%Else%>
						<img name=faceimg id=faceimg src="<%
						If Left(Lcase(Form_FaceUrl),5) <> "http:" Then Response.Write "../"
						Response.Write htmlencode(Form_FaceUrl)%>" align=absmiddle width=<%=Form_FaceWidth%> height=<%=Form_FaceHeight%>>
					<%End If%>
				</TD>
			</TR><%If DEF_AllDefineFace = 1 Then%>
			<TR>
				<TD height="25" align=center>
					<p>自定头像：
				</TD>
				<TD height="25">
					<input onchange="javascript:changeface2();" maxlength=250 name=Form_FaceUrl size=26 class=fminpt Value="<%=HtmlEncode(Form_FaceUrl)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>头像大小：
				</TD>
				<TD height="25">
					自定头像宽: <input onchange="javascript:changeface2();" maxlength=<%=len(DEF_AllFaceMaxWidth)%> name=Form_FaceWidth size=3 class=fminpt Value="<%=HtmlEncode(Form_FaceWidth)%>">(20-<%=DEF_AllFaceMaxWidth%>)
					高: <input onchange="javascript:changeface2();" maxlength=<%=len(DEF_AllFaceMaxWidth*2)%> name=Form_FaceHeight size=3 class=fminpt Value="<%=HtmlEncode(Form_FaceHeight)%>">(20-<%=DEF_AllFaceMaxWidth%>)
				</TD>
			</TR><%End If%>
			<TR>
				<TD height="25" align=center>
					<p>你的生日： 
				</TD>
				<TD height="25" align="left">
					<p>
					<input maxlength=4 name=Form_byear size=4 class=fminpt Value="<% If Form_byear<>"" Then
						Response.Write Server.HtmlEncode(Form_byear)
					Else
						Response.Write "19"
					End If%>"> 年 
					<input maxlength=2 name=Form_bmonth size=2 class=fminpt Value="<% If Form_bmonth<>"" Then Response.Write Server.HtmlEncode(Form_bmonth)%>">
					月 <input maxlength=2 name=Form_bday size=2 class=fminpt Value="<% If Form_bday<>"" Then Response.Write Server.HtmlEncode(Form_bday)%>">
					日</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>签名-UBB：
				</TD>
				<TD height="25">
					<textarea name=Form_Underwrite rows=5 cols=36 class=fmtxtra><%If Form_Underwrite <> "" Then Response.Write VbCrLf & htmlEncode(Form_Underwrite)%></textarea>
				</TD>
			</TR>
			<tr>
				<td colspan=2 bgcolor=F7F7F7 align=center height=25 class=TBfour>
					:::::::::::特殊资料:::::::::::</td>
			</tr>
			<TR>
				<TD height="25" align=center>
					<p>申请时间：
				</TD>
				<TD height="25">
					<input maxlength=14 name=Form_ApplyTime size=14 class=fminpt Value="<% If Form_ApplyTime<>"" Then Response.Write Server.HtmlEncode(Form_ApplyTime)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>SessionID 
				</TD>
				<TD height="25">
					<input maxlength=14 name=Form_Sessionid size=14 class=fminpt Value="<% If Form_Sessionid<>"" Then Response.Write Server.HtmlEncode(Form_Sessionid)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>在线状态：
				</TD>
				<TD height="25">
					<input maxlength=8 name=Form_Online size=8 class=fminpt Value="<% If Form_Online<>"" Then Response.Write Server.HtmlEncode(Form_Online)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>最后登录：
				</TD>
				<TD height="25">
					<input maxlength=14 name=Form_Prevtime size=14 class=fminpt Value="<% If Form_Prevtime<>"" Then Response.Write Server.HtmlEncode(Form_Prevtime)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户等级：
				</TD>
				<TD height="25">
					<input maxlength=8 name=Form_UserLevel size=8 class=fminpt Value="<% If Form_UserLevel<>"" Then Response.Write Server.HtmlEncode(Form_UserLevel)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户IP址：
				</TD>
				<TD height="25">
					<input maxlength=50 name=Form_IP size=36 class=fminpt Value="<% If Form_UserLevel<>"" Then Response.Write HtmlEncode(Form_IP)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户积分：
				</TD>
				<TD height="25">
					<input maxlength=14 name=Form_Points size=14 class=fminpt Value="<% If Form_Points<>"" Then Response.Write HtmlEncode(Form_Points)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户威望：
				</TD>
				<TD height="25">
					<input maxlength=4 name=Form_CachetValue size=14 class=fminpt Value="<%If Form_CachetValue<>"" Then Response.Write HtmlEncode(Form_CachetValue)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户魅力：
				</TD>
				<TD height="25">
					<input maxlength=14 name=Form_CharmPoint size=14 class=fminpt Value="<%If Form_CharmPoint<>"" Then Response.Write HtmlEncode(Form_CharmPoint)%>">
				</TD>
			</TR>			
			<TR>
				<TD height="25" align=center>
					<p>荣誉称号：</span>
				</TD>
				<TD height="25">
					<input maxlength=255 name=Form_Officer size=36 class=fminpt Value="<% If Form_Officer<>"" Then Response.Write HtmlEncode(Form_Officer)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>最后IP址：
				</TD>
				<TD height="25">
					<input maxlength=50 name=Form_Login_ip size=36 class=fminpt Value="<% If Form_Login_ip<>"" Then Response.Write HtmlEncode(Form_Login_ip)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p title=成功登录进论坛的次数>成功登次：
				</TD>
				<TD height="25">
					<input maxlength=17 name=Form_Login_oknum size=36 class=fminpt Value="<% If Form_Login_oknum<>"" Then Response.Write HtmlEncode(Form_Login_oknum)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p title=持续登录失败的次数>持败登次：
				</TD>
				<TD height="25">
					<input maxlength=17 name=Form_Login_falsenum size=36 class=fminpt Value="<% If Form_Login_falsenum<>"" Then Response.Write HtmlEncode(Form_Login_falsenum)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p title=最后一次登录使用的密码，不管正确与否>末用密码：
				</TD>
				<TD height="25">
					<input maxlength=20 type=password name=Form_Login_lastpass size=36 class=fminpt Value="<% If Form_Login_lastpass<>"" Then Response.Write HtmlEncode(Form_Login_lastpass)%>">
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p title=最后一次成功登录进论坛所登用的ＩＰ地址>正登末IP：
				</TD>
				<TD height="25">
					<input maxlength=50 name=Form_Login_RightIP size=36 class=fminpt Value="<% If Form_Login_RightIP<>"" Then Response.Write HtmlEncode(Form_Login_RightIP)%>">
				</TD>
			</TR>
			<tr>
				<td bgcolor=F7F7F7 align=center height=25 class=TBBG1>
					用户权限：</td>
				<td><%
				Dim TempN
	for TempN = 0 to LimitUserStringDataNum%>
			<input type="checkbox" class=fmchkbox name="Limit<%=TempN+1%>" value="1"<%If GetBinarybit(Form_UserLimit,TempN+1) = 1 Then
				Response.Write " checked>"
			Else
				Response.Write ">"
			End If%><%=LimitUserStringData(tempN)%><br>
			<%Next%></td>
			</tr>
			</TABLE>
		</TD>
	</TR>
	<TR>
		<TD>&nbsp;</TD>
		<TD height="30" align="center">
			<input name=submit type=submit value=" 修 改 " onclick="form_onsubmit(this.form)" class=fmbtn>
			<input name=b1 type=reset value=" 重 写 " class=fmbtn>
		</TD>
	</TR>
	<TR>
		<TD colspan="2" height=1 bgcolor="ececff" class=TBBG1><img src="<%=DEF_BBS_HomeUrl%>images/null.GIF" height=1></TD>
	</TR>
	<TR>
		<TD COLSPAN="2">
			注意：特殊权限，只有拥有总版主权限的会员才有作用，包括取消所有总固，<br>
			&nbsp; &nbsp; &nbsp; 屏蔽某个会员IP地址，屏蔽会员发言等等．<br>
			注意：禁止删除帖子 禁止精华帖子 禁止转移帖子 删除上传附件，仅对论坛版主或总版主有效<br>
			注意：论坛版主一项最好不要作更改，由版面修改时自动判断产生<br>
			注意：禁止修改个人资料和帖子内容，任何会员皆有效，包括修改它人的帖子及自我资料<br>
			<%DisplayOfficerList
			DisplayLevelList%>
		</TD>
	</TR>
	</TABLE>
</FORM>
<%
End Function

Function displayAccessFull%>
	<p align=center>修改成功，资料如下：<br>
	<br>
	</p>
	<TABLE border=0 align="center" cellpadding="0" cellspacing="0">
	<TR align=middle>
		<TD colspan="2">
			<TABLE border=0 class=font width="100%" cellpadding="0" cellspacing="0">
			<TR>
				<TD height=1 bgcolor="#ececff" class=TBBG1><img src="<%=DEF_BBS_HomeUrl%>images/null.GIF" width=1 height=1></TD>
				<TD height=1 bgcolor="#ececff" class=TBBG1><img src="<%=DEF_BBS_HomeUrl%>images/null.GIF" width=1 height=1></TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>*用户名称： 
				</TD>
				<TD height="25">
					<%=Server.HtmlEncode(Form_Username)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>*新的密码： 
				</TD>
				<TD height="25">
					********
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>电子邮件： 
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_mail)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>主页地址：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_homepage)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>ICQ 号码：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_icq)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>OICQ号码：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_oicq)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>你的地址：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_address)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户头衔：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_UserTitle)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>你的性别：
				</TD>
				<TD height="25">
					<%=Form_sex%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户头像：
				</TD>
				<TD height="25">
					<%If DEF_AllDefineFace = 0 or Form_FaceUrl = "" Then%>
					<img src=<%=DEF_BBS_HomeUrl%>images/face/<%=string(4-len(cstr(Form_userphoto)),"0")&Form_userphoto%>.gif align=absmiddle width=62 height=62>
					<%Else%>
						<img src="<%If Left(Lcase(Form_FaceUrl),5) <> "http:" Then Response.Write "../"
						Response.Write htmlencode(Form_FaceUrl)%>" align=absmiddle width=<%=Form_FaceWidth%> height=<%=Form_FaceHeight%>>
					<%End If%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>你的生日：
				</TD>
				<TD height="25" align="left">
					<%If len(Form_birthday)=14 Then Response.Write RestoreTime(Form_birthday)%></TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>签名-UBB：
				</TD>
				<TD height="25">
					<table style="table-layout:fixed; word-break:break-all" width=332 border="0" cellspacing="0" cellpadding="0"><tr><td>
					<%=Form_PrintUnderwrite%></td></tr></table></TD>
				</TD>
			</TR>
			<tr>
				<td colspan=2 bgcolor=F7F7F7 align=center height=25 class=TBfour>
					:::::::::::特殊资料:::::::::::</td>
			</tr>
			<TR>
				<TD height="25" align=center>
					<p>申请时间：
				</TD>
				<TD height="25">
					<%If len(Form_ApplyTime)=14 Then Response.Write RestoreTime(Form_ApplyTime)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>SessionID 
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_Sessionid)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>在线状态：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_Online)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>最后登录：
				</TD>
				<TD height="25">
					<%If len(Form_birthday)=14 Then Response.Write RestoreTime(Form_Prevtime)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户等级：
				</TD>
				<TD height="25">
					<%=Form_UserLevel%>: <%=DEF_UserLevelString(Form_UserLevel)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户IP址：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_IP)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户积分：
				</TD>
				<TD height="25">
					<%=HtmlEncode(Form_Points)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户威望：
				</TD>
				<TD height="25">
					<%
					If Form_CachetValue > 127 Then Form_CachetValue = 127-Form_CachetValue
					Response.Write HtmlEncode(Form_CachetValue)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>用户魅力：
				</TD>
				<TD height="25">
					<%
					Response.Write HtmlEncode(Form_CharmPoint)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>荣誉称号：
				</TD>
				<TD height="25">
					<%=Form_Officer%>: <%=DisplayOfficerString(Form_Officer)%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>最后IP址：
				</TD>
				<TD height="25">
					<%=Form_Login_ip%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>成功登次：
				</TD>
				<TD height="25">
					<%=Form_Login_oknum%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>持败登次：
				</TD>
				<TD height="25">
					<%=Form_Login_falsenum%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>末用密码：
				</TD>
				<TD height="25">
					<%=Form_Login_lastpass%>
				</TD>
			</TR>
			<TR>
				<TD height="25" align=center>
					<p>正登未IP：
				</TD>
				<TD height="25">
					<%=Form_Login_RightIP%>
				</TD>
			</TR>
			</TABLE>
		</TD>
	</TR>
	<TR>
		<TD colspan="2" height=1 bgcolor="ececff" class=TBBG1><img src="<%=DEF_BBS_HomeUrl%>images/null.GIF" width=1 height=1></TD>
	</TR>
	</TABLE>
<%End Function

Function saveFormData

	Dim Rs
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.Open "Select top 1 * from leadbbs_User where id=" & Form_ID,con,1,3
	GBL_DBNum = GBL_DBNum + 1
	If Rs.Eof Then
		Rs.Close
		Set Rs = Nothing
		GBL_CHK_TempStr = GBL_CHK_TempStr & "发生意外错误<br>" & VbCrLf
		saveFormData = 0
		Exit Function
	End If
	Rs("UserName") = Form_UserName
	Rs("Mail") = Form_Mail
	Rs("Address") = Form_Address
	Rs("Sex") = Form_Sex
	If Form_ICQ = "" Then
		Rs("ICQ") = Null
	Else
		Rs("ICQ") = Form_ICQ
	End If
	If Form_OICQ = "" Then
		Rs("OICQ") = Null
	Else
		Rs("OICQ") = Form_OICQ
	End If
	Rs("Userphoto") = Form_Userphoto
	Rs("Homepage") = Form_Homepage
	Rs("Underwrite") = Form_Underwrite
	Rs("PrintUnderwrite") = Form_PrintUnderwrite
	If Form_Password1 <> "" Then Rs("Pass") = MD5(Form_Password1)
	If Len(Form_birthday)=14 Then
		Rs("birthday") = Form_birthday
		Dim Temp
		temp = cCur(Left(Form_birthday,4))
		If temp > 1950 and temp < 2050 Then
			Rs("NongLiBirth") = GetTimeValue(ConvertToNongLi(RestoreTime(Form_birthday)))
		Else
			'其它出生年作了略处理
			Rs("NongLiBirth") = GetTimeValue(DateAdd("m",-1,RestoreTime(Form_birthday)))
		End If
	Else
		Rs("birthday") = Null
	End If

	REM 特殊数据
	Rs("ApplyTime") = Form_ApplyTime
	Rs("IP") = Form_IP
	Rs("UserLevel") = Form_UserLevel
	Rs("Officer") = Form_Officer
	Rs("Points") = Form_Points
	Rs("Sessionid") = Form_Sessionid
	Rs("Online") = Form_Online
	Rs("Prevtime") = Form_Prevtime
	If Form_Answer <> "" Then Rs("Answer") = MD5(Form_Answer)
	Rs("Question") = Form_Question
	
	Rs("Login_ip") = Form_Login_ip
	Rs("Login_oknum") = Form_Login_oknum
	Rs("Login_falsenum") = Form_Login_falsenum
	Rs("Login_lastpass") = Form_Login_lastpass
	Rs("Login_RightIP") = Form_Login_RightIP

	If DEF_AllDefineFace = 1 Then
		Rs("FaceUrl") = Form_FaceUrl
		Rs("FaceWidth") = Form_FaceWidth
		Rs("FaceHeight") = Form_FaceHeight
	End If

	Rs("UserLimit") = Form_UserLimit
	Rs("UserTitle") = Form_UserTitle
	If Form_CachetValue < 0 Then Form_CachetValue = 127-Form_CachetValue
	Rs("CachetValue") = Form_CachetValue
	Rs("CharmPoint") = Form_CharmPoint
	Rs("LockIP") = Form_LockIP

	Rs.Update
	Rs.Close
	Set Rs = Nothing
	saveFormData = 1

	UpdateSpecialUserTable Form_UserLimit,Form_ID,Form_UserName

End Function

Function UpdateSpecialUserTable(UserLimit,UserID,UserName)

	Dim Rs
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Dim Flag
	
	Rem 认证会员
	Flag = GetBinarybit(UserLimit,1)
	If Flag = 0 Then
		Con.Execute("Delete from leadbbs_SpecialUser where Assort=6 and UserID=" & UserID)
		GBL_DBNum = GBL_DBNum + 1
	Else
		Rs.Open "Select top 1 ID from leadbbs_SpecialUser Where Assort=6 and UserID=" & UserID,con,1,1
		GBL_DBNum = GBL_DBNum + 1
		If Rs.Eof Then
			Rs.Close
			Con.ExeCute("insert into leadbbs_SpecialUser(UserID,UserName,BoardID,Assort,ndatetime) values(" & UserID & ",'" & Replace(UserName,"'","''") & "',0,6," & GetTimeValue(DEF_Now) & ")")
			GBL_DBNum = GBL_DBNum + 1
		Else
			Rs.Close
		End If
	End If

	Rem 认证会员
	Flag = GetBinarybit(UserLimit,2)
	If Flag = 0 Then
		Con.Execute("Delete from leadbbs_SpecialUser where Assort=0 and UserID=" & UserID)
		GBL_DBNum = GBL_DBNum + 1
	Else
		Rs.Open "Select top 1 ID from leadbbs_SpecialUser Where Assort=0 and UserID=" & UserID,con,1,1
		GBL_DBNum = GBL_DBNum + 1
		If Rs.Eof Then
			Rs.Close
			Con.ExeCute("insert into leadbbs_SpecialUser(UserID,UserName,BoardID,Assort,ndatetime) values(" & UserID & ",'" & Replace(UserName,"'","''") & "',0,0," & GetTimeValue(DEF_Now) & ")")
			GBL_DBNum = GBL_DBNum + 1
		Else
			Rs.Close
		End If
	End If
	
	Rem 版主
	Flag = GetBinarybit(UserLimit,8)
	If Flag = 0 Then
		Con.Execute("Delete from leadbbs_SpecialUser where Assort=1 and UserID=" & UserID)
		GBL_DBNum = GBL_DBNum + 1
	Else
		Rs.Open "Select top 1 ID from leadbbs_SpecialUser Where Assort=2 and UserID=" & UserID,con,1,1
		GBL_DBNum = GBL_DBNum + 1
		If Rs.Eof Then
			Rs.Close
			Con.ExeCute("insert into leadbbs_SpecialUser(UserID,UserName,BoardID,Assort,ndatetime) values(" & UserID & ",'" & Replace(UserName,"'","''") & "',0,2," & GetTimeValue(DEF_Now) & ")")
			GBL_DBNum = GBL_DBNum + 1
		Else
			Rs.Close
		End If
	End If

	Rem 总版主
	Flag = GetBinarybit(UserLimit,10)
	If Flag = 0 Then
		Con.Execute("Delete from leadbbs_SpecialUser where Assort=2 and UserID=" & UserID)
		GBL_DBNum = GBL_DBNum + 1
	Else
		Rs.Open "Select top 1 ID from leadbbs_SpecialUser Where Assort=2 and UserID=" & UserID,con,1,1
		GBL_DBNum = GBL_DBNum + 1
		If Rs.Eof Then
			Rs.Close
			Con.ExeCute("insert into leadbbs_SpecialUser(UserID,UserName,BoardID,Assort,ndatetime) values(" & UserID & ",'" & Replace(UserName,"'","''") & "',0,2," & GetTimeValue(DEF_Now) & ")")
			GBL_DBNum = GBL_DBNum + 1
		Else
			Rs.Close
		End If
	End If
	
	Rem 屏蔽会员
	Flag = GetBinarybit(UserLimit,7)
	If Flag = 0 Then
		Con.Execute("Delete from leadbbs_SpecialUser where Assort=3 and UserID=" & UserID)
		GBL_DBNum = GBL_DBNum + 1
	Else
		Rs.Open "Select top 1 ID from leadbbs_SpecialUser Where Assort=3 and UserID=" & UserID,con,1,1
		GBL_DBNum = GBL_DBNum + 1
		If Rs.Eof Then
			Rs.Close
			Con.ExeCute("insert into leadbbs_SpecialUser(UserID,UserName,BoardID,Assort,ndatetime) values(" & UserID & ",'" & Replace(UserName,"'","''") & "',0,3," & GetTimeValue(DEF_Now) & ")")
			GBL_DBNum = GBL_DBNum + 1
		Else
			Rs.Close
		End If
	End If
	
	Rem 禁言会员
	Flag = GetBinarybit(UserLimit,3)
	If Flag = 0 Then
		Con.Execute("Delete from leadbbs_SpecialUser where Assort=4 and UserID=" & UserID)
		GBL_DBNum = GBL_DBNum + 1
	Else
		Rs.Open "Select top 1 ID from leadbbs_SpecialUser Where Assort=4 and UserID=" & UserID,con,1,1
		GBL_DBNum = GBL_DBNum + 1
		If Rs.Eof Then
			Rs.Close
			Con.ExeCute("insert into leadbbs_SpecialUser(UserID,UserName,BoardID,Assort,ndatetime) values(" & UserID & ",'" & Replace(UserName,"'","''") & "',0,4," & GetTimeValue(DEF_Now) & ")")
			GBL_DBNum = GBL_DBNum + 1
		Else
			Rs.Close
		End If
	End If
	
	Rem 禁止修改会员
	Flag = GetBinarybit(UserLimit,4)
	If Flag = 0 Then
		Con.Execute("Delete from leadbbs_SpecialUser where Assort=5 and UserID=" & UserID)
		GBL_DBNum = GBL_DBNum + 1
	Else
		Rs.Open "Select top 1 ID from leadbbs_SpecialUser Where Assort=5 and UserID=" & UserID,con,1,1
		GBL_DBNum = GBL_DBNum + 1
		If Rs.Eof Then
			Rs.Close
			Con.ExeCute("insert into leadbbs_SpecialUser(UserID,UserName,BoardID,Assort,ndatetime) values(" & UserID & ",'" & Replace(UserName,"'","''") & "',0,5," & GetTimeValue(DEF_Now) & ")")
			GBL_DBNum = GBL_DBNum + 1
		Else
			Rs.Close
		End If
	End If

	Set Rs = Nothing

End Function%>