www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > admin/news/sortname.asp
<!--#include file="../inc/Conn.asp"-->
<!--#include file="../inc/admin.asp"--><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../Admin_Style.css">
<title>后台管理--增加类别</title>
</head>
<SCRIPT language=javascript>
function ConfirmDel()
{
if(confirm("确定要删除选中的记录吗？一旦删除将不能恢复！"))
return true;
else
return false;
}
</SCRIPT>
<table cellpadding="2" cellspacing="1" border="0" width="500" class="border" align=center height="30">
<%if request("id")<>"" then
key=request("id")
set tp=server.createobject("adodb.recordset")
sqll="select * from newsname where id="&key
tp.open sqll,conn,3,3
lb_name=tp("sortname")
lb_namee=tp("sortnamee")
end if
%>
<form name="form1" method="post" action="addsortname.asp">
<tr>
<td width="480" height="26" style="background-image: url('../Images/topbg1.gif')"><font color="#FFFFFF"><strong>类别名称：</strong></font></td>
</tr>
<tr>
<td class="tdbg"><div align="center">
(中)<input name="lb_name" type="text" id="lb_name" size="20" value="<%if key<>"" then%><%=lb_name%><%end if%>">
(英)<input name="lb_namee" type="text" id="lb_namee" size="20" value="<%if key<>"" then%><%=lb_namee%><%end if%>">
<%if key="" then%>
<input type="submit" name="Submit" value="增加">
<%else%>
<input name="pdid" type="hidden" id="pdid2" value="<%=key%>">
<input type="submit" name="Submit" value="修改">
<a href="sortname.asp">增加新类别</a>
<%end if%>
</div></td>
</tr>
<tr>
<td height="20" class="tdbg"> </td>
</tr>
</form>
</table>
<br>
<table width="500" height="19" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<%set rs=server.createobject("adodb.recordset")
sql="select*from newsname"
rs.open sql,conn,3,3%>
<%if rs.eof or rs.bof then
response.write "没有任何类别 ：（"
else%>
<table cellpadding="2" cellspacing="1" border="0" width="500" class="border" align=center height="30">
<tr >
<td colspan="3" height="26" style="background-image: url('../Images/topbg1.gif')"><font color="#FFFFFF">注意：点击"类别名称"进入下一级别操作；<br>
如果点击"删除"则删除这个类别及类别下面的全部内容</font></td>
</tr>
<tr>
<td width="194" height="23" class="tdbg">类别名称(中)</td>
<td width="194" height="23" class="tdbg">类别名称(英)</td>
<td width="148" height="23" class="tdbg">建立时间</td>
<td width="135" height="23" class="tdbg">操作</td>
</tr>
<%do while not rs.eof%>
<tr>
<td height="23" class="tdbg"><%=rs("sortname")%></td>
<td height="23" class="tdbg"><%=rs("sortnamee")%></td>
<td class="tdbg"><%=rs("sj")%></td>
<td class="tdbg"><a href="sortname.asp?id=<%=rs("id")%>">修改</a>
<a href="sortname.asp?ID=<%=rs("ID")%>&Action=del" onclick="return ConfirmDel();">删除</a></td>
</tr>
<%rs.movenext
loop%>
</table>
<%end if%>
</td>
</tr>
</table>
<%
if request("Action")="del" then
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="delete from newsname where id="&id
rs.open sql,conn,3,3
set rs=nothing
response.redirect "sortname.asp"
end if
if request("Action")="edit" then
if request("submit")="修改" then
key=request("pdid")
set rs=server.createobject("adodb.recordset")
sql="select*from newsname where id="&key
rs.open sql,conn,3,3
rs("sortname").value=lb_name
rs("sortnamee").value=lb_namee
rs.update
response.redirect "sortname.asp"
rs.close
set rs=nothing
end if
end if
if request("Action")="add" then
if lb_name="" then%>
<script language="JavaScript">
alert("『类别名称』不能为空，请返回填写！")
history.back(1)
</script>
<%response.end
end if
if request("submit")="增加" then
set rs=server.createobject("adodb.recordset")
rs.open "select * from newsname",conn,3,3
rs.addnew
rs("sortname")=lb_name
rs("sortnamee")=lb_namee
rs.update
response.redirect "sortname.asp"
rs.close
set rs=nothing
end if
end if
%>