📄 miscell_class.asp
字号:
<%@ Language=VBScript %>
<%
Response.Buffer=true
Response.Expires=0
if Session("userqx")>="1" and Session("userqx")<="9" then
else
Response.Redirect "../warn.asp"
end if
%>
<!-- #include file="../dsn.asp" -->
<%
myflag=Request.QueryString("myflag")
keyno=Request.QueryString("keyno")
pageno=Request.QueryString("pageno")
delkeyno=Request.QueryString("delkeyno")
if myflag="" then myflag="0"
if keyno="" then keyno="0"
tablename="miscell_class"
set cn=server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
set rs2=server.CreateObject("ADODB.Recordset")
if delkeyno<>"" then
sqltext="delete from "+tablename+" where classcode='"+delkeyno+"'"
cn.Execute sqltext
end if
htmltitle="网站基本分类"
htmlname="miscell_class.asp?x=1"
if Request.ServerVariables("REQUEST_METHOD")="POST" then
classcode=trim(Request.Form("classcode"))
flag=trim(Request.Form("flag"))
if keyno="0" then
rs.Open tablename,cn,3,3
rs.AddNew
else
sqltext="select * from "+tablename+" where classcode='"+keyno+"'"
rs.Open sqltext,cn,3,3
end if
qxflag=""
for i=1 to 12
checksele=Request.Form("qxflag"&i)
if checksele="1" then
qxflag=qxflag+"1"
else
qxflag=qxflag+"0"
end if
next
if flag="0" then
basclass="101"
else
basclass=classcode
sqltext="update miscell_class set qxflag='"+qxflag+"' where basclass='"+basclass+"' and flag='0'"
cn.Execute sqltext
end if
if isnumeric(classcode) then
rs("sortnum")=classcode
end if
rs("classcode")=classcode
rs("basclass")=basclass
rs("classname")=trim(Request.Form("title"))
rs("flag")=trim(Request.Form("flag"))
rs("qxflag")=qxflag
rs.Update
rs.Close
myflag="0"
end if
%>
<HTML>
<HEAD>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000000; font-family: 宋体}
td {font-size: 12px; color: #000000; font-family: 宋体;}
.t1 {font:12px 宋体;color=000000}
.t2 {font:12px 宋体;color:ffffff}
.bt1 {font:14px 宋体;color=000000}
.bt2 {font:14px 宋体;color:ffffff}
A:link {color: #000066}
A:visited {color: #000066}
A:hover {color: #ff0000}
A.r1:link {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:visited {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:hover {font-size:12px;text-decoration:underline;color:#ff0000;}
A.r2:link {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:visited {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:hover {font-size:12px;text-decoration:underline;color:#ff6600;}
A.r3:link {font-size:12px;text-decoration:none;color:#000000;}
A.r3:visited {font-size:12px;text-decoration:none;color:#000000;}
A.r3:hover {font-size:12px;text-decoration:underline;color:#ff0000;}
-->
</style>
</HEAD>
<body topmargin=5 leftmargin=5 bgcolor=#ffffff>
<table width="100%" align=center border="0" cellspacing="0" cellpadding="2">
<%
sqltext="select * from "+tablename+" where (basclass='101' or flag='1') order by flag,classcode"
rs.Open sqltext,cn,1,1
listcount=12
rs.PageSize=listcount
if pageno="" then pageno=1 else pageno=cint(pageno)
if rs.PageCount>0 then
rs.AbsolutePage=pageno
pagecount=Rs.PageCount
end if
%>
<tr><td align="left">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height=24>
<form name="xxform" method=post >
<tr valign=bottom>
<td style="font-size:12px;">
<font color=DarkSlateGray style="font-size:14px"><b><%=htmltitle%></b></font>
<a href="<%=htmlname%>&pageno=<%=pageno%>">[刷新列表]</a>
<a href="<%=htmlname%>&pageno=<%=pagecount%>&myflag=1">[增加]</a>
</td>
<td>
</td>
</tr>
</form>
</table>
</td></tr>
<tr><td height=220 valign=top>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr bgcolor="527c72" style="color:#ffffff" align="center">
<td height=20 width="35" class=t2></td>
<td class=t2 width=40>序号</td>
<td class=t2 align=center>类别编号</td>
<td class=t2 align=center>类别名称</td>
<td class=t2 align=center>下设分类</td>
<td class=t2 align=center>权限</td>
</tr>
<%
i=1
do while not rs.EOF
if (i mod 2)=0 then
Response.Write("<tr bgcolor=fefefe>")
else
Response.Write("<tr bgcolor=efefef>")
end if
%>
<td width="35" align=right>
<%
if rs("flag")="1" then
sqltext="select count(*) from miscell_class where basclass='"+rs("classcode")+"'"
else
sqltext="select count(*) from miscell where classcode='"+rs("classcode")+"'"
end if
rs2.Open sqltext,cn,1,1
if rs2(0)=0 then
%>
<div align=center><img onclick="delrec('<%=rs("classcode")%>','<%=trim(rs("classname"))%>')" src="../admin/delete.gif" style="cursor:hand"></div>
<%
end if
rs2.Close
%>
</td>
<td width=40 align="center" height=20><%=rs("sortnum")%></td>
<td width=80 align="center" height=20><%=trim(rs("classcode"))%></td>
<td align="left" height=20><a href="<%=htmlname%>&myflag=1&keyno=<%=rs("classcode")%>&pageno=<%=pageno%>"><%=trim(rs("classname"))%></td>
<td width="60" align="center">
<%Select Case trim(rs("flag"))
case "0"
Response.Write("<font color=black></font>")
case "1"
Response.Write("<font color=red>有</font>")
end select
%>
</td>
<td width=100 align="center" height=20><%=trim(rs("qxflag"))%></td>
</tr>
<%
i=i+1
rs.MoveNext
loop
rs.Close
%>
</table>
</td></tr>
</table>
<%if myflag="1" then%>
<table width="100%" border="0" cellspacing="1" cellpadding="1" align="center">
<form action="<%=htmlname%>&keyno=<%=keyno%>&pageno=<%=pageno%>" method=post name=form1 onsubmit="return checkform(form1)" autocomplete = "off">
<%
xgcode="1"
if keyno="0" then
classcode=""
flag="0"
else
sqltext="select * from "+tablename+" where classcode='"+keyno+"'"
rs.Open sqltext,cn,1,1
if not rs.EOF then
sortnum=rs("sortnum")
classcode=trim(rs("classcode"))
title=trim(rs("classname"))
qxflag=trim(rs("qxflag"))
flag=trim(rs("flag"))
end if
rs.Close
if flag="1" then
sqltext="select count(*) from miscell_class where basclass='"+classcode+"'"
else
sqltext="select count(*) from miscell where classcode='"+classcode+"'"
end if
rs2.Open sqltext,cn,1,1
if rs2(0)<>0 then
xgcode="0"
end if
end if
%>
<tr bgcolor=898989><td colspan=2 height=20><font class=t2>具体内容</font></td></tr>
<tr><td width=560>
<table width="100%" border="0" cellspacing="1" cellpadding="1" align="center">
<tr><td width=70 class=td1 align=right height=5></td>
<td class=td2></td></tr>
<tr><td width=70 class=td1 align=right>类别编号：</td>
<td class=td2><font color=800000><%=classcode%></font>
<%
if xgcode="1" then
%>
<input type="text" value="<%=classcode%>" name=classcode maxlength=3 size=6>
<%else%>
<input type="hidden" value="<%=classcode%>" name=classcode>
<%end if%>
</td></tr>
<tr><td class=td1 align=right>类别名称：</td>
<td class=td2>
<input type="text" value="<%=title%>" name=title maxlength=20 size=30><font color=ff4500>*</font>
</td></tr>
<tr><td class=td1 align=right>下设分类：</td>
<td class=td2>
<%
if xgcode="1" then
%>
<input type=radio name=flag value="0" <%if flag="0" then Response.Write("checked")%>>无
<input type=radio name=flag value="1" <%if flag="1" then Response.Write("checked")%>>有
<%
else
if flag="1" then Response.Write("<font color=800000>有</font>") else Response.Write("<font color=800000>无</font>")
%>
<input type="hidden" name="flag" value="<%=flag%>">
<%
end if
%>
</td>
</tr>
<tr><td class=td1 align=right>类别属性：</td>
<td class=td2>
<input type=checkbox name=qxflag1 value="1" <%if mid(qxflag,1,1)="1" then Response.Write("checked")%>>点出次数
<input type=checkbox name=qxflag2 value="1" <%if mid(qxflag,2,1)="1" then Response.Write("checked")%>>是否显示
<input type=checkbox name=qxflag3 value="1" <%if mid(qxflag,3,1)="1" then Response.Write("checked")%>>是否推荐
<input type=checkbox name=qxflag4 value="1" <%if mid(qxflag,4,1)="1" then Response.Write("checked")%>>禁止增删
</td>
</tr>
<tr><td class=td1></td>
<td class=td2>
<input type=checkbox name=qxflag5 value="1" <%if mid(qxflag,5,1)="1" then Response.Write("checked")%>>友情链接
<input type=checkbox name=qxflag6 value="1" <%if mid(qxflag,6,1)="1" then Response.Write("checked")%>>禁止图片
<input type=checkbox name=qxflag7 value="1" <%if mid(qxflag,7,1)="1" then Response.Write("checked")%>>放大图片
<input type=checkbox name=qxflag8 value="1" <%if mid(qxflag,8,1)="1" then Response.Write("checked")%>>关 键 字
</td>
</tr>
<tr><td class=td2 bgcolor=ffffff ></td><td class=td2 bgcolor=ffffff align=left><br>
<input type="submit" name="submit" value="确认提交">
</td></tr>
</table>
</td>
<td> </td>
</tr>
<script language=Javascript>form1.title.focus()</script>
</form>
</table>
<%end if%>
</body>
</html>
<script language="Javascript">
function delrec(keyno,code)
{
if (confirm("您确认要删除("+code+")吗？")==true)
{
window.location.href="<%=htmlname%>&pageno=<%=pageno%>&delkeyno="+keyno
}
}
function checkform(form)
{
var flag=true;
if(form("classcode").value==""){alert("请输入类别编号!");form("classcode").focus();return false;}
if(form("title").value==""){alert("请输入类别名称!");form("title").focus();return false;}
return flag;
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -