<!--#include file="../Inc/global.asp"-->

<%
response.charset="gb2312"
Chk_Admin_Login()
Action=zhcx.CheckRequest(request("Action"))

Select Case lcase(Action)
Case "del"
Call Del()
Case "save"
Call Save()
Case else
zhcx.ErrAlert("非法操作")
end select

Sub Del()
Dim Id,pathhtml,class_Id
Id=zhcx.checkstr(request("Id"))
if Id="" then
zhcx.ErrAlert("参数错误")
end if
For i=0 to ubound(split(Id,","))
Sql="Select Id,pathhtml From Z_zj where Id="&zhcx.checknumeric(split(Id,",")(i))
Set rs=zhcx.conn(sql)
if not rs.eof then
pathhtml=trim(rs(1))
rs.delete
end if
rs.close
set rs=nothing
'删除文件
Call Del_file(Syspath&pathhtml)

Next
Call zhcx.SuccHref("删除成功","Dir.asp","self")
End Sub

Sub Save()
Id=zhcx.checknumeric(request("Id"))
Title=zhcx.checkStr(request("Title"))
zw=zhcx.checkStr(request("zw"))
content=request("content")
P_title=zhcx.checkStr(request("P_title"))
P_keyword=zhcx.checkStr(request("P_keyword"))
P_description=zhcx.checkStr(request("P_description"))
pathhtml="column/"&getPath()

if Content<>"" then
else
zhcx.ErrAlert("内容不能为空")
end if

if P_title<>"" then
else
P_title=Title
end if

if P_keyword<>"" then
else
P_keyword=Title
end if

if P_description<>"" then
else
P_description=trim(content)
P_description=trim(titlen(RemoveHTML(P_description),100,0))
end if


Sql="Select * From Z_zj where Id="&Id
Set rs=zhcx.conn(sql)
if not rs.eof then
'修改
Str="修改成功"
else
Str="添加成功"
rs.addnew
rs("addTime")=Now
rs("pathhtml")=pathhtml
end if
rs("Title")=Title
rs("zw")=zw
rs("Content")=Content
rs("P_title")=P_title
rs("P_keyword")=P_keyword
rs("P_description")=P_description
rs.update
rs.close
set rs=nothing

if Id=0 then
Id=getNewsTopId()
End if

'生成新闻页面
Randomize
Call zhcx.SuccHref(Str,"url.asp?Id="&Id,"self")
End Sub

Function getNewsTopId()
Sql="Select Id From Z_zj order by id desc"
Set rs=zhcx.conn(sql)
if not rs.eof then
getNewsTopId=rs(0)
else
exit function
End if
rs.close
set rs=nothing
End Function

function getPath()
dim sql,rs,info
Sql="Select top 1 Id From Z_zj  order by id desc"
Set rs=zhcx.conn(sql)
if not rs.eof then
info=rs(0)
else
info=0
end if
rs.close
set rs=nothing
info=info&".html"
getPath=info
end function

%>