<!--#include file="config.asp"-->
<!--#include file="functions.asp"-->
<%
if session("loginstatus")<>"logined" or session("userid")="" or session("grade")="" then
	response.write "<script language='javascript'>"&vbcrlf
	response.write "<!--"&vbcrlf
	response.write "top.window.location.href='index.asp?ntime="&ntime&"';"&vbcrlf
	response.write "//-->"&vbcrlf
	response.write "</script>"&vbcrlf
	response.end
end if
act=request.querystring("act")
keystr=request.querystring("keystr")
if instr(keystr,chr(39))>0 or instr(keystr,chr(34))>0 then
	response.write "<script language='javascript'>"&vbcrlf
	response.write "<!--"&vbcrlf
	response.write "alert('操作失败，用户名或密码不得包含引号!');"&vbcrlf
	response.write "window.close();"&vbcrlf
	response.write "//-->"&vbcrlf
	response.write "</script>"&vbcrlf
	response.end
end if
s_opencmds="	newusers	clicktop	onlinetop	moreinfo	pwd	sex	view	"
if session("grade")>=gradekick then
	s_opencmds=s_opencmds&"kick	"
end if
if session("grade")>=gradeupuser then
	s_opencmds=s_opencmds&"upusergrade	"
end if
if instr(s_opencmds,"	"&act&"	")<=0 then
	response.write "<script language='javascript'>"&vbcrlf
	response.write "<!--"&vbcrlf
	response.write "alert('对不起，你无权执行此操作!');"&vbcrlf
	response.write "window.close();"&vbcrlf
	response.write "//-->"&vbcrlf
	response.write "</script>"&vbcrlf
	response.end
end if
%>
<!--#include file="conn.asp"-->
<%
if act="newusers" and keystr<>"" and isnumeric(keystr) then
	response.write "<html>"&vbcrlf
	response.write "<head>"&vbcrlf
	response.write "<meta http-equiv='Content-Type' content='text/html;charset=gb2312'>"&vbcrlf
	response.write "<title>查看最新加入的 "&keystr&" 位网友的资料</title>"&vbcrlf
	response.write "<script language='javascript'>"&vbcrlf
	response.write "<!--"&vbcrlf
	response.write "self.resizeTo(400,430);"&vbcrlf
	response.write "//-->"&vbcrlf
	response.write "</script>"&vbcrlf
	response.write "<style type='text/css'>"&vbcrlf
	response.write "<!--"&vbcrlf
	response.write "body{margin-top:20px;font-size:12px;background:#f6f6f6 url(images/bgbrick.gif);}"&vbcrlf
	response.write "table{width:300px}"&vbcrlf
	response.write "td{font-size:12px;color:#000090;padding-left:12px;}"&vbcrlf
	response.write "th{font-size:12px;font-weight:600;color:#900000;text-align:center}"&vbcrlf
	response.write "a{color:#000090;text-decoration:none}"&vbcrlf
	response.write "a{color:#000090;text-decoration:none}"&vbcrlf
	response.write "a:hover{color:#ff3333;text-decoration:underline}"&vbcrlf
	response.write ".awhite{color:#ffffff}"&vbcrlf
	response.write ".awhite a{color:#ffffff;text-decoration:none;font-weight:500}"&vbcrlf
	response.write "//-->"&vbcrlf
	response.write "</style>"&vbcrlf
	response.write "</head>"&vbcrlf
	response.write "<body>"&vbcrlf
	response.write "<table border=1 align='center' cellpadding=0 cellspacing=0 style=border-collapse:collapse bordercolor=#111111>"&vbcrlf
	response.write "	<tr>"&vbcrlf
	response.write "		<td align=center colspan=4 class='awhite' style='background:#34aacd url(images/leadtop.gif);height:19px'><a href='index.asp'>"&pagetitle&"</a>--最新注册的"&keystr&"位用户</td>"&vbcrlf
	response.write "	</tr>"&vbcrlf
	response.write "	<tr>"&vbcrlf
	response.write "		<th>呢称</th>"&vbcrlf&"		<th>性别</th>"&vbcrlf&"		<th>注册时间</th>"&vbcrlf
	response.write "	</tr>"&vbcrlf
	keystr=fix(keystr)
	sql="select userid,usersex,regtime from userinfo order by regtime desc"
	rs.open sql,conn,0,1
	i=1
	do while not rs.eof
		response.write "	<tr>"&vbcrlf
		response.write "		<td><a href='"&selfname&"?act=view&keystr="&rs("userid")&"'>"&rs("userid")&"</a></td>"&vbcrlf&"		<td>"&rs("usersex")&"</td>"&vbcrlf&"		<td>"&rs("regtime")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		if i>=keystr then
			exit do
		end if
		i=i+1
		rs.movenext
	loop
	rs.close
	response.write "	<tr>"&vbcrlf
	response.write "		<td align=center colspan=4 class='awhite' style='background:#34aacd url(images/leadbottom.gif);height:19px;'><a href='javascript:void(0)' onclick='window.close()'>关闭本窗口</a></td>"&vbcrlf
	response.write "	</tr>"&vbcrlf
	response.write "</table>"&vbcrlf
	response.write "</body>"&vbcrlf
	response.write "</html>"&vbcrlf
elseif act="clicktop" and keystr<>"" and isnumeric(keystr) then
	response.write "<html>"&vbcrlf
	response.write "<head>"&vbcrlf
	response.write "<meta http-equiv='Content-Type' content='text/html;charset=gb2312'>"&vbcrlf
	response.write "<title>查看人气排行榜前 "&keystr&" 位网友信息</title>"&vbcrlf
	response.write "<script language='javascript'>"&vbcrlf
	response.write "<!--"&vbcrlf
	response.write "self.resizeTo(400,430);"&vbcrlf
	response.write "//-->"&vbcrlf
	response.write "</script>"&vbcrlf
	response.write "<style type='text/css'>"&vbcrlf
	response.write "<!--"&vbcrlf
	response.write "body{margin-top:20px;font-size:12px;background:#f6f6f6 url(images/bgbrick.gif);}"&vbcrlf
	response.write "table{width:300px}"&vbcrlf
	response.write "td{font-size:12px;color:#000090;padding-left:12px;}"&vbcrlf
	response.write "th{font-size:12px;font-weight:600;color:#900000;text-align:center}"&vbcrlf
	response.write "a{color:#000090;text-decoration:none}"&vbcrlf
	response.write "a{color:#000090;text-decoration:none}"&vbcrlf
	response.write "a:hover{color:#ff3333;text-decoration:underline}"&vbcrlf
	response.write ".awhite{color:#ffffff}"&vbcrlf
	response.write ".awhite a{color:#ffffff;text-decoration:none;font-weight:500}"&vbcrlf
	response.write "//-->"&vbcrlf
	response.write "</style>"&vbcrlf
	response.write "</head>"&vbcrlf
	response.write "<body>"&vbcrlf
	response.write "<table border=1 align='center' cellpadding=0 cellspacing=0 style=border-collapse:collapse bordercolor=#111111>"&vbcrlf
	response.write "	<tr>"&vbcrlf
	response.write "		<td align=center colspan=4 class='awhite' style='background:#34aacd url(images/leadtop.gif);height:19px'><a href='index.asp'>"&pagetitle&"</a>--人气排行 <b>TOP"&keystr&"</b></td>"&vbcrlf
	response.write "	</tr>"&vbcrlf
	response.write "	<tr>"&vbcrlf
	response.write "		<th>点击</th>"&vbcrlf&"		<th>呢称</th>"&vbcrlf&"		<th>性别</th>"&vbcrlf&"		<th>注册时间</th>"&vbcrlf
	response.write "	</tr>"&vbcrlf
	keystr=fix(keystr)
	sql="select * from userinfo order by clickcount desc"
	rs.open sql,conn,0,1
	i=1
	do while not rs.eof
		response.write "	<tr>"&vbcrlf
		response.write "		<td>"&rs("clickcount")&"</td>"&vbcrlf&"		<td><a href='"&selfname&"?act=view&keystr="&rs("userid")&"'>"&rs("userid")&"</a></td>"&vbcrlf&"		<td>"&rs("usersex")&"</td>"&vbcrlf&"		<td>"&rs("regtime")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		if i>=keystr then
			exit do
		end if
		i=i+1
		rs.movenext
	loop
	rs.close
	response.write "	<tr>"&vbcrlf
	response.write "		<td align=center colspan=4 class='awhite' style='background:#34aacd url(images/leadbottom.gif);height:19px;'><a href='javascript:void(0)' onclick='window.close()'>关闭本窗口</a></td>"&vbcrlf
	response.write "	</tr>"&vbcrlf
	response.write "</table>"&vbcrlf
	response.write "</body>"&vbcrlf
	response.write "</html>"&vbcrlf
elseif act="onlinetop" and keystr<>"" and isnumeric(keystr) then
	response.write "<html>"&vbcrlf
	response.write "<head>"&vbcrlf
	response.write "<meta http-equiv='Content-Type' content='text/html;charset=gb2312'>"&vbcrlf
	response.write "<title>查看上站总时间排行前 "&keystr&" 位网友信息</title>"&vbcrlf
	response.write "<script language='javascript'>"&vbcrlf
	response.write "<!--"&vbcrlf
	response.write "self.resizeTo(400,430);"&vbcrlf
	response.write "//-->"&vbcrlf
	response.write "</script>"&vbcrlf
	response.write "<style type='text/css'>"&vbcrlf
	response.write "<!--"&vbcrlf
	response.write "body{margin-top:20px;font-size:12px;background:#f6f6f6 url(images/bgbrick.gif);}"&vbcrlf
	response.write "table{width:300px}"&vbcrlf
	response.write "td{font-size:12px;color:#000090;padding-left:6px;}"&vbcrlf
	response.write "th{font-size:12px;font-weight:600;color:#900000;text-align:center}"&vbcrlf
	response.write "a{color:#000090;text-decoration:none}"&vbcrlf
	response.write "a{color:#000090;text-decoration:none}"&vbcrlf
	response.write "a:hover{color:#ff3333;text-decoration:underline}"&vbcrlf
	response.write ".awhite{color:#ffffff}"&vbcrlf
	response.write ".awhite a{color:#ffffff;text-decoration:none;font-weight:500}"&vbcrlf
	response.write "//-->"&vbcrlf
	response.write "</style>"&vbcrlf
	response.write "</head>"&vbcrlf
	response.write "<body>"&vbcrlf
	response.write "<table border=1 align='center' cellpadding=0 cellspacing=0 style=border-collapse:collapse bordercolor=#111111>"&vbcrlf
	response.write "	<tr>"&vbcrlf
	response.write "		<td align=center colspan=4 class='awhite' style='background:#34aacd url(images/leadtop.gif);height:19px'><a href='index.asp'>"&pagetitle&"</a>--总上站时间排行 <b>TOP"&keystr&"</b></td>"&vbcrlf
	response.write "	</tr>"&vbcrlf
	response.write "	<tr>"&vbcrlf
	response.write "		<th>上站累计</th>"&vbcrlf&"		<th>呢称</th>"&vbcrlf&"		<th>性别</th>"&vbcrlf&"		<th>注册时间</th>"&vbcrlf
	response.write "	</tr>"&vbcrlf
	keystr=fix(keystr)
	sql="select * from userinfo order by timecount desc"
	rs.open sql,conn,0,1
	i=1
	do while not rs.eof
		response.write "	<tr>"&vbcrlf
		response.write "		<td>"&FormatNumber(rs("timecount")/60,2,-1)&"小时</td>"&vbcrlf&"		<td><a href='"&selfname&"?act=view&keystr="&rs("userid")&"'>"&rs("userid")&"</a></td>"&vbcrlf&"		<td>"&rs("usersex")&"</td>"&vbcrlf&"		<td>"&rs("regtime")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		if i>=keystr then
			exit do
		end if
		i=i+1
		rs.movenext
	loop
	rs.close
	response.write "	<tr>"&vbcrlf
	response.write "		<td align=center colspan=4 class='awhite' style='background:#34aacd url(images/leadbottom.gif);height:19px;'><a href='javascript:void(0)' onclick='window.close()'>关闭本窗口</a></td>"&vbcrlf
	response.write "	</tr>"&vbcrlf
	response.write "</table>"&vbcrlf
	response.write "</body>"&vbcrlf
	response.write "</html>"&vbcrlf
elseif act="pwd" and trim(keystr)<>"" then
	sql="select password from userinfo where userid='"&session("userid")&"'"
	rs.open sql,conn,0,3
	if rs.bof and rs.eof then
		response.write "<script language='javascript'>"&vbcrlf
		response.write "<!--"&vbcrlf
		response.write "alert('操作失败，请重新登陆后再试!');"&vbcrlf
		response.write "opener.top.window.location.href='loginout.asp?ntime="&ntime&"';"&vbcrlf
		response.write "window.close();"&vbcrlf
		response.write "//-->"&vbcrlf
		response.write "</script>"&vbcrlf
	else
		rs("password")=keystr
		rs.update
		response.write "<script language='javascript'>"&vbcrlf
		response.write "<!--"&vbcrlf
		response.write "alert('更改自己密码成功，请记住你的新密码!');"&vbcrlf
		response.write "window.close();"&vbcrlf
		response.write "//-->"&vbcrlf
		response.write "</script>"&vbcrlf
	end if
	rs.close
elseif act="sex" and (keystr="帅哥" or keystr="靓妹" or keystr="神秘人") then
	sql="select usersex from userinfo where userid='"&session("userid")&"'"
	rs.open sql,conn,0,3
	if rs.bof and rs.eof then
		response.write "<script language='javascript'>"&vbcrlf
		response.write "<!--"&vbcrlf
		response.write "alert('操作失败，请重新登陆后再试!');"&vbcrlf
		response.write "opener.top.window.location.href='loginout.asp?ntime="&ntime&"';"&vbcrlf
		response.write "window.close();"&vbcrlf
		response.write "//-->"&vbcrlf
		response.write "</script>"&vbcrlf
	else
		rs("usersex")=keystr
		rs.update
		response.write "<script language='javascript'>"&vbcrlf
		response.write "<!--"&vbcrlf
		response.write "opener.top.online.window.location.href='online.asp?ntime="&ntime&"';"&vbcrlf
		response.write "alert('更改自己性别成功!');"&vbcrlf
		response.write "window.close();"&vbcrlf
		response.write "//-->"&vbcrlf
		response.write "</script>"&vbcrlf
	end if
	rs.close
elseif act="kick" and session("grade")>=gradekick then
		sql="select * from userinfo where userid='"&keystr&"' and isonline=true"
		rs.open sql,conn,0,3
		if rs.bof and rs.eof then
			response.write "<script language='javascript'>"&vbcrlf
			response.write "<!--"&vbcrlf
			response.write "alert('对不起，用户当前不在线或不存在!');"&vbcrlf
			response.write "window.close();"&vbcrlf
			response.write "//-->"&vbcrlf
			response.write "</script>"&vbcrlf
		
		elseif session("grade")<=rs("grade") then
			response.write "<script language='javascript'>"&vbcrlf
			response.write "<!--"&vbcrlf
			response.write "alert('踢人失败，你的权限不足!');"&vbcrlf
			response.write "window.close();"&vbcrlf
			response.write "//-->"&vbcrlf
			response.write "</script>"&vbcrlf
		else
			rs("isonline")=false
			rs.update
			rs.close
			sql="select * from chatinfo order by puttime asc"
			rs.open sql,conn,0,3
			rs("userid")=""
			rs("sayto")=""
			rs("saycontent")="<span class=emtxt>"&keystr&"</span>被请出了聊天室，欢迎下次再来！"
			rs("puttime")=now()
			rs("ispublic")=true
			rs.update
			response.write "<script language='javascript'>"&vbcrlf
			response.write "<!--"&vbcrlf
			response.write "opener.top.main.window.location.href='main.asp?ntime="&ntime&"';"&vbcrlf
			response.write "opener.top.online.window.location.href='online.asp?ntime="&ntime&"';"&vbcrlf
			response.write "alert('踢人成功!');"&vbcrlf
			response.write "window.close();"&vbcrlf
			response.write "//-->"&vbcrlf
			response.write "</script>"&vbcrlf
		end if
		rs.close
elseif act="view" and trim(keystr)<>"" then
	sql="select * from userinfo where userid='"&trim(keystr)&"'"
	rs.open sql,conn,0,1
	if rs.bof and rs.eof then
		response.write "<script language='javascript'>"&vbcrlf
		response.write "<!--"&vbcrlf
		response.write "alert('查看用户信息失败，你要查看的用户不存在!');"&vbcrlf
		response.write "window.close();"&vbcrlf
		response.write "//-->"&vbcrlf
		response.write "</script>"&vbcrlf
	else
		response.write "<html>"&vbcrlf
		response.write "<head>"&vbcrlf
		response.write "<meta http-equiv='Content-Type' content='text/html;charset=gb2312'>"&vbcrlf
		response.write "<title>查看用户 "&keystr&" 的聊天信息</title>"&vbcrlf
		response.write "<script language='javascript'>"&vbcrlf
		response.write "<!--"&vbcrlf
		response.write "self.resizeTo(400,320);"&vbcrlf
		response.write "//-->"&vbcrlf
		response.write "</script>"&vbcrlf
		response.write "<style type='text/css'>"&vbcrlf
		response.write "<!--"&vbcrlf
		response.write "body{margin-top:20px;font-size:12px;background:#f6f6f6 url(images/bgbrick.gif);}"&vbcrlf
		response.write "table{width:300px}"&vbcrlf
		response.write "td{font-size:12px;color:#900000;padding-left:12px;}"&vbcrlf
		response.write "a{color:#000090;text-decoration:none}"&vbcrlf
		response.write "a{color:#000090;text-decoration:none}"&vbcrlf
		response.write "a:hover{color:#ff3333;text-decoration:underline}"&vbcrlf
		response.write ".awhite{color:#ffffff}"&vbcrlf
		response.write ".awhite a{color:#ffffff;text-decoration:none;font-weight:500}"&vbcrlf
		response.write "//-->"&vbcrlf
		response.write "</style>"&vbcrlf
		response.write "</head>"&vbcrlf
		response.write "<body>"&vbcrlf
		response.write "<table border=1 align='center' cellpadding=0 cellspacing=0 style=border-collapse:collapse bordercolor=#111111 height=250>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td align=center colspan=2 class='awhite' style='background:#34aacd url(images/leadtop.gif);height:19px'><a href='index.asp'>"&pagetitle&"</a>--查看网友聊天信息</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>用户名：</td>"&vbcrlf&"		<td>"&keystr&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>性别：</td>"&vbcrlf&"		<td>"&rs("usersex")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>注册时间：</td>"&vbcrlf&"		<td>"&rs("regtime")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>上次离站：</td>"&vbcrlf&"		<td>"&rs("logintime")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>在线时间：</td>"&vbcrlf&"		<td>"&rs("timecount")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>登陆次数：</td>"&vbcrlf&"		<td>"&rs("logincount")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>权限等级：</td>"&vbcrlf&"		<td>"&rs("grade")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>人气值：</td>"&vbcrlf&"		<td>"&rs("clickcount")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>在线状态：</td>"&vbcrlf&"		<td>"
		if rs("isonline")=true then
			response.write "在线"
		else
			response.write "不在线"
		end if
		response.write "</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>上次IP：</td>"&vbcrlf&"		<td>"&rs("userip")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>详细资料：</td>"&vbcrlf&"		<td><a href="&selfname&"?act=moreinfo&keystr="&keystr&">查看</a></td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td align=center colspan=2 class='awhite' style='background:#34aacd url(images/leadbottom.gif);height:19px;'>〖<a href='"&selfname&"?act=newusers&keystr=20&ntime="&ntime&"'>最新注册</a>〗&nbsp;&nbsp;&nbsp;〖<a href='javascript:void(0)' onclick='window.close()'>关闭本窗口</a>〗&nbsp;&nbsp;&nbsp;〖<a href='"&selfname&"?act=clicktop&keystr=20&ntime="&ntime&"'>人气排行</a>〗&nbsp;&nbsp;</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "</table>"&vbcrlf
		response.write "</body>"&vbcrlf
		response.write "</html>"&vbcrlf
	end if
		rs.close
elseif act="moreinfo" and trim(keystr)<>"" then
	sql="select * from userinfo where userid='"&trim(keystr)&"'"
	rs.open sql,conn,0,3
	if rs.bof and rs.eof then
		response.write "<script language='javascript'>"&vbcrlf
		response.write "<!--"&vbcrlf
		response.write "alert('查看用户信息失败，你要查看的用户不存在!');"&vbcrlf
		response.write "window.close();"&vbcrlf
		response.write "//-->"&vbcrlf
		response.write "</script>"&vbcrlf
	else
		response.write "<html>"&vbcrlf
		response.write "<head>"&vbcrlf
		response.write "<meta http-equiv='Content-Type' content='text/html;charset=gb2312'>"&vbcrlf
		response.write "<title>查看用户 "&keystr&" 的详细资料</title>"&vbcrlf
		response.write "<script language='javascript'>"&vbcrlf
		response.write "<!--"&vbcrlf
		response.write "self.resizeTo(400,320);"&vbcrlf
		response.write "//-->"&vbcrlf
		response.write "</script>"&vbcrlf
		response.write "<style type='text/css'>"&vbcrlf
		response.write "<!--"&vbcrlf
		response.write "body{margin-top:20px;font-size:12px;background:#f6f6f6 url(images/bgbrick.gif);}"&vbcrlf
		response.write "table{width:300px}"&vbcrlf
		response.write "td{font-size:12px;color:#900000;padding-left:12px;}"&vbcrlf
		response.write "a{color:#000090;text-decoration:none}"&vbcrlf
		response.write "a{color:#000090;text-decoration:none}"&vbcrlf
		response.write "a:hover{color:#ff3333;text-decoration:underline}"&vbcrlf
		response.write ".awhite{color:#ffffff}"&vbcrlf
		response.write ".awhite a{color:#ffffff;text-decoration:none;font-weight:500}"&vbcrlf
		response.write "//-->"&vbcrlf
		response.write "</style>"&vbcrlf
		response.write "</head>"&vbcrlf
		response.write "<body>"&vbcrlf
		response.write "<table border=1 align='center' cellpadding=0 cellspacing=0 style=border-collapse:collapse bordercolor=#111111 height=250>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td align=center colspan=2 class='awhite' style='background:#34aacd url(images/leadtop.gif);height:19px'><a href='index.asp'>"&pagetitle&"</a>--查看用户详细资料</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td width='40%'>真实姓名：</td>"&vbcrlf&"		<td>"&rs("username")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>电话号码：</td>"&vbcrlf&"		<td>"&rs("telephone")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>手机号码：</td>"&vbcrlf&"		<td>"&rs("movephone")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>QQ号码：</td>"&vbcrlf&"		<td>"&rs("qq")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>电子邮箱：</td>"&vbcrlf&"		<td>"&rs("email")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>个人主页：</td>"&vbcrlf&"		<td>"
		if rs("homepage")<>"" then
			response.write "<a href='"&rs("homepage")&"' target='_blank'>去看看</a>"
		else
			response.write "暂时没有"
		end if
		response.write "</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>通讯地址：</td>"&vbcrlf&"		<td>"&rs("address")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>邮政编码：</td>"&vbcrlf&"		<td>"&rs("zipcode")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td>其它信息：</td>"&vbcrlf&"		<td>"&rs("leavewords")&"</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "	<tr>"&vbcrlf
		response.write "		<td align=center colspan=2 class='awhite' style='background:#34aacd url(images/leadbottom.gif);height:19px;'>〖<a href='"&selfname&"?act=newusers&keystr=20&ntime="&ntime&"'>最新注册</a>〗&nbsp;&nbsp;&nbsp;〖<a href='javascript:void(0)' onclick='window.close()'>关闭本窗口</a>〗&nbsp;&nbsp;&nbsp;〖<a href='"&selfname&"?act=clicktop&keystr=20&ntime="&ntime&"'>人气排行</a>〗&nbsp;&nbsp;</td>"&vbcrlf
		response.write "	</tr>"&vbcrlf
		response.write "</table>"&vbcrlf
		response.write "</body>"&vbcrlf
		response.write "</html>"&vbcrlf
		if isnull(rs("clickcount")) then
			rs("clickcount")=1
		elseif session("userid")<>keystr then
			rs("clickcount")=rs("clickcount")+1
		end if
		rs.update
	end if
		rs.close
elseif act="upusergrade" and trim(keystr)<>"" then
	sql="select grade from userinfo where userid='"&keystr&"'"
	rs.open sql,conn,0,3
	if rs.bof and rs.eof then
		response.write "<script language='javascript'>"&vbcrlf
		response.write "<!--"&vbcrlf
		response.write "alert('提升用户等级失败，该用户不存在!');"&vbcrlf
		response.write "window.close();"&vbcrlf
		response.write "//-->"&vbcrlf
		response.write "</script>"&vbcrlf
	elseif (rs("grade")+1)<session("grade") then
		usrgrade=rs("grade")
		rs("grade")=usrgrade+1
		rs.update
		response.write "<script language='javascript'>"&vbcrlf
		response.write "<!--"&vbcrlf
		response.write "alert('提升用户等级成功!用户“"&keystr&"”当前等级为："&usrgrade+1&"');"&vbcrlf
		response.write "window.close();"&vbcrlf
		response.write "//-->"&vbcrlf
		response.write "</script>"&vbcrlf
	else
		response.write "<script language='javascript'>"&vbcrlf
		response.write "<!--"&vbcrlf
		response.write "alert('提升用户等级失败，你没有足够权限!');"&vbcrlf
		response.write "window.close();"&vbcrlf
		response.write "//-->"&vbcrlf
		response.write "</script>"&vbcrlf
	end if
		rs.close
else
	response.write "<script language='javascript'>"&vbcrlf
	response.write "<!--"&vbcrlf
	response.write "alert('对不起，操作失败，请重新登陆后再试!');"&vbcrlf
	response.write "window.close();"&vbcrlf
	response.write "//-->"&vbcrlf
	response.write "</script>"&vbcrlf
end if
set rs=nothing
conn.close
set conn=nothing
%>