28,409
社区成员




<%
sql="select * from member"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
%>
<tr>
<td colspan="9" class="title">暂无管理员,请添加管理帐号!</td>
</tr>
</table>
<%else
do while not rs.eof
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="tab">
<tr onmouseover="this.className='white';" onmouseout="this.className='';">
<td width="60" nowrap="nowrap"><%=rs("Level")%></td>
<td width="100%" nowrap="nowrap"><%=rs("Company")%></td>
<td width="80" nowrap="nowrap"><%=rs("Country")%></td>
<td width="80" nowrap="nowrap"><%=rs("Province")%></td>
<td width="80" nowrap="nowrap"><%=rs("Email")%></td>
<td width="80" nowrap="nowrap"><%=rs("Fullname")%></td>
<td width="80" nowrap="nowrap"><%if rs("Language")="cn" then
response.Write("中文")
else
response.Write("英文")
end if
%></td>
<td width="70" nowrap="nowrap"><%=rs("RegDate")%></td>
<td width="70" align="center" nowrap="nowrap"><a href="?app=user&act=update">修改</a> <a href="?app=user&act=dell?id=<%=rs("id")%>">删除</a></td>
</tr>
</table>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<!--删除-->
<%if request("act")="dell" then
Conn.execute("DElETE FROM member WHERE ID = "&cint(request("ID")))
end if
%>