classsave.asp
来自「全站生成htm静态页面」· ASP 代码 · 共 61 行
ASP
61 行
<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<%
dim Classid,act,class2
class2=request("class")
Classid=request("Classid")
act=request("act")
if act="" then response.end
select case act
case "new"
if class2="" then response.end
set rs=server.createobject("adodb.recordset")
sql="select * from Class where (classid IS NULL)"
rs.Open sql,conn,1,3
rs.addnew
rs("class")=class2
rs("html")="new"
rs.update
case "rename"
if classid="" or class2="" then response.end
set rs=server.createobject("adodb.recordset")
sql="select * from Class where classid="&Classid&""
rs.Open sql,conn,1,3
if not rs.eof then
rs("class")=class2
rs("html")="edit"
rs.update
end if
%>
<html>
<head>
<!--#include file="style.asp"-->
</head>
<body topmargin="111" leftmargin="0" bgcolor="#F9FFF4">
<div align="center">
<center>
<table border="0" cellspacing="0" width="60%">
<tr>
<td width="100%" bgcolor="#42C820">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#42C820">
<tr>
<td width="100%" bgcolor="#F7FFF0" height="80" align="center">
<b>O K ! 操 作 完 成 ! ^_^ </b>
<p><b><a href="fenlei.asp">..: 点 此 返 回
:..</a></b>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?