旅游管理系统 用ASP+SQL 2

				
				
				
				
				发邮件给旅行社
				
				
				
								
				Sub login11_onclick
					if form1.user_name.value="" then
					window.alert ("请输入您的姓名！")
					form1.user_name.focus
					else
					if form1.user_email.value="" then
					window.alert ("请输入您的电子邮件地址！")
					form1.user_email.focus
					else
					if form1.user_text.value="" then
					window.alert ("请输入您要发送短信的内容！")
					form1.user_text.focus
					else
					form1.submit
					end if
					end if
					end if
				End Sub
				
				-->
				
				
				
				
				
				
								dim action
				action=request("action")
				if action"ok" then
				%>
				 
				
				  
				     
				      
				        
				          
				        
				           
				             
				                 
				                  给旅行社发邮件
				                
				              
				          
				           
				            姓名：
				            
				            
				          
				           
				            旅行社：
				            
				            
				                    
				          				sql="select * from master"
				rs.open sql,,1,2
				While (NOT rs.EOF)
				%>
				          
				          				  rs.movenext
				Wend
				If (rs.CursorType > 0) Then
				  rs.movefirst
				Else
				  rs.Requery
				End If
				%>
				        
				            
				            
				          
				           
				            短信内容：
				            
				
				           
				            你的信箱：
				            
				            
				          
				          
				           
				            当前时间：
				            
				            
				          
				           
				            
				              　　　　　　　 
				              
				          
				        
				          
				        
				       
				      
				    
				  
				
								else
				dim user_name,user_email,user_text,user_time,mfkiqpl
				user_name=request("user_name")
				user_email=request("user_email")
				user_text=request("user_text")
				user_time=request("user_time")
				lxs_mail=request("lxs_mail")
				sql="select * from master where id=1"
				rs.open sql,,1,2
				mfkiqpl=lxs_mail
				Set objMail = Server.CreateObject("CDONTS.NewMail")
				objMail.To =mfkiqpl
				objMail.From =user_email
				objMail.Subject =user_name
				objMail.Body =user_text
				objMail.Send
				Set objMail = Nothing
				Response.Write rs("email")
				rs.close
				conn.close
				session("1")="您的信息以发送成功，旅行社管理员会尽快与您联系！"
				Response.Redirect "ok.asp"
				end if
				%>