category.asp

视频源代码 视频源代码

<%
If categoryid="" then
  categoryid=Session("categoryid")
End If
If Request("categoryid")><"" then
  categoryid=strFilter(Request("categoryid"),10)
End If

If categoryid="" then
  call msgbox("请正确指定分类！",1)
End If
If not isnumeric(categoryid) then
  call msgbox("请正确指定分类！",1)
End If

categoryid=CCur(categoryid)
Session("categoryid")	=categoryid

sql="select top 1 categoryname,categoryindex,categorysort,categorypath,categorysave,categorymode from category where categoryid="&categoryid
rs.open sql,conn,1,1
If not rs.eof then
  cname=rs(0)
  cindex=rs(1)
  csort=rs(2)
  cpath=rs(3)
  csave=rs(4)
  cmode=rs(5)
Else
  rs.close
  call msgbox("该分类不存在！",1)
End If
rs.close

If instr(cindex,".")=0 then
  cindex=cindex&".1"
End If
cindex=split(cindex,".")
%>