<%call log_chk()%>
<%if request("myact")="add" then
dim thename,theOrd,thenote,picpath
thename=trim(request("thename"))
theOrd=trim(request("theOrd"))
thenote=request("thenote")
picpath=request("picpath")
if thename<>"" then
Set rs=Server.Createobject("Adodb.Recordset")
sql="select * from cbclass where cb_name='"&thename&"'"
rs.open sql,conn,1,3
if not rs.eof and not rs.bof then
call backurl("该类名已存在")
else
rs.addnew
rs("cb_name")=thename
if theOrd<>"" then
rs("cb_order")=theOrd
end if
rs("cb_note")=thenote
rs("Fileurl")=picpath
rs("cb_wtime")=now()
rs.update
rs.close
set rs=nothing
response.Redirect("PCMag.asp")
end if
else
call backurl("类名不能为空！")
end if
end if
%>
 |
后台管理：>> 大类添加 |