<%set rs=server.createobject("adodb.recordset")

sql="select * from jtopic order by j_id desc"

rs.open sql,conn,1,1

%>

+++++++++++ sort_in.asp +++++++++++++++++++++++++++++++++++

<%

dim cmdTemp

select case request.form("options")

case "rename"

on error resume next

Set cmdTemp = Server.CreateObject("ADODB.Command")

set rs=server.createobject("adodb.recordset")

cmdTemp.CommandText = "SELECT * FROM jtopic where j_id=" & request.form("jtop")

cmdTemp.CommandType = 1

Set cmdTemp.ActiveConnection = conn

rs.Open cmdTemp, , 1, 3

if err.Number<>0 then

err.clear

response.write "
数 据 库 操 作 失 败 ! "

else

rs("j_name") = request.form("text2")

rs("j_flag") = request.form("word2")

rs.Update

rs.Close

set rs=nothing

set cmdTemp=nothing

finished

end if

case "del"

Rem 删除栏目 /. 注释或标记语句：Rem 格式：Rem [注释或标记](解释：可以当作标记供跳转语句使用，也可以当作脚本的注释使用)

on error resume next

sql="delete from jtopic where j_id=" & request.form("jtop")

conn.execute sql

if err.Number<>0 then

err.clear

response.write "
数 据 库 操 作 失 败 ! "

else

finished

end if

case "new"

on error resume next

Set cmdTemp = Server.CreateObject("ADODB.Command")

set rs=server.createobject("adodb.recordset")

cmdTemp.CommandText = "SELECT * FROM jtopic where (j_id IS NULL)"

cmdTemp.CommandType = 1

Set cmdTemp.ActiveConnection = conn

rs.Open cmdTemp, , 1, 3

if err.Number<>0 then

err.clear

response.write "
数 据 库 操 作 失 败 ! "

else

rs.AddNew

rs("j_name") = request.form("word1")

rs("j_flag") = request.form("tui1")

rs.Update

rs.Close

set rs=nothing

set cmdTemp=nothing

finished

end if

end select

sub finished()

%>

类别修改成功！