<% 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 %>
当前位置 >> 日记管理 | 日记管理列表

请输入关键字: " /> [首页推荐] 将优先显示,不要太多的首页推荐!
<% KeyWord = DelStr(Request("KeyWord")) If KeyWord="" Then sql="Select * From Netsys_News_Cn order by NOrder Asc" Else sql="Select * From Netsys_News_Cn Where NTitle like '%"& KeyWord &"%' or NContent like '%"& KeyWord &"%' order by NOrder Asc" End If set rs=createobject("adodb.recordset") rs.open sql,conn,1,3 rs.pagesize=16 if not rs.eof and not rs.bof then %> <% for i=1 to rs.PageSize if rs.eof or rs.bof then exit for %> <% rs.movenext next %>
编号 标题 类型 首页推荐 对外显示 发布时间 操作 排序 选择
<%=rs("NID")%> " target="_blank" title="<%=rs("NTitle")%>"><%=leftString(rs("NTitle"),38)%>(点击率:<%=rs("NViews")%>) <% Set Rst=server.createobject("adodb.recordset") Rst.open "Select * From Netsys_News_Class_Cn Where ClassID="&rs("ClassID"),Conn,1,1 If Not Rst.eof and Not Rst.bof Then Response.Write Rst("ClassName") End If Rst.Close Set Rst=nothing %> &tuijianc=Nhome"><%Call Joleo.Judgement(rs("Nhome"))%> &tuijianc=show"><%Call Joleo.Judgement(rs("show"))%> <%=rs("NTime")%> ">修改 " name="NID<%=rs("NID")%>" id="NID<%=rs("NID")%>" /> " type="text" id="NOrder<%=rs("NID")%>" onBlur="ModifyOrder<%=rs("NID")%>()" style="width:30px; height:14px; text-align:center " onKeyUp="this.value=this.value.replace(/\D/g,'')" value="<%=rs("NOrder")%>" maxlength="8" onafterpaste="this.value=this.value.replace(/\D/g,'')"> " style="border:0px;">
全选
<% else Response.Write "
暂无信息,敬请期待!
" end if rs.close set rs=nothing conn.close set conn=nothing %>