buy2buyusermail.asp

信运网店系统是一套功能完善、简洁美观

<!--#include file="conn.asp"-->
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
'限制添加权限管理员
if session("rank")=2 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
%>
<script language="javascript">
function CopyText(obj) {
  ie = (document.all)? true:false
  if (ie){
    var rng = document.body.createTextRange();
    rng.moveToElementText(obj);
    rng.scrollIntoView();
    rng.select();
    rng.execCommand("Copy");
    rng.collapse(false);
  }
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.STYLE3 {color: #0000FF}
.STYLE1 {color: #000000;
	font-weight: bold;
}
.style4 {color: #FF0000}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<table width="98%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
  <tr> 
    <td background="images/topbg.gif"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -&gt; <span class="style4">会员邮件列表</span></span></td>
  </tr>
  <tr> 
    <td height="200" valign="top" bgcolor="#FFFFFF"> 
	<form name="form1" method="post" action="">
        <br>
        <table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#f2f2f2">
          
          <tr bgcolor="#FFFFFF"> 
            <td align="center" valign="top" bgcolor="#FFFFFF">本列表主要用于收集站内所有注册会员EMAIL地址，直接COPY即可使用。<br>
			<textarea name="tbURL" cols="80" rows="10" id="tbURL"><%tempStr=""
			mSql="select UserEmail from [User]"
			set mRs=conn.execute(mSql)
			while not mRs.eof
				if (mRs("useremail")<>null) or (mRs("useremail")<>"") then
					tempStr=tempStr&mRs("UserEmail")&","
				end if
				mRs.movenext
			wend
			mRs.close
			set mRs=nothing
			response.write mid(tempStr,1,len(tempStr)-1)
			%></textarea>            
            <br>
              <table width="76%"  border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td height="30" align="right"><input name="Submit" type="button" class="input_bot" onClick="CopyText(document.all.tbURL)" value="复制以上所有邮件地址到剪贴板" ></td>
                </tr>
              </table></td>
          </tr>
        </table>
        <br>
	</form></td>
  </tr>
</table>