save.asp

这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链接查看最新文章的列表没有生成,因为我觉得没必要生成,浪费空间大小,那是一个很少用到的功能!这次去掉了很多功能,这个版本主

<!--#include file="ReplaceRemoteUrl.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../../fn/fso.asp"-->
<!--#include file="../seeadmin.asp"-->
<%

call nadmin
%>
<%
if request.form("title")="" then
errormsg("请写标题")
end if
if request.form("author")="" then
errormsg("请写标题")
end if
if request.form("ttype")="" then
errormsg("请选择分类")
end if
dtime=now()
filename1=getfilename(dtime) & ".htm"
artical=Request.Form("content")
artical=eWebEditor_ReplaceRemoteUrl(artical,"","")
arttime=date()
title=request.form("title")
author=request.form("author")
istou=false
isgood=false
isnewimg=false
iszhuang=false
select case request.form("radionews")
case 1
isgood=true
case 2
isnewimg=true
case 3
iszhuang=true
case 4
istou=true
end select
art_type=request.form("ttype")
set rs=server.createobject("adodb.recordset")
rs.open "select * from art_file",conn,1,3
rs.addnew
rs("title")=title
rs("artical")=artical
rs("author")=author
rs("arttime")=arttime
rs("type")=art_type
rs("filename")=filename1
rs("istou")=istou
rs("isgood")=isgood
rs("isnewimg")=isnewimg
rs("iszhung")=iszhuang
rs.update
rs.close
set rs=nothing

''''添加到系统日志
set rsn=Server.CreateObject("ADODB.RECORDSET")
rsn.open "select *from sysdong",conn,1,3
rsn.addnew
rsn("koyee_user")=Session("admin")
rsn("koyee_dong")="添加文章["& title &"]"
rsn("arttime")=now()
rsn.update
rsn.close
set rsn=nothing
''''添加系统日志完毕
call OKmsg("添加完成","../add.asp")
%>