📄 urlindex.asp
字号:
<!--#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
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
case "del"
set rs=server.CreateObject("adodb.recordset")
conn.execute ("delete from urlindex where i like '"&clng(request("iid"))&"'")
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="99"></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="99" 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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -