冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统冠龙科技企业自助建站系统

				
				
				
				
				
				function ConfirmDel()
				{
				   if(confirm("确定要删除此记录吗？"))
				     return true;
				   else
				     return false;
				}
				
								if Request.QueryString("no")="yes" then
				 id= Trim(Request("id"))
				 Set Rs = Server.CreateObject("ADODB.Recordset")
				 Rs.Open "DELETE FROM Affiche Where id="&id,Conn,2,3,1
				 Set Rs= Nothing
				 Response.Redirect "Admin_AddAffiche.asp"
				end if
				
				if Request.QueryString("mark")="ynkj" then
				If request.form("title")="" Then
				Response.Write("alert(""错误：您没输入标题，请返回检查！！"");history.go(-1);")
				response.end
				end if
				If request.form("content")="" Then
				Response.Write("alert(""错误：您没输入公吿内容，请返回检查！！"");history.go(-1);")
				response.end
				end if
				Set rs = Server.CreateObject("ADODB.Recordset")
				sql="select top 1 * from Affiche"
				rs.open sql,conn,1,3
				
				rs.addnew
				if request.form("html")="on" then
				rs("content")=request.form("content")
				else
				rs("content")=htmlencode2(request.form("content"))
				end if
				rs("title")=request.form("title")
				rs("time")=date()
				rs.update
				rs.close
				response.redirect "Admin_AddAffiche.asp"
				end if
				
				Set rs = Server.CreateObject("ADODB.Recordset")
				sql="select  * from Affiche"
				rs.open sql,conn,1,1
				%>
				
				
				
				   
				    
				         
				           发布网站公告 
				              
				        
				         
				          
				            
				            
				 
				                
				                   
				                     
				                      中文公告标题：
				                    
				                    
				                  
				                   
				                     
				                      中文公告内容：
				                    
				                    
				                  
				                   
				                     
				                    是否支持html
				                      
				                      
				                      
				                  
				                
				                
				                   
				                     中英文公告标题
				                      
				                     加入时间
				                     操作
				                     操作
				                  
				                  
				                   
				                     
				                        
				                      
				                     
				                    
				                     修改
				                     删除
				                  
				                  				loop 
				%>
				                
				              
				          
				        
				      
				        
				  
				
								Set Rs = Nothing 
				Set Conn = Nothing 
				rs.close
				Conn.close
				%>