当前位置 >>> 文章内容
<% if request("act")="addact" then rs.open "texts",conn,3,3 rs.movelast rs.addnew rs("fid")=request("fid") rs("pic")=request("pic") rs("title")=request("title") rs("info")=request("info") rs("addtime")=request("addtime") rs("click")=0 rs("orders")=0 rs.update rs.close if Err.Number=0 then response.write "" else response.write "" end if elseif request("act")="edit" then sql="select * from texts where tid="&request("tid") rs.open sql,conn,3,3 rs("pic")=request("pic") rs("title")=request("title") rs("info")=request("info") rs("addtime")=request("addtime") rs("orders")=request("orders") rs.update rs.close if Err.Number=0 then response.write "" else response.write "" end if elseif request("act")="del" then conn.Execute("delete from texts where tid="&request("tid")) if Err.Number=0 then response.write "" else response.write "" end if elseif request("act")="modi" then sql="select * from forum where fid="&request("fid") rs2.open sql,conn,1,1 sql="select * from texts where fid="&request("fid")&" and tid="&request("tid") rs.open sql,conn,1,1 %>
"> ">
修改[<%=rs2("name")%>]
文章标题 ">
发布时间 " onClick="WdatePicker()"/>
排序 ">
文章内容

   
<% rs2.close elseif request("act")="add" then sql="select * from forum where fid="&request("fid") rs2.open sql,conn,1,1 %>
">
添加[<%=rs2("name")%>]
文章标题
发布时间
文章内容

   
<% rs2.close else sql="select * from forum where fid="&request("fid") rs2.open sql,conn,1,1 %>
">添加新的[<%=rs2("name")%>]文章
<% sql="select * from texts where fid="&request("fid")&" order by orders,addtime desc,tid desc" rs.open sql,conn,1,1 if not rs.eof then rs.pagesize=20 if cint(request("page"))>rs.pagecount or cint(request("page"))<=0 then pagenum=1 else pagenum=cint(request("page")) end if i=0 rs.move (pagenum-1)*rs.pagesize do while not (rs.eof or i>=rs.pagesize) %> <% i=i+1 rs.movenext loop else %> <% end if %>
编辑<%=rs2("name")%>
序号 [ 排序 ] 文章标题
<%=rs("tid")%> [ <%=rs("orders")%> ] <%=rs("title")%> [ &tid=<%=rs("tid")%>&page=<%=pagenum%>"> | &tid=<%=rs("tid")%>&page=<%=pagenum%>" onClick="{if(confirm('删除不可恢复，确定删除吗?')){return true;}return false;}"> ]
<% response.write "暂无["&rs2("name")&"]信息！" %>

当前为第 <%=pagenum%> 页/ <%=rs.pagecount %> 页，总计 <%=rs.recordcount %> 条，每页显示 <%=rs.pagesize %> 条。
［ <% for j=1 to pagenum-1 response.write " "&cstr(j)&" " next response.write " "&pagenum&" " for j=pagenum+1 to rs.pagecount response.write " "&cstr(j)&" " next %> ］

<% rs.close rs2.close end if %>