<!--#include file="ReplaceRemoteUrl.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../../fn/fso.asp"-->
<!--#include file="../seeadmin.asp"-->
<!--#include file="md5.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="model" & md5(getfilename(dtime)) & ".shtml"
artical=Request.Form("content")
'artical=eWebEditor_ReplaceRemoteUrl(artical,"","")
arttime=date()
title=request.form("title")
author=request.form("author")
height=request.form("height")
weight=request.form("weight")
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
if isnewimg=true and Request.Form("pic1")="" then
errormsg("選擇了圖版新聞就要上傳圖片,在首頁顯示的以最后一張圖片為主")
end if
pic1=request.form("pic1")
art_type=request.form("ttype")
set rs=server.createobject("adodb.recordset")
rs.open "select * from model",conn,1,3
rs.addnew
rs("title")=title
rs("artical")=artical
rs("author")=author
rs("height")=height
rs("weight")=weight
rs("arttime")=arttime
rs("type")=art_type
rs("filename")=filename1
rs("istou")=istou
rs("isgood")=isgood
rs("isnewimg")=isnewimg
rs("iszhung")=iszhuang
rs("pic1")=pic1
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("添加完成","../model_add.asp")
%>