user_action.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_forum.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim sqladd,nummer,user_temp,rssum,viewpage,thepages,page,pageurl,keyword,sqlodd
rssum=0:thepages=0:viewpage=1:nummer=web_var(web_num,1)
sqladd="":user_temp=""

select case action
case "top"
  tit="发贴排行"
  sqladd="bbs_counter desc,id desc"
case "emoney"
  tit="财富排行"
  sqladd="emoney desc,id desc"
case else
  tit="用户列表"
  sqladd="id desc"
end select
pageurl="?action="&action&"&"

call web_head(1,0,0,0,0)
'------------------------------------left----------------------------------
call format_login()
response.write left_action("jt13",4)
'----------------------------------left end--------------------------------
call web_center(0)
'-----------------------------------center---------------------------------
response.write ukong


dim y,aa
    aa=trim(request.querystring("aa"))
select case request("aa")
 case "1"
y=""
 case "2"
y="power='puser' and"
 case "3"
y="power='vip' and"
 case "4"
y="power='super' and"
 case "5"
y="power='admin' and"
end select

  keyword=trim(request.querystring("keyword"))
  if keyword<>"" and not isnull(keyword) then
    if sqlodd<>"" then
      sqlodd=sqlodd&" and "&y&" username like '%"&keyword&"%' "
    else
      sqlodd=sqlodd&" where "&y&" username like '%"&keyword&"%' "
    end if
    pageurl=pageurl&"keyword="&server.urlencode(keyword)&"&aa="&server.urlencode(aa)&"&"
  else
      sqlodd=sqlodd&" where "&y&" username "
    pageurl=pageurl&"keyword="&server.urlencode(keyword)&"&aa="&server.urlencode(aa)&"&"
  end if



sql="select username,power,bbs_counter,sex,email,qq,url,tim,emoney from user_data "&sqlodd&" order by "&sqladd
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
  rssum=rs.recordcount
end if

call format_pagecute()

if int(viewpage)>1 then
  rs.move (viewpage-1)*nummer
end if
for i=1 to nummer
  if rs.eof then exit for
  user_temp=user_temp&user_type()
  rs.movenext
next
rs.close:set rs=nothing

response.write forum_table1
%>
<tr height=30<%response.write forum_table4%> align=center>
<td><font class=red_3><b><%response.write tit%></b></font>&nbsp;&nbsp;&nbsp;
共&nbsp;<font class=red><%response.write rssum%></font>&nbsp;位&nbsp;┋&nbsp;
每&nbsp;<font class=red><%response.write nummer%></font>&nbsp;页&nbsp;┋&nbsp;
共&nbsp;<font class=red><%response.write thepages%></font>&nbsp;页&nbsp;┋&nbsp;
这是第&nbsp;<font class=red><%response.write viewpage%></font>&nbsp;页</td>
</tr>
</table>
<% response.write kong & forum_table1 %>
<tr align=center<%response.write forum_table2%> height=20>
<td width='8%'><font class=end><b>排序</b></font></td>
<td width='20%'><font class=end><b>用户名称</b></font></td>
<td width='6%'><font class=end><b>类型</b></font></td>
<td width='6%'><font class=end><b>性别</b></font></td>
<td width='8%'><font class=end><b>发贴</b></font></td>
<td width='13%'><font class=end><b><%response.write m_unit%></b></font></td>
<td width='6%'><font class=end><b>Email</b></font></td>
<td width='6%'><font class=end><b>QQ</b></font></td>
<td width='6%'><font class=end><b>主页</b></font></td>
<td width='6%'><font class=end><b>短信</b></font></td>
<td width='14%'><font class=end><b>注册时间</b></font></td>
</tr>
<% response.write user_temp %>
</table>
<br>
<% response.write forum_table1 %>
<tr height=30<%response.write forum_table3%>>
<td width='72%'>&nbsp;分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,8,"#ff0000")%></td>
<td width='28%' align=center><% response.write forum_go() %></td>
</tr>
<tr<%response.write forum_table4%>><td align=center height=30 colspan=2><%response.write user_power_type(0)%></td></tr>
</table>
<br>
<% response.write forum_table1 %>
  <form name=sea_frm action='<%response.write pageurl%>'>
    <tr<%response.write forum_table2%>>
      <td align=center class=end>
<select name=aa size=1>
<option value="1" <% if aa="1" then response.write " selected" %>>所有注册用户</option>
<option value="2" <% if aa="2" then response.write " selected" %>>所有会员用户</option>
<option value="3" <% if aa="3" then response.write " selected" %>>所有VIP 用户</option>
<option value="4" <% if aa="4" then response.write " selected" %>>所有论坛版主</option>
<option value="5" <% if aa="5" then response.write " selected" %>>所有管理员</option>
</select>
<b>用户名称：</b> <input type=text name=keyword value='<%response.write keyword%>' size=20 maxlength=20>  <input type=submit value=' 搜 索 '></td>
    </tr>
  </form>
</table>
<br>
<%
'---------------------------------center end-------------------------------
call web_end(0)

function user_type()
  dim tname,ttt
  tname=rs("username")
  ttt=rs("power")
  user_type=vbcrlf&"<tr align=center"&forum_table4&"><td>"&i+(viewpage-1)*nummer&".</td>" & _
	    vbcrlf&"<td align=left>"&format_user_view(tname,1,"")&"</td>" & _
	    vbcrlf&"<td><img src='images/"&web_var(web_config,5)&"/icon_"&ttt&".gif' title='"&tname&" 是 "&format_power(ttt,1)&"' align=absmiddle border=0></td>"
  ttt=rs("sex")
  if ttt=false then
    ttt="<img src='images/small/forum_girl.gif' title='"&tname&" 是 青春女孩' align=absmiddle border=0>"
  else
    ttt="<img src='images/small/forum_boy.gif' title='"&tname&" 是 阳光男孩' align=absmiddle border=0>"
  end if
  user_type=user_type&vbcrlf&"<td>"&ttt&"</td>" & _
	    vbcrlf&"<td><font class=red>"&rs("bbs_counter")&"</font></td>" & _
	    vbcrlf&"<td><font class=red_3>"&rs("emoney")&"</font></td>" & _
	    vbcrlf&"<td><a href='mailto:"&rs("email")&"'><img src='images/small/email.gif' title='给 "&tname&" 发电子邮件' align=absmiddle border=0></a></td>" & _
	    vbcrlf&"<td>"
  ttt=rs("qq")
  if not(isnumeric(ttt)) or len(ttt)<2 then
    ttt="<font class=gray>没有</font>"
  else
    ttt="<a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln="&ttt&"' target=_blank><img src='images/small/qq.gif' title='查看 "&tname&" 的QQ信息' align=absmiddle border=0></a>"
  end if
  user_type=user_type&ttt&"</td>"&vbcrlf&"<td>"
  ttt=rs("url")
  if var_null(ttt)="" then
    ttt="<font class=gray>没有</font>"
  else
    ttt="<a href='"&ttt&"' target=_blank><img src='images/small/url.gif' title='查看 "&tname&" 的个人主页' align=absmiddle border=0></a>"
  end if
  user_type=user_type&ttt&"</td><td><a href='user_message.asp?action=write&accept_uaername="&server.urlencode(tname)&"'><img src='images/mail/msg.gif' border=0 align=absmiddle title='给 "&tname&" 发送站内短信'></a></td>"&vbcrlf&"<td align=left>"&time_type(rs("tim"),3)&"</td></tr>"
end function
%>