<%Session.CodePage=65001%>
BdeCMS网站后台管理登陆
<%call log_chk()%>
<%if request("myact")="add" then
dim thename,theOrd,thenote,picpath,Bid
thename=trim(request("thename"))
theOrd=trim(request("theOrd"))
thenote=request("thenote")
picpath=request("picpath")
Bid=request("Bid")
if thename<>"" then
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from nsclass where ns_name='"&thename&"'"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
call backurl("该类名已存在")
else
rs.addnew
rs("ns_name")=thename
if theOrd<>"" then
rs("ns_order")=theOrd
end if
rs("ns_note")=thenote
rs("Fileurl")=picpath
rs("ns_wtime")=now()
rs("nb_id")=Bid
rs.update
rs.close
set rs=nothing
response.Redirect("NCMag.asp")
end if
else
call backurl("类名不能为空！")
end if
end if%>
