<%
If Request("action")="Change" Then '更改数量
'更改数量
if Request("NOrder")="" or Not(isNumeric(Request("NOrder"))) then
NOrder=1
else
NOrder=Cint(request("NOrder"))
end if
if Request("NID")="" or Not(isNumeric(Request("NID"))) then
Response.Redirect "Netsys_List.asp"
Response.End()
end if
Set Rs=Server.Createobject("adodb.recordset")
Sql="Select * From Netsys_News_Cn Where NID="&Request("NID")&""
Rs.open Sql,Conn,1,3
if not Rs.eof then
Rs("NOrder") = Request("NOrder")
Rs.update
end if
Rs.close
Set Rs=nothing
Response.Redirect "Netsys_List.asp"
Response.End
End If
%>
当前位置 >> 日记管理
| 日记管理列表
"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>