gdflsdf fkspofql owjlfkjsoijdf sdjfo

源代码在线查看: adminother.asp

软件大小: 610 K
上传用户: ranzige
关键词: owjlfkjsoijdf fkspofql gdflsdf sdjfo
下载地址: 免注册下载 普通下载 VIP

相关代码

				
				
				
				
								call hacker()
				if session("admin")"axsj" then
				response.Write "alert('您还没有登陆!');this.location.href='index.asp';"
				Response.End
				end if
				call adminjj()
				adminname=session("adminname")
				adminsuper=session("adminsuper")
				%>
				
				
				
				
				-后台管理系统
				
				
				
				
				
				  
				  
				  
				    
										   call adminleft()%>
					      
				         
				    
				
					
					 				if request("type")"edit" then	
				action=request("action")
				select case action
				case "add"
				call add()
				case "del":
				call del()
				case "cng"
				call cng()
				
				end select
				
				sub add()
				
				set rs1=server.createobject("adodb.recordset")
				sql1="select * from other"
				rs1.open sql1,cn,3,3
				rs1.addnew
				rs1("title")=request.Form("title")
				rs1("content")=request.Form("content")
				rs1.update
				response.Write"上一步操作:添加"&rs1("title")&"成功!"
				rs1.close
				set rs1=nothing
				end sub
				
				sub del()
				set rs1=server.CreateObject("adodb.recordset")
				sql1="select * from other where id="&request("id")
				rs1.open sql1,cn,1,3
				rs1.delete
				response.Write"上一步操作:删除成功!"
				rs1.close
				set rs1=nothing
				end sub
				
				sub cng()
				set rs1=server.CreateObject("adodb.recordset")
				sql1="select * from other where id="&request("id")
				rs1.open sql1,cn,1,3
				rs1("title")=request.Form("title")
				rs1("content")=request.Form("content")
				rs1.update
				response.Write"上一步操作:修改成功!"
				rs1.close
				set rs1=nothing
				end sub
				%>
				
				      
				      
				        底下导航名称
				        选项
				      
					  
					     					set rs =cn.execute(sqlstr) '利用connection的execute方法运行SQL命令
					Do While (Not RS.Eof)
				   %>
					  
				      
				        
				        修改
				      
					    	  				   rs.movenext
				   loop
				   set rs =nothing
				   else
				set rs1=server.CreateObject("adodb.recordset")
				sql1="select * from other where id="&request("id")
				rs1.open sql1,cn,1,2
				%>
				   
				     频道标题:数据载入比较慢,请耐心等待再修改!
				   				   '这里调用了sub/inc.asp文件,这里是修改的功能,当然要先显示数据库里的content字段,我不知怎么弄
				   call html()
				   %>
				   
				   
				   
				   
				   
				function ax(){
				IframeID.document.body.innerHTML=document.all("content").value;
				document.all("content").value="";
				}
				function chk(){
				document.all("content").value=IframeID.document.body.innerHTML;
				if(document.form1.title.value==""){
				alert("频道标题不能为空");
				document.form1.title.focus();
				return false;}
				if(IframeID.document.body.innerHTML==""){
				alert("频道内容不能为空");
				IframeID.document.body.focus();
				return false;}
				return true;}
				
				
				   				set rs1=nothing
				   end if
				   %> 
				   
				   
				   
				  
				
				
				
				
				
							

相关资源