<% 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 From Z_Job where Id="&zhcx.checknumeric(split(Id,",")(i)) Set rs=zhcx.conn(sql) if not rs.eof then 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")) num=zhcx.checkStr(request("num")) Content=htmlCode(request("Content")) Sql="Select * From Z_Job where Id="&Id Set rs=zhcx.conn(sql) if not rs.eof then '修改 Str="修改成功" else Str="添加成功" rs.addnew rs("addTime")=Now end if rs("Title")=Title rs("Content")=Content rs("num")=num rs.update rs.close set rs=nothing '生成新闻页面 Randomize Call zhcx.SuccHref(Str,"url.asp","self") End Sub %>