<%if strAction="edit" then%>

编辑用户
用户名	<%=memberQuery("mUser")%>
组别	<%while not groupQuery.eof%> <%if groupQuery("gId")=memberQuery("mGroupId") then%> " selected="selected"><%=groupQuery("gTitle")%> <%else%> "><%=groupQuery("gTitle")%> <%end if%> <%groupQuery.MoveNext%> <%wend%>
Email	" />
联系方式	" />
家庭住址	" />

<%else%>

按组别查看: 所有用户 <%while not groupQuery.eof%> "<%if groupQuery("gId")=gId then Response.Write " selected=""selected"""%>><%=groupQuery("gTitle")%> <%groupQuery.MoveNext%> <%wend%>

<%while not memberQuery.eof%> <%memberQuery.MoveNext%> <%wend%>

管理用户
<%=pagesNav%>
	用户名	组别	注册时间	邮件	联系方式	家庭住址	编辑	删除
" />	<%=memberQuery("mUser")%>	<%=memberQuery("gTitle")%>	<%=memberQuery("mRegTime")%>	<%=memberQuery("mEmail")%>	<%=memberQuery("mPhone")%>	<%=memberQuery("mAddress")%>	">编辑	">删除
<%=pagesNav%>

<%end if%>