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
%>
