⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 fenlei_2chk.asp

📁 信息管理系统 管理页面:admin/index.asp 用户和密码都是admin
💻 ASP
字号:
<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,class1,class2,paixu
class1=request("class1")
class2=trim(request("class2"))
paixu=trim(request("paixu"))
if class1="" then
response.write "<li>错误,类别为空!"
response.write "<meta http-equiv=refresh content=""2;URL=fenlei.asp"">"
response.end
end if
if class2="" then
response.write "<li>错误,类别为空!"
response.write "<meta http-equiv=refresh content=""2;URL=fenlei.asp"">"
response.end
end if
if paixu="" then
response.write "<li>错误,类别为空!"
response.write "<meta http-equiv=refresh content=""2;URL=fenlei.asp"">"
response.end
end if
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [class2] where class2='"&class2&"' order by paixu desc" 
rs.open sql,conn,1,3
if rs.eof then
rs.addnew
rs("class1")=class1
rs("class2")=class2
rs("paixu")=paixu
rs.update
response.write "类别添加成功!!<br>"
response.write "<a href=""fenlei_2.asp?id="&request("id")&""">继续添加</a>"
else
response.write "类别已经存在,请确认你的输入是正确的!"
response.write "<meta http-equiv=refresh content=""2;URL=fenlei.asp"">"
response.end
end if
rs.close
set rs=nothing
closedb
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -