www.gusucode.com > Follow me超级搜索引擎 > admin/typeindex1.asp
<%Response.Charset = "GB2312"%>
<!--#include file="../conn.asp"-->
<%
dbpath="../"
dblink
%>
<!--#include file="check.asp"-->
<%
dim action,id,dname
id=clng(request.QueryString("id"))
action=Server.HtmlEncode(request.querystring("action"))
dname=Server.HtmlEncode(request("dname"))
''''''''
''''''''''k
select case action
case "add"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from typeindex where name='"&dname&"' and threeid=0 and twoid=0",conn,1,1
if rs.EOF and rs.BOF then
rs.close
rs.open "select * from typeindex where threeid=0 and twoid=0 order by id desc",conn,1,1
if rs.eof and rs.bof then
id=1
else
id=rs("id")+1
end if
rs.close
rs.open "typeindex",conn,1,3
rs.AddNew
if id=0 then
rs("id")=1
else
rs("id")=id
end if
rs("name")=rTrim(dname)
rs("indexid")=clng(request("indexid"))
rs("indexshow")=Server.HtmlEncode(request("indexshow"))
rs("titlecolor")=Server.HtmlEncode(request("colorshow"))
rs.Update
rs.Close
set rs=nothing
else
response.write "<script>window.alert('你输入的分类名称:"&dname&"已经有了！');history.go(-1);</script>"
end if
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from typeindex where twoid=0 and id="&id,conn,1,3
yname=rs("name")
rs("name")=rTrim(dname)
rs("indexid")=clng(request("indexid"))
rs("indexshow")=Server.HtmlEncode(request("indexshow"))
rs("titlecolor")=Server.HtmlEncode(request("colorshow"))
rs.Update
rs.Close
set rs=nothing
%>
<!--#include File="htmlindex.asp" -->
<%
case "del"
set rs=server.CreateObject("adodb.recordset")
conn.execute ("delete from typeindex where id="&id&"")
conn.close
set conn=nothing
response.Redirect "?"
end select
%>
<HTML>
<HEAD>
<LINK rel="stylesheet" type="text/css" href="Inc/style.css">
<SCRIPT language="javascript" src="color.js"></SCRIPT>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="GENERATOR" content="Microsoft FrontPage 4.0">
<META name="ProgId" content="FrontPage.Editor.Document">
<TITLE>导航管理</TITLE>
</HEAD>
<BODY background="images/background.gif">
<TABLE width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#799AE1">
<TR>
<TD height="20" bgcolor="#799AE1" align="center"><FONT color="#FFFFFF" style="font-size:14px">首 页 网 址 导 航 管 理</FONT></TD>
</TR>
<TR>
<TD bgcolor="#FFFFFF">
<TABLE width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#D6DFF7">
<TR align="center" bgcolor="#FFFFFF" height="20">
<TD width="35">编号</TD>
<TD >导航名称</TD>
<TD >管理操作</TD>
</TR>
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from typeindex where twoid=0 and id>0 order by i",conn,1,1
dim follows
if rs.EOF and rs.BOF then
response.write"<tr bgcolor=#FFFFFF><td colspan='6'><p align='center'><font color='red'>暂无分类！</font></td></tr></table><br>"
follows=0
else
do while not rs.EOF
i=i+1
%>
<FORM name="form1" method="post" action="?action=edit&id=<%=int(rs("id"))%>">
<TR bgcolor="#FFFFFF" align="center">
<TD><%=rs("i")%></TD>
<TD><INPUT name="dname" type="text" size="12" maxlength="4" value="<%=trim(rs("name"))%>">
<input class="lkbtn" style="MARGIN-BOTTOM: -1px; PADDING-TOP: 2px" onclick="javascript:location.href='urlindex.asp?typeindexid=<%=rs("i")%>'" type="button" value="管理该分类网址" name="fanhui"></TD>
<TD><INPUT type="submit" name="Submit" value="修 改">
<%if rs("sfdel") = "1" then
else
%>
<INPUT type="button" name="DEL" onClick="{if(confirm('确定要删除这个分类吗？\n将删除此分类下所有信息\n此操作不可以恢复！')){location.href='?name=<%=rs("name")%>&action=del&id=<%=rs("id")%>';}return false;}" value="删除" >
<%end if%>
</TD>
</TR>
</FORM>
<%
rs.MoveNext
loop
follows=rs.RecordCount
end if%>
</TABLE>
<BR></TD>
</TR>
</TABLE>
</BODY>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</HTML>