www.gusucode.com > Follow me超级搜索引擎 > admin/urlindex.asp

    <%Response.Charset = "GB2312"%>
<!--#include file="../conn.asp"-->
<%
dbpath="../"
dblink
%>
<!--#include file="check.asp"-->

<%
dim action,id,dname
id=clng(request("typeindexid"))
action=Server.HtmlEncode(request.querystring("action"))
dname=Server.HtmlEncode(request("dname"))
''''''''
''''''''''k
select case action

case "add"
if request("dname")="" or request("weburl")=""  then
   response.write "<script language='javascript'>"
   response.write "alert('网站名称和网站网址不能为空');"
   response.write "  history.go(-1);"
   response.write "</script>"
   response.end 
end if
set rs=server.CreateObject("adodb.recordset")
 rs.open "select * from urlindex where name='"&dname&"' and id like '"&id&"' ",conn,1,1
         if rs.EOF and rs.BOF then
           rs.close
    rs.open "select * from urlindex order by id desc",conn,1,3

	rs.AddNew

rs("id")=id
rs("name")=rTrim(dname)
rs("weburl")=rTrim(request("weburl"))
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" -->
<%
else
response.write "<script>window.alert('你输入的网站名称:"&dname&"已经有了!');history.go(-1);</script>"
end if
case "edit"
if request("dname")="" or request("weburl")=""  then
   response.write "<script language='javascript'>"
   response.write "alert('网站名称和网站网址不能为空');"
   response.write "  history.go(-1);"
   response.write "</script>"
   response.end 
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from urlindex where i like '"&clng(request("iid"))&"'",conn,1,3
yname=rs("name")
rs("name")=rTrim(dname)
rs("weburl")=rTrim(request("weburl"))
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 urlindex where i like '"&clng(request("iid"))&"'")
%>
<!--#include File="htmlindex.asp" -->
<%
conn.close   
set conn=nothing
response.Redirect "?typeindexid="&request("typeindexid")&"" 
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>网站名称</TD>
          <TD>网站网址</TD>
          <TD>显示顺序</TD>
          <TD>是否显示</TD>

          <TD>确定操作</TD>
        </TR>
        <FORM name="form1" method="post" action="?action=add&typeindexid=<%=request("typeindexid")%>">
          <TR align="center" bgcolor="#FFFFFF"> 

	        <TD><INPUT name="dname" type="text" id="dname" size="12" maxlength="20"></TD>
	        <TD><INPUT name="weburl" type="text"  size="25" maxlength="255"></TD>
	        <TD><INPUT name="indexid" type="text" value="0" size="2" onkeyup="if(isNaN(value))execCommand('undo')"></TD>
	        <TD><SELECT name="indexshow">
                <OPTION value="yes" selected>是</OPTION>
                <OPTION value="no">否</OPTION>
            </SELECT></TD>

	        <TD><INPUT type="submit" name="Submit3" value="添 加" onClick="if(dname.value==''){alert('网站名不能为空');return false;}"></TD>
          </TR>
        </FORM>
      </TABLE>
	<BR></TD>
  </TR>
</TABLE>
<br>




<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="30">编号</TD>
          <TD>网站名称</TD>
          <TD>网站网址</TD>
          <TD>显示顺序</TD>
          <TD>是否显示</TD>

          <TD>管理操作</TD>
        </TR>
        <%set rs=server.CreateObject("adodb.recordset")
		  rs.Open "select * from urlindex where id like '"&request("typeindexid")&"'  order by indexid desc,i",conn,1,1
		  dim follows
		  if rs.EOF and rs.BOF then
          response.write"<tr bgcolor=#FFFFFF><td colspan='7'><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&iid=<%=int(rs("i"))%>&typeindexid=<%=request("typeindexid")%>">
          <TR bgcolor="#FFFFFF" align="center">
		  <TD><%=i%></TD>
            <TD><INPUT name="dname" type="text" size="12" maxlength="20" value="<%=trim(rs("name"))%>"></TD>
            <TD><INPUT name="weburl" type="text" size="25" maxlength="255" value="<%=trim(rs("weburl"))%>"></TD>
            <TD><INPUT name="indexid" onkeyup="if(isNaN(value))execCommand('undo')" type="text" size="2" value="<%=trim(rs("indexid"))%>"></TD>
            <TD><SELECT name="indexshow">
<OPTION value="yes" <%if rs("indexshow")="yes" then%>selected<%end if%>>是</OPTION>
<OPTION value="no" <%if rs("indexshow")="no" then%>selected<%end if%>>否</OPTION>
                    </SELECT></TD>

            <TD><INPUT type="submit" name="Submit" value="修 改">
<%if rs("sfdel") = "1" then
else
%> 


&nbsp; <INPUT type="button" name="DEL" onClick="{if(confirm('确定要删除这个网站网址吗?\n将删除此网站网址下所有信息\n此操作不可以恢复!')){location.href='?name=<%=rs("name")%>&action=del&iid=<%=rs("i")%>&typeindexid=<%=request("typeindexid")%>';}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>