📄 all_class.asp
字号:
<!--#include file="../conn/boardconn.asp"-->
<!--#include file="../style/sql.asp"-->
<!--#include file="../function.asp"-->
<!--#include file="../CHAR.INC"-->
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友好提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%
fqys=request.servervariables("query_string")
dim nothis(18)
nothis(0)="net user"
nothis(1)="xp_cmdshell"
nothis(2)="/add"
nothis(3)="exec%20master.dbo.xp_cmdshell"
nothis(4)="net localgroup administrators"
nothis(5)="select"
nothis(6)="count"
nothis(7)="asc"
nothis(8)="char"
nothis(9)="mid"
nothis(10)="'"
nothis(11)=":"
nothis(12)=""""
nothis(13)="insert"
nothis(14)="delete"
nothis(15)="drop"
nothis(16)="truncate"
nothis(17)="from"
nothis(18)="%"
errc=false
for i= 0 to ubound(nothis)
if instr(FQYs,nothis(i))<>0 then
errc=true
end if
next
if errc then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友好提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [Aymi_Nlass_Disp]"
rs.open sql,conn,1,3
%>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table border="0" width="100%" cellspacing="1" align="center">
<tr>
<td width="100%">
<form method="POST" action="classfox.asp" language="javascript" onsubmit="return test(this);">
<input type="hidden" name="options" value>
<TABLE cellSpacing=1 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
<TBODY>
<TR>
<TD height="25" colspan="2" align=center bgcolor="#96C5DE"><b>一级类别管理</b></TD>
</TR>
<TR>
<TD height="25" colspan="2" align=center></TD>
</TR>
<TR>
<TD width="20%" height="30" align="right">删除类别：</TD>
<TD width="80%" height="30">
<select name="subject" size="1" class="input">
<%
if rs.eof and rs.bof then
response.write "<option value=>..."
else
Do while not rs.eof
response.write "<option value='" + Cstr(rs("BoardNlass")) + "'>" + rs("BoardNlassName") + "</option>"
rs.MoveNext
Loop
end if
%>
</select><input name="submit" type="image" src="../images/delete.gif" align=absMiddle onclick="form.options.value='del'"></div>
</TD>
</TR>
<TR>
<TD height="30" width="20%" align="right">编辑类别：</TD>
<TD height="30" width="80%"><input type="text" name="editTitle" size="40" class=input><input name="submit" type="image" src="../images/edit.gif" align=absMiddle onclick="form.options.value='edit'"></TD>
</TR>
<TR>
<TD width=20% height="30" align="right">添加类别：</TD>
<TD height="30" width="80%"><input type="text" name="newTitle" size="40" class=input><input name="submit" type="image" src="../images/add.gif" align=absMiddle onclick="form.options.value='new'"></TD>
</TR>
<TR>
<TD height="30" colspan="2"></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</form>
</td>
</tr>
</table>
<%
set rs=nothing
%>
<%
set rs2=server.createobject("adodb.recordset")
sql2="select * from Aymi_Class_Disp order by BoardClass"
rs2.open sql2,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<form method="POST" action="nclassfox.asp" language="javascript" onsubmit="return test(this);">
<input type="hidden" name="options" value>
<TABLE cellSpacing=1 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
<TBODY>
<TR>
<TD height="25" colspan="2" align=center bgcolor="#96C5DE"><b>二级类别管理</b></TD>
</TR>
<TR>
<TD height="25" colspan="2" align=center></TD>
</TR>
<TR>
<TD width="20%" height="30" align="right">删除类别：</TD>
<TD width="80%" height="30">
<select name="subject" size="1" class="input">
<%
if rs2.eof and rs2.bof then
response.write "<option value=>..."
else
Do while not rs2.eof
response.write "<option value='" + Cstr(rs2("BoardClass")) + "'>" + rs2("BoardClassName") + "</option>"
rs2.MoveNext
Loop
end if
%>
</select><input name="submit" type=image src="../images/delete.gif" align=absMiddle onclick="form.options.value='del'"></TD>
</TR>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from Aymi_Nlass_Disp order by BoardNlass"
rs.open sql,conn,1,1
%>
<TR>
<TD width="20%" height="30" align="right">编辑类别：</TD>
<TD width="80%" height="30"><input class="input" type="text" name="editTitle" size="40">
<select name="BoardNlass" size="1" class="input">
<%
if rs.eof and rs.bof then
response.write "<option value=>..."
else
rs.MoveFirst
Do while not rs.eof
response.write "<option value='" + Cstr(rs("BoardNlass")) + "'>" + rs("BoardNlassName") + "</option>"
rs.MoveNext
Loop
end if
%>
</select><input name="submit" type=image src="../images/edit.gif" align=absMiddle onclick="form.options.value='edit'"></TD>
</TR>
<TR>
<TD width=20% height="30" align="right">添加类别：</TD>
<TD width="80%" height="30">
<input class="input" type="text" name="newTitle" size="40">
<select name="psubject" size="1" class="input">
<%
if rs.eof and rs.bof then
response.write "<option value=>..."
else
rs.MoveFirst
Do while not rs.eof
response.write "<option value='" + Cstr(rs("BoardNlass")) + "'>" + rs("BoardNlassName") + "</option>"
rs.MoveNext
Loop
end if
%>
</select><input name="submit" type=image src="../images/add.gif" align=absMiddle onclick="form.options.value='new'"></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</form></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -