sendmail_result.asp

泡泡堂服务端内有建站说明,喜欢玩泡泡堂的朋友下载开发.

<!-- #include virtual="/admin/admin_head.asp" -->

<%	
	dim today
	today= int(mid(now, 6, 2))&"/"&int(mid(now, 9, 2)) &"/"&left(now, 4)
%>


<SCRIPT LANGUAGE="JavaScript">
<!--
	function WM_imageSwap(daImage, daSrc){
  		var objStr,obj;
  		if(document.images){
   		 // Check to see whether you are using a name, number, or object
    		if (typeof(daImage) == 'string') {
    		  // This whole objStr nonesense is here solely to gain compatability
     		 // with ie3 for the mac.
     		 objStr = 'document.' + daImage;
      		obj = eval(objStr);
     		 obj.src = daSrc;
    		} else if ((typeof(daImage) == 'object') && daImage && daImage.src) {
    		  daImage.src = daSrc;
    		}
  		}
	}
 // Trim 窃荐
	function trim(str)
	{
		var trimstr = str;
		for (var i=0; i< str.length;i++)
		{
			trimstr = trimstr.replace(' ' ,'');
		}
		return trimstr;
	}		
	
	// 其捞瘤 捞悼窃荐
	function go_page(page)
	{
		thisform=document.frmList
		//thisform.reset();
    	frmList.page.value=page;
    	frmList.action="sendmail_result.asp"
    	frmList.submit();
	}


	
//-->
</SCRIPT>

<%
'*********************************************************************
	'<> Request <>            
	
	If Request("page")="" Then
		Page=1
	Else
		Page=Request("page")
	End If
		
	if request("sort")="" then
	sort=0
	else
	sort = request("sort")
	end if
	
'*********************************************************************	
	
	SQL="EXEC usp_mailhistory_list_01s "
	SQL=SQL + " @Page=" & Cstr(page)  
	
	Set Rs = DbCon.Execute(SQL)
		
If Not (Rs.Eof OR Rs.Bof) Then
		TotalPage=Rs("TotalPage")
		PreviousPage=Rs("PreviousPage")
		NextPage=Rs("NextPage")
		CurrentRecord=Rs("CurrentRecord")
		RecordCount=Rs("RecordCount")
	Else
		TotalPage=0
		PreviousPage=0
		NextPage=0
		CurrentRecord=0
		RecordCount=0
	End If	

		
'=========================================================
  If Not (rs.Eof OR rs.Bof) Then
 	
 		Rs.Move 10 - Cint(CurrentRecord)
		Dim IndexCount
		IndexCount=(page*10+1)-10
		
	
		
		 

%>  
	<table width="500" border="0" cellspacing="0" cellpadding="0" align="center" height="26">
    <!--<form name="search" action="gamedownchk.asp" method="post">

      <br>
      <tr valign="middle"> 
        <td height="25"> 
          <div align="center"> 
            <select size="1" name="Search" >
              <option value="1">雀盔 酒捞叼</option>
              </select>
            <b><font color="#cccccc"> | 八祸绢</font></b> 
            <input type="ID" name="searchstr" size="30">
            <input type="submit" value="Search" name="submit">
          </div>
        </td>
      </tr>
    </form>
	</table>  
                      -->
<form name="frmList" method="post">	
<input type="hidden" name="page" value="<%=Page%>">


<table width="750" border="0" cellspacing="0" cellpadding="0" align="center" class="boardtext03">
  <tr> 
         <td  height="26"> 
           <table width="750"  border="0" cellspacing="0" cellpadding="0" height="26" class="boardtext03">
             <tr> 
               <td width="30">&nbsp;</td>
               <td>3瞒 春胶饭磐何磐 利侩且 抗沥捞哥, 傈眉皋老阑 惯价茄 扒荐客 雀盔捞 角力肺 皋老阑 坷锹茄 扒荐甫 厚背窍咯 雀盔捞 快府 皋老阑 倔付唱 佬绊 乐绰瘤甫 葛聪磐窍绰 磊丰涝聪促.<br>茄 雀盔捞 鞍篮 皋老阑 咯矾锅 犬牢窍绰 版快绰 茄锅父 墨款飘 登哥 厚背利 按包利牢 烹拌甫 备且 荐 乐嚼聪促.</td>
             </tr>
           </table>
         </td>
       </tr>
         <tr> 
         <td  height="26"> 
           <table width="100%" border="0" cellspacing="0" cellpadding="0" height="26" bgcolor="#FFCC00" class="boardtext03">
             <tr> 
               <td width="30">&nbsp;</td>
               <td>傈眉 皋老 惯价 冉荐:<%=RecordCount%>扒 泅犁<%=page%>/<%=TotalPage%>其捞瘤</td>
             </tr>
           </table>
         </td>
       </tr>
       <tr> 
         <td height="25" align="center"> 
           
      <table width="100%" border="0" cellspacing="1" cellpadding="0" class="boardtext03">
<tr bgcolor="skyblue">
          <td width="350"> 
            <div align="center">皋老 力格
                </div>
              </td>
          
              <td width="150"> 
                <div align="center">焊辰 朝楼</a> 
                </div>
              </td>
              
              
          <td width="100"> 
            <div align="center">沥惑 惯价扒荐</a>
                </div>
              </td>
             <td width="100"> 
            <div align="center">皋老 郴侩阑<br> 犬牢茄 扒荐</a>
                </div>
              </td>
              <td width="50"> 
            <div align="center">皋老<br> 犬牢啦</a>
                </div>
              </td>
           </tr>

 <%	DO UNTIL rs.Eof OR rs.Bof
 		idx = rs("idx")
  		senddate = rs("senddate")
  		title = rs("title")
  	  	sendcount = rs("sendcount")
  	  	
  	  	
sql = "select idx from mailopenchk where mailtitle='" & trim(title) & "'"

	Set openRs=DbCon.Execute(SQL)

	opencount = 0
	DO UNTIL openRs.Eof OR openRs.Bof
 	
 	opencount = opencount + 1
 	
 	openRs.MOVENEXT
	LOOP
	
	
	'opencount = openRs("opencount")
	
	
	
 	  	
%>


<tr bgcolor="#CCCCCC">
          <td width="350" height="25"> 
            <div align="left">&nbsp;<%=title%>
                </div>
              </td>
          
              <td width="150"> 
                <div align="center"><%=senddate%></a> 
                </div>
              </td>
              
              
          <td width="100"> 
            <div align="center"><%=sendcount%></a>
                </div>
              </td>
             <td width="100"> 
            <div align="center"><%=opencount%></a>
                </div>
              </td>
              <td width="50" align=center> 
            
            <%=Round((opencount/sendcount)*100, 2)%> %
            
                </div>
              </td>
           </tr>


    
<%
	IndexCount=IndexCount+1
	rs.MOVENEXT
	LOOP
%>	
 <tr bgcolor="#CCCCCC">
 <td colspan=7 align=center>
 <br>
 <!-- 其捞瘤 贸府 -->    


<!--------------------BBS List 其捞瘤贸府 矫累--------------------------------------------> 

<% 	
	Blockpage=Int((Page-1)/10)*10 + 1
	If Blockpage = 1 Then
%> 
								⑿
<%		
	Else
%>
								<a href="javascript:go_page('1')">1Page</a>
								<a href="javascript:go_page('<%=blockPage-10%>')">⑿</a>
<%
	End If	

	Count=1
	
	Do Until (Count > 10 Or Blockpage > Cint(TotalPage))
		
		If Blockpage=Cint(Page) Then
%>
								&nbsp;[<font><%=Blockpage%></font>]&nbsp;
<%
	Else
%> 
								&nbsp;<a href="javascript:go_page('<%=Blockpage%>')"><%=Blockpage%></a>&nbsp;
<%
	End If
		         
		Blockpage=Blockpage+1
		Count = Count + 1	
	
	Loop
	
	
	If Blockpage > Cint(TotalPage) Then
%> 
								⒀
<%				
	Else
%> 
								<a href="javascript:go_page('<%=Blockpage%>')">⒀</a> 
								<a href="javascript:go_page('<%=TotalPage%>')">	Last page</a>
<%
	End If
	
	Set Conn	=	Nothing
	
%>

    </form>
<!--------------------BBS List 其捞瘤贸府 场--------------------------------------------> 
 </td>
 </tr>
 
            </table>
	
        </td>
      </tr>
    </table>        
<%else%>
<%end if%>

<!-- #include virtual="/admin/admin_bottom.asp" -->