model_save.asp

网络考试系统 （１）用户注册（２）在线考试（３）在线练习等等。后端通过系统管理员管理包括：（１）用户及权限管理（２）试卷管理（３）成绩管理（４）试题管理（５）题库管理（６）考生信息管理等等。

<!--#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")
%>