matrix3_newf_save.asp

这是ASP的OA

<!-- #include file="const.asp" -->
<%
dim CID,sql,rs,ftitle,fprofile,fadmin,i,FID,fpic,authent,authentlist,Fvalid
CID=nrequest2("CID")
FID=request("FID")
authent=cint(request.form("authent"))
ftitle=trim(request.form("ftitle"))
fadmin=trim(request.form("fadmin"))
fpic=trim(request.form("fpic"))
fprofile=trim(request.form("fprofile"))
authentlist=trim(request.Form("authentlist"))
authentlist=replace(replace(authentlist,"，",",")," ","")
Fvalid=nrequest2("Fvalid")
if FID="" or (not isnumeric(FID)) then FID="0"
if Ftitle="" then
	call msg("请填写论坛名字")
else
	call opendb()
	checkadmin()
	sql="select * from m3_forum where FID="&FID&""
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
		rs.addnew
		rs("CID")=CID
		rs("FTitle")=ftitle
		rs("FAdmin")=fadmin
		rs("Fprofile")=fprofile
		rs("FPic")=fpic
		rs("Fcreatetime")=now()
		rs("FIndex")=1000
		rs("Fvalid")=Fvalid
		rs("authent")=authent
		if authent=1 then rs("authentlist")=authentlist
	else
		rs("CID")=CID
		rs("FTitle")=ftitle
		rs("FAdmin")=fadmin
		rs("FProfile")=fprofile
		rs("FPic")=fpic
		rs("authent")=authent
		rs("Fvalid")=Fvalid
		if authent=1 then rs("authentlist")=authentlist
	end if
	rs.update
	rs.close
	sql="select * from m3_forum order by FIndex asc"
	rs.open sql,conn,1,3
	i=1
	do while not rs.eof
		rs("FIndex")=i
		i=i+1
		rs.update
		rs.movenext
	loop
	rs.close
	set rs=nothing
	call closedb()
	response.Redirect "matrix3_admin.asp"
end if
%>