📄 fenlei.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"-->
<%
p=cint(request.QueryString("p"))
if p="" or p<1 then
p=1
end If
%>
<%
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from class order by ClassID asc"
rs.open rsstr,conn,1,2
maxpage=int((rs.recordcount-1)/10)+1
if p>maxpage then
p=maxpage
end If
if rs.recordcount = 0 then
response.write("暂无！<br/>")
else
response.write("共"&rs.recordcount&"个分类<br/>-------<br/>")
end If
if rs.recordcount > 0 then
rs.Move((p-1)*10)
end If
dim j
j=1
do while ((not rs.EOF) and j<=10)
%>
><%=rs("ClassName")%>(排序<%=rs("ClassID")%>,id:<%=rs("id")%>)<br/>
<a href="fl.asp?k=2&id=<%=rs("id")%>&xy=<%=xy%>">[改]</a>
<a href="fl.asp?k=3&id=<%=rs("id")%>&xy=<%=xy%>">[删]</a><br/>-<br/>
<%
rs.MoveNext
j=j+1
loop
%>
<%
if p*10<rs.recordcount then
response.write("<a href='fenlei.asp?xy=" & xy & "&p=" & p+1 & "'>[下页]</a> ")
end If
if p>1 then
response.write("<a href='fenlei.asp?xy=" & xy & "&p=" & p-1 & "'>[上页]</a> ")
end If
if p*10<rs.recordcount or p>1 then
response.write("第" & p & "页,共" & (int((rs.recordcount-1)/10)+1) & "页<br/>")
end If
rs.close
set rs=nothing
%>
==增加分类==<br/>
<form name="form1" method="post" action="fenlei.asp?k=1&xy=<%=xy%>">
名称:<input name="name" type="text" id="name" /><br/>
排序(小的在前):<input name="classid" type="text" format="*N" id="classid" /><br/>
LOGO:<input name="logo" type="text" id="logo" /><br/><br/>
换行:<select name="brr">
<option value="1">是</option>
<option value="0">否</option>
</select><br/>
<input name="Submit" type="submit" id="Submit" value="增加" />
<%
if request("k")=1 then
name=request("name")
classid=checkstr(request("classid"))
logo=request("logo")
brr=checkstr(request("brr"))
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 classname='"&name&"'"
rs.open rsstr,conn,1,3
if rs.recordcount>0 then
response.write("<br/>==增加结果==<br/>此分类已存在!<br/><a href='index.asp?xy="&xy&"'>[管理中心]</a><br/>")
response.end
else
rs.addnew
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/>")
end if
rs.close
set rs=nothing
end if
%>
<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 + -