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 %> <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>