<%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 csclass where cs_name='"&thename&"'"
rs.open sql,conn,1,3
'if not rs.eof and not rs.bof then
' call backurl("该类名已存在")
' else
rs.addnew
rs("cs_name")=thename
if theOrd<>"" then
rs("cs_order")=theOrd
end if
rs("cs_note")=thenote
rs("Fileurl")=picpath
rs("cs_wtime")=now()
rs("cb_id")=Bid
rs.update
rs.close
set rs=nothing
response.Redirect("PCMag.asp")
'end if
else
call backurl("类名不能为空！")
end if
end if
%>
 |
后台管理：>> 小类添加 |