📄 fl.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file="conn.asp"-->
<!--#include file="admin_xy.asp"-->
<!--#include file="function.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>分类设置</title>
</head>
<body><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度. 交流QQ:31424717
' 程序制作：找北
' 升级时间： 2006-2-5
' E-Mail: g362hao@gmail.com
'====================================================================
%>
<!--#include file="i.asp"-->
<%
if request("k")=3 then
id=request("id")
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from class where id="&id
rs.open rsstr,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
set rst=Server.CreateObject("ADODB.Recordset")
rsstr="select * from art where classid="&id
rst.open rsstr,conn,1,3
if rst.recordcount>0 then
for i=1 to rst.recordcount
rst.delete
rst.update
rst.movenext
next
end if
rst.close
set rst=nothing
response.write("<br/>==删除结果==<br/>删除成功!<br/><a href='fenlei.asp?xy="&xy&"'>[分类管理]</a><br/><a href='index.asp?xy="&xy&"'>[管理中心]</a><br/>")
end if
%>
<%
if request("k")=2 then
id=request("id")
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from class where id="&id
rs.open rsstr,conn,1,3
%>
==修改分类==<br/>
<form name="form1" method="post" action="fl.asp?id=<%=id%>&k=8&xy=<%=xy%>">
名称:<input name="name" type="text" id="name" value="<%=rs("classname")%>" /><br/>
排序(小的在前):<input name="classid" type="text" format="*N" id="classid" value="<%=rs("classid")%>" /><br/>
LOGO:<input name="logo" type="text" id="logo" value="<%=rs("logo")%>" /><br/><br/>
换行:<select name="brr">
<option value="1">是</option>
<option value="0">否</option>
</select><br/>
<input name="Submit" type="submit" id="Submit" value="修改" />
<%
rs.close
set rs=nothing
end if
%>
<%
if request("k")=8 then
name=request("name")
classid=checkstr(request("classid"))
logo=request("logo")
brr=checkstr(request("brr"))
id=checkstr(request("id"))
if name="" or classid="" then
response.write("<br/>==修改结果==<br/>请认真填写名称和排序!<br/><a href='fenlei.asp?xy="&xy&"'>[分类管理]</a><br/><a href='index.asp?xy="&xy&"'>[管理中心]</a><br/>")
response.end
end if
Set regEx = New RegExp
regEx.Pattern = "^\d+$"
regEx.IgnoreCase = true
retVal = regEx.Test(classid)
If retVal Then
RegExpTest = "找到一个或多个匹配。"
Else
RegExpTest = "排序应该为数字!"
response.write("<br/>==修改结果==<br/>"&RegExpTest&"<br/><br/><a href='index.asp?xy="&xy&"'>[管理中心]</a><br/>")
response.end
End If
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from class where id="&id
rs.open rsstr,conn,1,3
if name<>"" then rs("classname")=name
if classid<>"" then rs("classid")=classid
if logo<>"" then rs("logo")=logo
if brr<>"" then rs("brr")=brr
rs.update
response.write("<br/>==修改结果==<br/>你好,修改成功!<br/><a href='index.asp?xy="&xy&"'>[管理中心]</a><br/>")
rs.close
set rs=nothing
end if
%>
<br/><a href='fenlei.asp?xy=<%=xy%>'>[分类管理]</a><br/>
<a href='index.asp?xy=<%=xy%>'>[管理中心]</a><br/>
</body>
</html>
<%
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -