maillist.asp

一个非常优秀的自动建站程序

<!--#include file="top.asp"-->
<script language=Javascript>
<!--
function DeleteMe(i){
	if (confirm("确定要删除该邮局吗?")==1){
		window.location="UserMailEditDel.asp?MailId="+i
		}
}
//-->
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td><form name="form1" method="post" action="?">
      <div align="center">输入邮局域名：
          <input name="maildomain" type="text" id="useridf">
          <input type="submit" name="Submit" value="搜索" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
      </div>
    </form></td>
	<td><form name="form1" method="post" action="?">
      <div align="center">输入到期时间：
          <input name="EndDate" type="text" id="Endate" value=<%=date()%>>
          <input type="submit" name="Submit" value="搜索" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
      </div>
    </form></td>  
  </tr>
</table> 
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [Mail_OK] where MailMater like '%"&request("maildomain")&"%' and EndDate like '%"&request("EndDate")&"%' and UserID=" & session("ID") & " ORDER BY MailID DESC"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
	response.write "<!--没有内容-->"
	response.end()
   else
	RowCount=PageNum
	    Tmp=IsNumeric(Request("PageNo"))
	    if (Tmp=False) then
		PageNo=1
	    else
		PageNo=Request("PageNo")
	    end if
	TSum=INT(rs.RECORDCOUNT/RowCount*-1)*-1
	if PageNo="" or PageNo=0 then
		PageNo=1
	else
		PageNo=PageNo+1
		PageNo=PageNo-1
	end if
	if CINT(PageNo)>1 then
		if CINT(PageNo)>CINT(TSum) then
			PageNo=1
		end if
	end if	
	if PageNo<0 then
		PageNo=1
	End if
	RS.PageSize=RowCount
	RS.AbsolutePage=PageNo
	RECORDCOUNT=rs.RECORDCOUNT
%>

<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="2" cellspacing="1">
<tr bgcolor="#ffffff"><td colspan="11" align=right><img border=0 src=../images/run.gif>邮局运行中&nbsp;&nbsp;<img border=0 src=../images/false.gif>邮局已过期&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>
  <tr bgcolor="#ffffff">
    <td width=30 align=center>序号</td>
    <td width=80 align=center>产品名称</td>
    <td width=120 align=center>邮局服务器</td>
    <td width=80 align=center>邮箱大小</td>
    <td width=80 align=center>邮箱数量</td>
    <td width=80 align=center>开通时间</td>
    <td width=80 align=center>到期时间</td>
    <td align=center>邮局绑定域名</td>
    <td align=center colspan=3")>操作</td>
  </tr>
<%
i=(PageNo-1)*RowCount+1
DO WHILE NOT rs.EOF AND RowCount>0
Set Autohost = Server.CreateObject("autohost.gethostip")
realip=Autohost.getip(rs("MailHost"))
Set Autohost = nothing
MailUser=rs("MailUser")
MailUseSize=0
if not isnull(MailUser) or len(MailUser)>0 then
MailuserNum=split(MailUser,",")
MailUserNums=Ubound(MailuserNum)+1
for j=0 to Ubound(MailuserNum)
TpmMailuserNum=split(MailuserNum(j),"|")
MailUseSize=MailUseSize+TpmMailuserNum(1)
next
else
MailUserNums=0
end if
%>
  <tr bgcolor=FFFFFF>
    <td width=30 align=center><%=i%></td>
    <td align=center><%=rs("MailName")%></td>
    <td align=center><%=realip%></td>
    <td align=center><%=rs("MailSize")%>(<%=MailUseSize%>)</td>
    <td align=center><%
    if rs("MailType")=1 then
	Response.write "1"
    else
	Response.write rs("MailNum")
    end if%>(<%=MailUserNums%>)</td>
    <td align=center><%=rs("BeginDate")%></td>
    <td align=center><%if Cdate(rs("EndDate"))<Date then%><font color=red><%=rs("EndDate")%></font><%else%><%=rs("EndDate")%><%end if%></td>
	<form name="form" method="post" action="MailOpen.asp?MailID=<%=rs("MailID")%>">
    <td align=center>
    <%if rs("MailMater")<>"" then
	Response.write rs("MailMater")
        if Cdate(rs("EndDate"))<Date then Response.write "<img border=0 src=../images/false.gif>" else Response.write "<img border=0 src=../images/run.gif>"
    else%>
	<input name="MailDomain" value="" size=16> <input type="submit" value="开通" name="Submit" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
    <%end if%></td>
    <td align=center><%if rs("MailMater")<>"" then%><a href="UserMailEdit.asp?MailID=<%=rs("MailID")%>"><img border=0 src=../images/edit.gif></a><%end if%></td>
    <td align=center><%if rs("MailMater")<>"" then%><a href="Javascript:DeleteMe(<%=rs("MailId")%>)"><img border=0 src=../images/del.gif></a><%end if%></td>
    <td align=center><a href="MailPay.asp?MailID=<%=rs("MailID")%>">续费</a></td>
	</form>
  </tr>
<%
	RowCount = RowCount - 1
	rs.MoveNext
        i=i+1
	Loop
   end if
rs.close
set rs = nothing
%>
</table>
<br>
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="5" cellspacing="1">
  <tr bgcolor="#FFFFFF">
    <td align=center>
<table width=100% border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
共有信息 <%=RECORDCOUNT%> 条 当前第 <%=PageNo%>/<%=TSum%> 页
</td>
<td align=right>
<%=PageList%>
</td>
</tr>
</table>
    </td>
  </tr>
<%if TSum>3 then%>
  <tr bgcolor="#FFFFFF">
    <td align=center>
<%for i=1 to TSum%>
<a href="?PageNo=<%=i%>">第<%=i%>页</a>
<%next%>
    </td>
  </tr>
<%end if%>
</table>
<%Function PageList()
if TSum>1 then
  if PageNo=1 then
    NextPage=PageNo+1
    response.write"首页 上一页 <a href='?PageNo="&NextPage&"'>下一页</a> <a href='?PageNo="&TSum&"'>尾页</a>"
  end if
  if PageNo=TSum then
    PrwePage=PageNo-1
    response.write "<a href='?PageNo=1'>首页</a> <a href='?PageNo="&PrwePage&"'>上一页</a> 下一页 尾页"
  end if
  if PageNo>1 and TSum>PageNo then
    NextPage=PageNo+1
    PrwePage=PageNo-1
    response.write "<a href='?PageNo=1'>首页</a> <a href='?PageNo="&PrwePage&"'>上一页</a> <a href='?PageNo="&NextPage&"'>下一页</a> <a href='?PageNo="&TSum&"'>尾页</a>"
  end if
else
  response.write "首页 上一页 下一页 尾页"
end if
End Function%>
</td>
</tr>
</table>
<!--#include file="foot.asp"-->