<%Session.CodePage=65001%>
BdeCMS网站后台管理登陆
<%call log_chk()%>
<%
if request("myact")="mod" then
dim theName,oldName,theX,theOrd,thenote,picpath
theX=trim(request("theX"))
theName=trim(request("thename"))
oldName=trim(request("oldname"))
theOrd=trim(request("theOrd"))
thenote=request("thenote")
picpath=request("picpath")
if theName="" then
call backurl("类名不能为空！")
end if
'-------------------------------------------------类名是否存在
if theName<>oldName then
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from nbclass where nb_name='"&theName&"'"
rs.open sql,conn,1,3
if not rs.eof then
call backurl("该类名已存在!")
end if
rs.close
set rs=nothing
end if
'-------------------------------------------------'修改写
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from nbclass where nb_id="&theX&""
rs.open sql,conn,1,3
if rs.eof then
call backurl("容错是个好习惯!")
else
rs("nb_name")=theName
rs("nb_wtime")=now()
if theOrd<>"" then
rs("nb_order")=theOrd
end if
rs("nb_note")=thenote
rs("Fileurl")=picpath
rs.update
rs.close
end if
set rs=nothing
call GoUrl("NCBMod.asp?thex="&thex&"","修改成功！")
end if
%>
后台管理：>> 大类修改
<%
theX=trim(request("theX"))
Set rsbig=Server.Createobject("Adodb.Recordset")
sql="select * from nbclass where nb_id="&theX&""
rsbig.open sql,conn,1,3
if not rsbig.eof and not rsbig.bof then
%>
