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

				
				
									Response.Buffer=True			 
				
					Server.ScriptTimeout=100000000
				
					Dim rsMailing, objSendMail, DB
					Dim strSQL, strTo, strFrom
					Dim strSubject, strBody, mode
					
					' mail constants (some are for reference)
					Const CdoBodyFormatHTML = 0 ' Body property is HTML
					Const CdoBodyFormatText = 1 ' Body property is plain text (default)
					Const CdoMailFormatMime = 0 ' NewMail object is in MIME format
					Const CdoMailFormatText = 1 ' NewMail object is plain text (default)
					Const CdoLow    = 0         ' Low importance
					Const CdoNormal = 1         ' Normal importance (default)
					Const CdoHigh   = 2         ' High importance
				%>	
				
									
				
				
					if mode  "" then 
				
				
					strFrom ="BombGame"
				
					strSubject = request("title")
				
				if mode = "send" then 
				
				' 傈眉 雀盔皋老老 版快	
					strSQL = "select email, idx from ib_member where (email like '%@%') and nomail=0"
					'strSQL = "select email, idx from ib_member where (email like '%@%') and nomail=0 and idx				elseif mode = "test" then 	
					strSQL = "select email, idx from mail_test where (email like '%@%') and nomail=0"
				end if	
				
				
					Set rsMailing = DbCon.Execute(strSQL)
				
					index = 0
						 
					Do Until rsMailing.EOF
						strTo = rsMailing(0)
						idx = rsMailing(1)
						'strTo = "hypie017@hotmail.com"
						If Not (IsNull(strTo)) AND (Instr(strTo, "@")  0) AND (Instr(strTo, ".")  0) Then
				
							strBody = request("cnts")
							
							' this line calls the MakePage() function to format the page as HTML
							strBody = MakePage(strSubject, strBody, strTo)
				
							Set objSendMail = CreateObject("CDONTS.NewMail")
				
							objSendMail.From    = strFrom
							objSendMail.To      = strTo
							objSendMail.Subject = strSubject 
							objSendMail.Body    = strBody
				
							objSendMail.BodyFormat = CdoBodyFormatHTML
							objSendMail.MailFormat = CdoMailFormatMime
							objSendMail.Importance = CdoNormal
				
							objSendMail.Send
				
							Set objSendMail = nothing
				
				
							response.write (strTo  & " 俊霸 " & index & " 锅掳 皋老 惯价")
							index = index + 1
						End If
				
						rsMailing.MoveNext
					Loop
				
					rsMailing.Close
					Set rsMailing = nothing
							
				'	DB.Close
				'	Set DB = nothing	
					
				'皋老阑 焊辰 饶 mail_history 抛捞喉俊 规陛 焊辰 皋老阑 殿废茄促.(皋老 坷锹 眉农 棺 荐脚 犬牢伏阑 包府窍扁 困窍咯..)
					
					senddate=now
					title = strSubject
							
					SQL ="insert mail_history (senddate, title, sendcount) values('" & now & "', '" &  title & "', " & index & " )"
					response.write sql
					DbCon.Execute(SQL)
					%>	
					
				
								
					alert(' 疙俊霸 抛胶飘 皋老捞 惯价登菌嚼聪促.');
					document.location.href="sendmail.asp";
				
					alert(' 疙俊霸 傍瘤皋老捞 惯价登菌嚼聪促.');
					document.location.href="sendmail.asp";
					
				-->
				
								
				
					' this function returns a properly formatted HTML page
					Function MakePage(txtSubject, txtBody, strTo)
						Dim txtTemp
						'txtTemp = "" & vbCrLf
						txtTemp = txtTemp & ""
						txtTemp = txtTemp & txtSubject
						txtTemp = txtTemp & "" & vbCrLf
						
								
						txtTemp = txtTemp & txtBody 
						
						'皋老荐脚芭何(叼磊牢篮 概锅 官操绢 林绢具窃)
						'==============================================================
						txtTemp = txtTemp & "   " & vbCrLf
						txtTemp = txtTemp & "   " & vbCrLf
						txtTemp = txtTemp & "      " & vbCrLf
						txtTemp = txtTemp & " 夯 皋老篮 BombGame 雀盔 傈侩 皋老涝聪促. 荐脚阑 盔窍瘤 臼绰 版快  滚瓢阑 喘矾林矫扁 官而聪促.  " & vbCrLf
						txtTemp = txtTemp & "  " & vbCrLf
						'==============================================================
						
						
						'皋老 坷锹 眉农
						'==============================================================
						txtTemp = txtTemp & "" & vbCrLf
						'==============================================================
						
						'txtTemp = txtTemp & ""
						MakePage = txtTemp
						
					End Function
				
					' this function opens a file and returns the file's contents
					Function ReadFile(txtFile)
						Dim txtTemp, objFS, objFL
						Set objFS = CreateObject("Scripting.FileSystemObject")
						Set objFL = objFS.OpenTextFile(txtFile)
						Do While Not objFL.AtEndOfStream
							txtTemp = txtTemp & objFL.ReadLine
							txtTemp = txtTemp & vbCrLf
						Loop	
						objFL.Close
						Set objFS = Nothing
						ReadFile = txtTemp
					End Function 	
					
					else
				%> 
					
				
								function preview()
					{
						thisform=document.sendmail;
					
						document.sendmail.target="_blank";
						document.sendmail.action="Preview.asp";
						document.sendmail.submit();
					}
				
					
				
				
				// -->
				
				
				
				
				
				
				
				    
				    
				        
				            雀盔 傍瘤皋老 焊郴扁
				            馆靛矫 TEST葛靛肺 犬牢窍绊 傈眉皋老阑 惯价窍技夸!! 荤绊唱搁 
				            奴老吵聪促!!
				        
				    
				    
				        
				            MODE
				        
				        
				             Test 
				                 Send
				            
				        
				    
				    
				        
				            Test Mail List
				        
				        
				            
									
					strSQL = "select email from mail_test where (email like '%@%') and nomail=0 "
				
				
				
					Set rsMailing = DbCon.Execute(strSQL)
					'rsMailing.Open strSQL, DB,adOpenDynamic,adLockReadOnly,adCmdText
				
					index = 0
						
					Do Until rsMailing.EOF
						strTo = rsMailing(0)
						response.write (" " &strTo  & "")
						index = index + 1
						rsMailing.MoveNext
					Loop
				
					rsMailing.Close
					Set rsMailing = nothing
							
					
					%>
				            
				        
				        
				    
				        
				            力  格
				        
				        
				            
				                
				            
				        
				    
				    
				        
				            郴  侩HTML CODE
				        
				        
				            
				                
				            
				        
				    
				    
				        
				            
				        
				    
				
					
					
				
									end if
				%>