save_newsclass.asp

来自「很好的网上书店源码 适合企业个人使用 很好的网络书城」· ASP 代码 · 共 66 行

ASP
66
字号
<!--#include file="conn.asp"-->
<!--#include file="../inc/char.inc"-->

<%
action=request.form("action")
%>
<% if action="edit" then %>
<%
if request.form("text")="" then
response.write "<p align='center'>错误:类别不能为空,请输入类别名称!</p>"
response.write "<a href='javascript:history.back(1)'>返回重新输入</a>"
response.end
end if

dim text
dim classid

Classid=request.form("classid")
text=htmlencode(request.form("text"))

set rs=server.createobject("adodb.recordset")
sql="select * from shop_newsclass where ClassID="&Classid 

rs.open sql,conn,1,3
rs("class")=text
rs.update

rs.close
set rs=nothing
conn.close
set conn=nothing

%>
<% else %>
<%
if request.form("text")="" then
response.write "<p align='center'>错误:类别不能为空,请输入类别名称!</p>"
response.write "<a href='javascript:history.back(1)'>返回重新输入</a>"
response.end
end if
%>
<%

text=htmlencode(request.form("text"))

set rs=server.createobject("adodb.recordset")
sql="select * from shop_newsclass where (classid is null)" 

rs.open sql,conn,1,3
rs.addnew
rs("class")=text
rs.update

classid=rs("classid")

rs.close
set rs=nothing
conn.close
set conn=nothing

%>
<% end if %>
<%
		response.Write "<script language=javascript>alert('操作成功!');window.location.reload('javascript:history.back(1)')</script>"
		response.end
%>

⌨️ 快捷键说明

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