📄 admclass.asp

📁 该系统可对信息系统尽行有效的分类管理
💻 ASP
字号:
<%Option Explicit%>
<!--#include file="CONFIG.ASP"-->
<!--#include file="adoconn.asp"-->
<!--#include file="functions.asp"-->

<%
dim sql,objRS,objRS_path
dim sortid
dim i
dim thispath,p,tmp1,tmp2,tmp3
dim tmpid,tmpsortname,comment
dim pagecount,currpage,Spage,Epage,recordcount,siteabout,sitearea,sitename

sortid = Request.QueryString("sortid")
currpage = request.querystring("currpage")
if sortid = "" or not IsNumeric(sortid) then
    Response.Write("错误参数")
    Response.End
else
    sql = "select * from sort where parentID = " & Clng(sortid)
    Set objRS = Server.CreateObject("ADODB.RecordSet")
    objRS.Open sql,objConn,3,1
    sql = "select * from pathform where thispath like '%" & sortid & "'"
    Set objRS_path = objConn.Execute(sql)
    if not objRS_path.EOF then
        tmp1 = objRS_path("thispath")
        tmp2 = objRS_path("pathname")
        tmp3 = tmp2
        p = tmp2
        thispath = GetPath(tmp1,tmp2,TRUE)
        p = "<a href=""admclass.asp?sortid=" & sortid & """>首页∷" & Replace(p,chr(255),"∷") & "</a>"
        p = Server.URLEncode(p)
        tmp3 = right(tmp3,len(tmp3) - instrrev(tmp3,chr(255)))
        tmp3 = Server.HTMLEncode("<a href=""admclass.asp?sortid=" & sortid & """ target=""searchtop"">" & tmp3 & "</a>")
    end if
end if
if currpage = "" or IsNull(currpage) then currpage = 1
if not IsNumeric(currpage) then currpage = 1
currpage = Cint(currpage)
%>
<%
'Response.Write("<form name=""searchbtmform"" action=""admbtm.asp"" method=""GET"" target=""searchbtm""><input type=""hidden"" name=""sortid"" value=""" & sortid & """><input type=""hidden"" name=""p"" value=""" & tmp3 & """></form>")
'Response.Write("<script language=""JavaScript"">document.searchbtmform.submit()</script>")
%>

<HTML>
<HEAD>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>个人主页搜索系统</title>
<link href=style2.css rel=stylesheet>

<script language="JavaScript">
<!--
function mksure(sortname) {
    return(confirm('\n请三思而行！！！\n\n真的要删除 [ ' + sortname + ' ] 及其下面的所有分类和站点吗？\n\n注意，仅此一次确认！\n'));
}

function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall')
       e.checked = form.chkall.checked;
    }
  }
function CheckAll2(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall2')
       e.checked = form.chkall2.checked;
    }
  }
function mksure2() {
    if(confirm("\n真的要删除所有选中的站点吗？     \n\n")) {
        delstaform.submit();
    }
}
//-->
</script>
</HEAD>

<body bgcolor="#FFFFFF">
<!--#include file="top.htm"-->
<table border="0" width="100%" bgcolor="#FFFFFF" height="20" cellspacing="0" cellpadding="2">
  <tr bgcolor="cccc99"> 
    <td width="100%" height="3">
<table border="0" width="100%">
        <tr> 
          <form action="newsort.asp" method="GET" target="searchtop" id=form1 name=form1>
            <% 
	Response.Write("<input type=""hidden"" name=""sortid"" value=""" & sortid & """><input type=""hidden"" name=""p"" value=""" & tmp3 & """>")
    %>
            <input type="hidden" value="<%=sortid%>" name="sortid2">
            <td valign="top"><a href="admsort1.asp">首页</a><%=thispath%> </td>
            <td> 
              <input type="text" value="请输入类名" name="sortname"> 
              &nbsp; <input type="submit" value="新建分类" id=submit1 name=submit1>
              <br> <input type="text" value="新建类的说明——将以动态提示出现" name="comment" size="32"> 
            </td>
          </form>
          <form action="admsearch.asp" method="GET" target="searchtop" name=form2>
          </form>
        </tr>
      </table></td>
  </tr>
</table>
<br>
<b>分类！</b>
<%'//////////////////////////////////////  输出类名  ///////////////////////////////////////%>
<table width="100%" cellspacing="" cellpadding="" height="50">
<%do while not objRS.EOF%>
  <tr>
    <td width="33%" height="18" valign="top">             
        <ul>
          <li><%tmpid = objRS("ID") : tmpsortname = objRS("sortname") : comment = objRS("description") : if not IsNull(comment) then comment = Server.URLEncode(comment)%>
          <a href="admclass.asp?sortid=<%=tmpid%>" title="<%=objRS("description")%>"><%=tmpsortName%></a>(子类:<%=objRS("totalchild")%>)
          <br>&nbsp;&nbsp;<a href="renameclass.asp?sortid=<%=tmpid%>&parentid=<%=sortid%>&sortname=<%=Server.URLEncode(tmpsortname)%>&comment=<%=comment%>" class="top">编辑</a>|<a href="../2008admin/delclass.asp?sortid=<%=tmpid%>&parentid=<%=sortid%>" class="top" onclick="return(mksure('<%=Replace(tmpsortname,"'","’")%>'))">删除</a>|<a href="shortcut.asp?sortid=<%=tmpid%>&sortname=<%=Server.URLEncode(tmpsortname)%>&comment=<%=comment%>" class="top">首页显示</a>
          </li>       
        </ul>
    </td>
    <%objRS.MoveNext()%>
    <td width="33%" height="18" valign="top">
      <%if not objRS.EOF then%>
        <ul>
          <li><%tmpid = objRS("ID") : tmpsortname = objRS("sortname") : comment = objRS("description") : if not IsNull(comment) then comment = Server.URLEncode(comment)%>
          <a href="admclass.asp?sortid=<%=tmpid%>" title="<%=objRS("description")%>"><%=tmpsortName%></a>(子类:<%=objRS("totalchild")%>)
          <br>&nbsp;&nbsp;<a href="renameclass.asp?sortid=<%=tmpid%>&parentid=<%=sortid%>&sortname=<%=Server.URLEncode(tmpsortname)%>&comment=<%=comment%>" class="top">编辑</a>|<a href="../2008admin/delclass.asp?sortid=<%=tmpid%>&parentid=<%=sortid%>" class="top" onclick="return(mksure('<%=Replace(tmpsortname,"'","’")%>'))">删除</a>|<a href="shortcut.asp?sortid=<%=tmpid%>&sortname=<%=Server.URLEncode(tmpsortname)%>&comment=<%=comment%>" class="top">首页显示</a>
          </li>      
        </ul>   
      <%objRS.MoveNext()%>   
      <%end if%>
    </td>       
    <td width="34%" height="18" valign="top">           
      <%if not objRS.EOF then%>
        <ul>
          <li><%tmpid = objRS("ID") : tmpsortname = objRS("sortname") : comment = objRS("description") : if not IsNull(comment) then comment = Server.URLEncode(comment)%>
          <a href="admclass.asp?sortid=<%=tmpid%>" title="<%=objRS("description")%>"><%=tmpsortName%></a>(子类:<%=objRS("totalchild")%>)
          <br>&nbsp;&nbsp;<a href="renameclass.asp?sortid=<%=tmpid%>&parentid=<%=sortid%>&sortname=<%=Server.URLEncode(tmpsortname)%>&comment=<%=comment%>" class="top">编辑</a>|<a href="../2008admin/delclass.asp?sortid=<%=tmpid%>&parentid=<%=sortid%>" class="top" onclick="return(mksure('<%=Replace(tmpsortname,"'","’")%>'))">删除</a>|<a href="shortcut.asp?sortid=<%=tmpid%>&sortname=<%=Server.URLEncode(tmpsortname)%>&comment=<%=comment%>" class="top">首页显示</a>
          </li>      
        </ul>   
      <%objRS.MoveNext()%>
      <%end if%>
    </td>           
  </tr>
<%loop%>
</table>
<%'/////////////////////////////////////////////  取相关网站集  /////////////////////////////////////%>
<%
objRS.Close()
sql = "select * from stationinfo where ispass = TRUE and parentID = " & sortid & " order by id DESC"
objRS.Open sql, objConn, 3, 1

recordcount = objRS.RecordCount
objRS.PageSize = PAGESIZE
pagecount = objRS.PageCount
if currpage < 1 then
    currpage = 1
elseif currpage > pagecount then
    currpage = pagecount
end if
%>
<p>
<table border="0" width="754" cellspacing="0" cellpadding="2" bgcolor="#CCCC99">
  <tr>    
    <td width="660"><b>相关网站(<%=objRS.RecordCount%>)</b></td>    
    <td width="78"><a href="admregsta1.asp?sortid=<%=sortid%>">登记网站</a></td>    
  </tr>    
</table>
<%if not objRS.EOF then%>

<form name="delstaform" action="delsta.asp" method="POST">
<input type="hidden" name="sortid" value="<%=sortid%>">
<%
'========================================实现翻页=============================
if pagecount > 1 then
    Response.Write("<font color=red>" & currpage & "</font>/" & pagecount & " " & VbCrlf)
    Spage = currpage mod PARTSIZE
    if currpage > PARTSIZE then
        if Spage = 0 then Spage = PARTSIZE
        Spage = currpage - Spage + 1
    else
        Spage = 1
    end if
    Epage = Spage + PARTSIZE - 1
    if Epage > pagecount then Epage = pagecount
    if currpage > PARTSIZE then
        response.write("<a href=""admclass.asp?sortID=" & sortID & "&currpage=" & Spage - 1 & """>前" & PARTSIZE & "页</a>" & VbCrlf)
    end if
    for i = Spage to Epage
        if i = currpage then
            response.write("[<font style={color:red}><b>" & i & "</b></font>]" & VbCrlf)
        else
            response.write("[<a href=""admclass.asp?sortID=" & sortID & "&currpage=" & i & """>" & i & "</a>]" & VbCrlf)
        end if
    next
    if Epage < pagecount then
        response.write("<a href=""admclass.asp?sortID=" & sortID & "&currpage=" & Epage + 1 & """>后" & PARTSIZE & "页</a>" & VbCrlf)
    end if
    if Spage <> 1 then response.write("[<a href=""admclass.asp?sortID=" & sortID & "&currpage=1"">第一页</a>]")
    if Epage <> pagecount then response.write("[<a href=""admclass.asp?sortID=" & sortID & "&currpage=" & pagecount & """>最末页</a>]" & VbCrlf)
    response.write("<br><br>")
end if
%>
<span class="top"><input type="checkbox" name="chkall" onclick="CheckAll(this.form)">选中所有站点</span>&nbsp;&nbsp;<input type="button" value="删除选中的站点" onclick="mksure2()"><br>
<%

'//////////////////////////////////////////////  输出相关网站  ////////////////////////////////////
Response.Write("<ul>" & VbCrlf)
if not objRS.EOF then objRS.AbsolutePage = currpage
for i = 1 to PAGESIZE
	if objRS.EOF then exit for
	Response.Write("<LI type=""disc"">")
	Response.Write("<input type=""checkbox"" name=""staid"" value=""" & objRS("ID") & """>[<a href=""modify1.asp?staid=" & objRS("ID") & "&p=" & p & """ class=""top"">编辑</a>]" & VbCrlf)
	Response.Write("<a href=""" & objRS("stationurl") & """ target=""_blank"">" & objRS("stationname") & "</a> <b>" & objRS("stationlang") & "</b> "& VbCrlf)
%>

<% if objRS("theTop")="0" then%>
<a href="infotop.asp?staid=<%=objRS("ID")%>&admTop=1"><img src="pic/1-.gif" alt="点击：首页显示" border="0"></a>
<%else%>
<a href="infotop0.asp?staid=<%=objRS("ID")%>&admTop=1"><img src="pic/1.gif" alt="去除首页显示" border="0"></a>
<%end if%>
<% if objRS("theTopA")="0" then%>
<a href="infotop.asp?staid=<%=objRS("ID")%>&admTop=2"><img src="pic/2-.gif" alt="点击：全站置顶" border="0"></a>
<%else%>
<a href="infotop0.asp?staid=<%=objRS("ID")%>&admTop=2"><img src="pic/2.gif" alt="去除全站置顶" border="0"></a>
<%end if%>
<% if objRS("theTopB")="0" then%>
<a href="infotop.asp?staid=<%=objRS("ID")%>&admTop=3"><img src="pic/4-.gif" alt="点击：分类置顶" border="0"></a>
<%else%>
<a href="infotop0.asp?staid=<%=objRS("ID")%>&admTop=3"><img src="pic/4.gif" alt="去除分类置顶" border="0"></a>
<%end if%>

<%
	Response.Write("    <br>网站地址：" &objRS("stationurl")& "<br>联系地址："&objRS("whopost")  & VbCrlf)
	Response.Write("    <dl>" & VbCrlf)
	Response.Write("    网站简介：" & objRS("siteabout") & "<br>联系电话："&objRS("sitearea") & "<br>联系人："&objRS("sitename") & "<br>E_mail："&objRS("email") &VbCrlf)
	Response.Write("        <dd>" & objRS("description") & "<br><font style={font-size:10.5pt;color:#c0c0c0}>——<i> <a href=""mailto:" & objRS("email") & """ class=""e1"">（" & objRS("email") & "）</a>" &  objRS("thisdate") & " 点击:" & objRS("visitcount") & "</i></font>" & VbCrlf)
	Response.Write("    </dl>" & VbCrlf)
	Response.Write("</li>" & VbCrlf)
	objRS.MoveNext()
next
Response.Write("</ul>" & VbCrlf)
%>
<span class="top"><input type="checkbox" name="chkall2" onclick="CheckAll2(this.form)">选中所有站点</span>&nbsp;&nbsp;<input type="button" value="删除选中的站点" onclick="mksure2()" id=button1 name=button2><br>
<%
if pagecount > 1 then
    Response.Write("<br>")
    Response.Write("<font color=red>" & currpage & "</font>/" & pagecount & " " & VbCrlf)
    if currpage > PARTSIZE then
        response.write("<a href=""admclass.asp?sortID=" & sortID & "&currpage=" & Spage - 1 & """>前" & PARTSIZE & "页</a>" & VbCrlf)
    end if
    for i = Spage to Epage
        if i = currpage then
            response.write("[<font style={color:red}><b>" & i & "</b></font>]" & VbCrlf)
        else
            response.write("[<a href=""admclass.asp?sortID=" & sortID & "&currpage=" & i & """>" & i & "</a>]" & VbCrlf)
        end if
    next
    if Epage < pagecount then
        response.write("<a href=""admclass.asp?sortID=" & sortID & "&currpage=" & Epage + 1 & """>后" & PARTSIZE & "页</a>" & VbCrlf)
    end if
    if Spage <> 1 then response.write("[<a href=""admclass.asp?sortID=" & sortID & "&currpage=1"">第一页</a>]")
    if Epage <> pagecount then response.write("[<a href=""admclass.asp?sortID=" & sortID & "&currpage=" & pagecount & """>最末页</a>]" & VbCrlf)
    response.write("<br>")    
end if
%>
</form>
<%end if%>
<br><center>
<hr noshade size=1>
</body>     
     
</html>     
<%
objConn.Close()
Set objRS = nothing
Set objRS_path = nothing
Set objConn = nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -