<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<HTML><HEAD>
<SCRIPT language=JavaScript>
function killErrors() {
return true;}
window.onerror = killErrors;
function OpenSmallWindows(strURL){
showModelessDialog(strURL,'fa','dialogWidth:420px;dialogHeight:280px;status:no;help:no;scroll:no;')}
</SCRIPT>
<link href="../include/css.css" rel="stylesheet" type="text/css">
<title>站内信</title></HEAD>
<BODY leftMargin=0 topMargin=0><base target="_top">
<!--#include file="../include/conn.asp"-->
<!--#include file="inc.asp"-->
<%if request("abc")="close" then
Response.Write "<script>window.close();</script>" 
Response.end
end if
%>
<table width="100" cellpadding="0" cellspacing="0">
  <tr> 
          <FORM name=form action="" method=post>
            <td width="130"><SELECT name=list size=20 multiple class="wenbenkuang" style="background-color: #f7f7f7;" ondblclick=Javascript:OpenSmallWindows(this.form.list.options[this.form.list.selectedIndex].value)>
<OPTION style="BACKGROUND: menu"  value=?abc=close>--在线会员列表--</OPTION>
<%'显示在线会员
set rs = conn.execute("select top 9178 name from online order by id desc")
i=0
do while not rs.eof%>
<OPTION value=fa.asp?huiyuan=<%=rs(0)%>>&nbsp;<%=InterceptString(rs(0),14)%></OPTION>
<%i=i+1
rs.movenext
loop
rs.close%>
</SELECT></td>
</FORM>
        </tr>
        <tr> 
          <td height="22" align="center" valign="middle" bgcolor="menu"><a href=?>〖<u>刷新</u>〗</a><a href="javascript:void window.showModelessDialog('dx.asp','','scroll:0;status:0;help:0;resizable:0;dialogWidth:450px;dialogHeight:300px')">〖<u>我的站内信</u>〗</a></td>
        </tr>
      </table>
</BODY></HTML>
<%conn.close
set conn=nothing
%>
