📄 miscell_class2.asp
字号:
<%@ Language=VBScript %>
<%
Response.Buffer=true
Response.Expires=0
if Session("userqx")="1" or 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")
baseclass=Request.QueryString("baseclass")
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
reflag="1"
end if
sqltext="select classcode,classname,qxflag,sortby,listcount from miscell_class where baseclass='"+baseclass+"' and flag='1'"
rs2.Open sqltext,cn,1,1
if not rs2.EOF then
classname=trim(rs2(1))
qxflag=trim(rs2(2))
sortby=rs2("sortby")
listcount=rs2("listcount")
else
Response.End
end if
rs2.Close
htmltitle=classname+"类别"
htmlname="miscell_class2.asp?baseclass="+baseclass
if Request.ServerVariables("REQUEST_METHOD")="POST" then
classcode=trim(Request.Form("classcode"))
sortnum=trim(Request.Form("sortnum"))
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
if isnumeric(sortnum) then
rs("sortnum")=sortnum
else
if isnumeric(classcode) then
rs("sortnum")=classcode
end if
end if
rs("classcode")=classcode
rs("baseclass")=baseclass
rs("classname")=trim(Request.Form("title"))
rs("intro")=trim(Request.Form("intro"))
rs("content")=trim(Request.Form("content"))
rs("flag")="0"
rs("qxflag")=qxflag
rs("sortby")=sortby
rs("listcount")=listcount
rs.Update
rs.Close
myflag="0"
reflag="1"
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 (baseclass='"+baseclass+"' and flag='0') order by sortnum"
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>
</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>
<%
sqltext="select count(keyno) from miscell where classcode='"+rs("classcode")+"'"
rs2.Open sqltext,cn,1,1
if rs2(0)=0 then
%>
<div align=center><img onclick="delrec('<%=rs("classcode")%>','<%=trim(rs("classname"))%>')" src="images/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>
</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">
<%
if keyno="0" then
sqltext="select top 1 classcode from "+tablename+" where baseclass='"+baseclass+"' and flag='0' order by classcode desc "
rs.Open sqltext,cn,1,1
if not rs.EOF then
classcode=rs(0)+1
else
classcode=baseclass+1
end if
rs.Close
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"))
content=trim(rs("content"))
intro=trim(rs("intro"))
end if
rs.Close
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>
<input type="hidden" value="<%=classcode%>" name=classcode>
</td></tr>
<tr><td width=70 class=td1 align=right>索引号：</td>
<td class=td2>
<input type="text" value="<%=sortnum%>" name=sortnum maxlength=10 size=6>
</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=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>
<%if reflag="1" then%>
<script language="Javascript">parent.tree.location.reload();</script>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -