权限不足，你没有此功能的管理权限" Response.end end if Function finddir(filepath) finddir="" for i=1 to len(filepath) if left(right(filepath,i),1)="/" or left(right(filepath,i),1)="\" then abc=i exit for end if next if abc <> 1 then finddir=left(filepath,len(filepath)-abc+1) end if finddir=replace(finddir,"admin/","") end Function %>

<% delid=trim(Request("delid")) if delid<>"" then conn.Execute "delete from [NewsZt] where ID="&CInt(delid) end if set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select id,title from [NewsZt] order by id desc",conn,1,1 if rs.recordcount<>0 then page=int(request("page")) rs.PageSize=20 pagecount=rs.pagesize if page<=0 then page=1 if request("page")="" then page=1 rs.AbsolutePage=page for i=1 to pagecount id=rs("id") %> <% rs.movenext if rs.eof then exit for next end if %>

专题	文章数量	操作
<%=rs("title")%>(ID:<%=rs("id")%>)	<% set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open "select id,ztid from [News] where ztid="&ID&" order by id desc",conn,1,1 Response.Write rs2.recordcount rs2.close:set rs2=nothing %>	修改删除

<%if rs.recordcount<>0 then if page>1 then response.write "首页　" response.write "上一页　" end if if page下一页　" response.write "尾页　" end if response.write "共"&rs.recordcount&"条　每页显示"&pagecount&"条　共"&rs.pagecount&"页　" %> <%end if%>

JS调用：
<script TYPE="text/javascript" language="javascript" src="<%=config("path")%>newscodeztjs.asp?ztid=ID&list=10&icon=1&tj=0&font=9&hot=0&new=1&line=2&lmname=0&open=1&n=20&more=1&t=0&week=0&zzly=0&hit=0&pls=0"></script>

图片方式JS调用：
<script TYPE="text/javascript" language="javascript" src="<%=finddir(request.servervariables("URL"))%>js-zt-pic.asp?ztid=ID&W=100&H=100&font=9&x=1&y=1"></script>　

JS专题标题调用：
<script TYPE="text/javascript" language="javascript" src="<%=finddir(request.servervariables("URL"))%>js-zt.asp?list=10&n=30&font=9&line=20&color=000000"></script>

<% rs.close:set rs=nothing conn.close:set conn=nothing %>