<%
if Request.Cookies("admindj")<>"1" then
Response.Write "
权限不足，你没有此功能的管理权限"
Response.end
end if
%>
<%
editid=trim(Request("editid"))
saveid=trim(Request("saveid"))
title=trim(Request("title"))
mb=trim(Request("mb"))
icon=trim(Request("icon"))
titlen=trim(request("titlen"))
pagets=trim(request("pagets"))
titleline=trim(request("titleline"))
if editid="" and saveid="" and title<>"" and mb<>"" then
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select top 1 * from [Newszt] order by id desc",conn,1,3
rs.addnew
rs("title")=title
rs("mb")=mb
rs("icon")=icon
rs("titlen")=titlen
rs("pagets")=pagets
rs("titleline")=titleline
rs.update
rs.close:set rs=nothing
Response.Write " "
elseif editid<>"" and saveid="" and title="" and mb="" then
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [NewsZT] where ID="&editid&" order by id desc",conn,1,1
if rs.recordcount<>0 then
etitle=rs("title")
emb=rs("mb")
eIcon=rs("icon")
etitleline=rs("titleline")
epagets=rs("pagets")
etitlen=rs("titlen")
end if
rs.close:set rs=nothing
elseif editid="" and saveid<>"" and title<>"" and mb<>"" then
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [NewsZT] where ID="&saveid&" order by id desc",conn,1,3
if rs.recordcount<>0 then
rs("title")=title
rs("mb")=mb
rs("icon")=icon
rs("pagets")=pagets
rs("titleline")=titleline
rs.update
end if
rs.close:set rs=nothing
Response.Write " "
end if
%>
<%
conn.close
set conn=nothing
%>