<% option explicit %>
<%
if session("purview")<>"99999" then
response.write "错误!!您没有权限或者连接超时,请重新登陆." %>
登陆
<% response.end
end if
dim isedit '是否在修改状态
dim color '表格颜色
dim sql,rs,rsc
dim border
border=""
color=1
isedit=false
if request("action")="edit" then
isedit=true
end if
if request("action")="modify" then '**************************修改专栏*********************
if trim(request("bordername"))="" then
response.write "错误!专栏名称不能为空! 返回"
response.end
end if
set rs=server.createobject("adodb.recordset") '检查专栏是否重名
rs.open "select * from border where bordername='" & trim(request("bordername")) & "' and typeid=" & cstr(request("typeid")),conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else if not rs.bof and not rs.eof then
response.write "错误!该专栏已存在! 返回"
response.end
end if
end if
rs.close
set rs=nothing
sql="update border set bordername='" & cstr(trim(request("bordername"))) & "',typeid=" & cstr(request("typeid")) & " where borderid=" & cstr(request("borderid"))
conn.execute sql
if err.number <> 0 then
response.write "数据库操作出错:" + err.description
else %>
<%end if
end if
if request("action")="add" then '******************************添加新专栏************************
if trim(request("bordername"))="" or request("typeid")="" then
response.write "错误!专栏名称或所属版面不能为空! 返回"
response.end
end if
set rs=server.createobject("adodb.recordset") '检查专栏是否重名
rs.open "select * from border where bordername='" & trim(request("bordername")) & "' and typeid=" & cstr(request("typeid")),conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else if not rs.bof and not rs.eof then
response.write "错误!该专栏已存在! 返回"
response.end
end if
end if
rs.close
set rs=nothing
sql="insert into border(bordername,typeid) values('" & trim(request("bordername")) & "'," & cstr(request("typeid")) & ")"
conn.execute sql
if err.number <> 0 then
response.write "数据库操作出错:" + err.description
else %>
<%end if
end if
if request("action")="del" then '**********************删除专栏**********************
sql="delete from border where borderid=" & cstr(request("borderid"))
conn.execute sql
if err.number <> 0 then
response.write "数据库操作错误：" + err.description
err.clear
else
sql="delete from news where borderid=" & cstr(request("borderid")) '删除该专栏下的全部新闻
conn.execute sql
%>
<% end if
end if
%>
管理专栏
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from border where bordername<>'无专栏文章' order by typeid ",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "目前没有任何专栏"
else %>
">
<% set rsc=server.createobject("adodb.recordset")
rsc.open "select * from type where typeid=" & cstr(rs("typeid")) ,conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if rsc.bof and rsc.eof then
border="无效专栏"
else
border=rsc("typename")
end if
end if
rsc.close
set rsc=nothing
%>
<% rs.movenext
color=color+1
loop
end if
end if
'rs.close
set rs=nothing
%>
<% if isedit then
set rs=server.createobject("adodb.recordset")
rs.open "select * from border where borderid=" & cstr(request("borderid")),conn,1,1
response.write "编 辑 专 栏 "
else
response.write "添 加 新 专 栏 "
end if %>