FLASH日记本 FLASH日记本

				
				
								error_ip = Request.ServerVariables("REMOTE_ADDR")
				if error_ip = "202.103.229.174" then
				  Response.Write("本站不欢迎你的到来。")
				  Response.End()
				end if
				'数据库链接字符串
				On Error Resume Next
				Set conn = Server.CreateObject("ADODB.Connection")
				connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("asp/###！￥%diary.asp")
				conn.open connstr
				if err.number  0 then
					Response.Write("连接数据库出错！请与管理员联系")
					Response.end
				end if
				
				Function CloseDataConn
				  conn.close
				  set conn = Nothing
				end Function
				%>
				
				
				
				
				
				
				
				
				Flash日记本和Flash留言本
				
								body {
					margin-left: 0px;
					margin-top: 0px;
					margin-right: 0px;
					margin-bottom: 0px;
				}
				body,td,th {
					font-size: 12px;
				}
				a:link {
					color: #3300CC;
					text-decoration: none;
				}
				a:visited {
					text-decoration: none;
					color: #3300CC;
				}
				a:hover {
					text-decoration: underline;
					color: #0099FF;
				}
				a:active {
					text-decoration: none;
					color: #FF9900;
				}
				.style3 {color: #FF0000}
				-->
				
				
				
				
				
				
				  
				    
				      
				        				          SQLdiary="select top 13 * from diary where ifPassword=1 order by date_insert desc"
				          RSdiary.Open SQLdiary,conn,1,1         
				        %>
				            
				      
				    
				      
				        						  if not RSdiary.eof then
						  '取得会员ID号
						  SET RS_HYname = Server.CreateObject("ADODB.Recordset")
				              
						   i=1	
					       do while i						   RS_SQL="select id from HuiYuan where HYname='"&RSdiary("HYname")&"'"
				           RS_HYname.Open RS_SQL,conn,1,1     
						  %>
				        
				          ·
				          
				          
				        
				        				        RS_HYname.close
						i=i+1
				      RSdiary.MoveNext
					  if RSdiary.eof then exit do end if	
					  loop
					  end if
					   RSdiary.close
						%>
				    
				    
				      
				            
				      
				    
				      
				        						  SQLdiary="select top 13 * from diary where ifPassword=1 and tuiJian=1 order by date_insert desc"
				          RSdiary.Open SQLdiary,conn,1,1 
						  if not RSdiary.eof then
						   i=1	
					       do while i						   RS_SQL="select id from HuiYuan where HYname='"&RSdiary("HYname")&"'"
				           RS_HYname.Open RS_SQL,conn,1,1  
						  %>
				        
				          ·
				          
				          
				        
				        						  RS_HYname.close
						i=i+1
				      RSdiary.MoveNext
					  if RSdiary.eof then exit do end if	
					  loop
					  end if
					  RSdiary.close
					  set RSdiary = Nothing
						%>
				    
				  
				
				
				  
				    				google_ad_client = "pub-7753774943472744";
				google_ad_width = 468;
				google_ad_height = 60;
				google_ad_format = "468x60_as";
				google_ad_type = "text_image";
				google_ad_channel ="";
				google_color_border = "FFFFFF";
				google_color_bg = "FFFFFF";
				google_color_link = "FF0000";
				google_color_url = "0000FF";
				google_color_text = "333333";
				//-->
								  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
				
				    当前在线：人