matrix3_newc_save.asp

来自「这是ASP的OA」· ASP 代码 · 共 51 行

<!-- #include file="const.asp" -->
<%
dim CID,sql,rs,ctitle,cprofile,cadmin,i,cpic,cvalid
CID=request("CID")
ctitle=trim(request.form("ctitle"))
cadmin=trim(request.form("cadmin"))
cprofile=trim(request.form("cprofile"))
cpic=trim(request.form("cpic"))
cvalid=cint(request.Form("Cvalid"))
if CID="" or (not isnumeric(CID)) then CID="0"
if ctitle="" then
	call msg("请填写分区名字")
else
	call opendb()
	checkadmin()
	sql="select * from m3_category where CID="&CID&""
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
		rs.addnew
		rs("CTitle")=ctitle
		rs("CAdmin")=cadmin
		rs("Cprofile")=cprofile
		rs("CPic")=cpic
		rs("Ccreatetime")=now()
		rs("CIndex")=1000
		rs("Cvalid")=Cvalid
	else
		rs("CTitle")=ctitle
		rs("CAdmin")=cadmin
		rs("Cprofile")=cprofile
		rs("CPic")=cpic
		rs("Cvalid")=Cvalid
	end if
	rs.update
	rs.close
	sql="select * from m3_category order by CIndex asc"
	rs.open sql,conn,1,3
	i=1
	do while not rs.eof
		rs("CIndex")=i
		i=i+1
		rs.update
		rs.movenext
	loop
	rs.close
	set rs=nothing
	call closedb()
	response.Redirect "matrix3_admin.asp"
end if
%>