📄 mclass2.asp
字号:
<%response.buffer=true%>
<%dim ThisKey
ThisKey = "t"
%>
<!--#include file="../inc/connection.asp"-->
<HTML>
<HEAD>
<link rel=stylesheet href="../css/main.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<%
dim LoginID
LoginID = trim(Session("LoginID"))
IF LoginID="" then
LoginID = 0
Conn.close
set Conn = Nothing
Response.End
end if
set rs=Server.CreateObject("ADODB.Recordset")
if request("cmdUpdate")<>"" and request("ID")<>"" then
sql="select * from tblBulletinClass where Name ='" & Replace(request("name"),"'","''") & "'"
rs.open sql,Conn
if not rs.eof and not rs.bof then
rs.close
response.write "<body bgcolor=""#FFFFFF"">"
response.write "<b>名称重复，请重新填写。</b>"
elseif rs.eof then
if request("Name")<>"" then
rs.close
sql="update tblBulletinClass set Name='" & Replace(request("Name"),"'","''") & "'"
sql=sql & " where ID=" & request("ID")
Conn.execute(sql)
alertinfo="类别修改成功！"
else
alertinfo="请输入新类别名称！"
end if
end if
end if
if request("cmdAdd")<>"" then
sql="select * from tblBulletinClass where Name='" & Replace(request("Name"),"'","''") & "'"
rs.open sql,Conn
if not rs.eof and not rs.bof then
rs.close
response.write "<body bgcolor=""#FFFFFF"">"
response.write "<b>名称重复，请重新填写。</b>"
elseif rs.eof then
if request("Name")<>"" then
rs.close
sql="insert into tblBulletinClass(Name) values('" & Replace(request("Name"),"'","''") & "')"
Conn.execute(sql)
alertinfo="新类别添加成功！"
else
alertinfo="请输入类别名称！"
end if
end if
end if
if request("cmdDel")<>"" and request("ID")<>"" then
sql="delete from tblBulletinClass where ID=" & request("ID")
Conn.execute(sql)
end if
%>
<BODY BGCOLOR="#FFFFFF" <%if alertinfo<>"" then response.write " onload=""alert('" & alertinfo & "')"""%>>
<BR><BR><BR>
<div align="center">
<table border=0 width="95%"><tr><td>
<p><b>单位公告类别维护</b></p>
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post" name="form1">
<p>所选类别：<select name="ID" size="1">
<%set rs=server.createobject("ADODB.Recordset")
sql="select * from tblBulletinClass"
rs.open sql,Conn,1,1
if not rs.eof then
do until rs.EOF%>
<option value="<%=server.URLEncode(rs("ID"))%>"><%=trim(rs("Name"))%></option>
<%
rs.movenext
loop
end if
rs.close
%> </select>
<input type="text" name="Name" size="15" maxlength=50 class="input">（添加或修改请输入新名称）</p>
<p>
<input type="submit" value="修改" name="cmdUpdate" class='Font9BoldWhite'>
<input type="submit" value="添加" name="cmdAdd" onclick="return formcheck(0);" class='Font9BoldWhite'>
<input type="submit" value="删除" name="cmdDel" onclick="return DelAlert()" class='Font9BoldWhite'>
<input type="reset" value="重置" name="B1" class='Font9BoldWhite'></p>
</form>
</td></tr></table>
</div>
</BODY>
</HTML>
<!--#include file="../inc/connclose.asp"-->
<script language="Javascript">
function formcheck(i)
{
if (document.forms[i].Name.value=="")
{
alert("类别名称不能为空！");
document.forms[i].Name.focus;
return false;
}
}
function DelAlert(){
return confirm('删除该数据将不能恢复,是否继续?');
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -