- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 3Adobe Illustrator CS5 序列号大全
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 8最新的Adobe Illustrator CS4序列号大全
- 9Intel i7-9700K性能跑分曝光：同代提升约12%
- 10qq邮件是否已读怎么看 QQ邮箱已经发出去的邮件怎么知道对方是否已经查看
- 11XP系统怎么清除缓存？
- 12Intel Z390主板有望10月8日公布：8核9代酷睿随后登场
[摘要]<%@LANGUAGE="VBSCRIPT"%><!--数据库表if exists (select * from dbo.sysobjects where id...
<%@LANGUAGE="VBSCRIPT"%><!--数据库表
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Cat]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[Cat]
GO
CREATE TABLE [dbo].[Cat] (
[Cat_Id] [int] IDENTITY (1, 1) NOT NULL ,
[Cat_Name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[Cat_Parent] [int] NULL
) ON [PRIMARY]
GO
-->
<%
MM_v2boy_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=d:\v2boy.mdb"
Dim rsCat__MMColParam
rsCat__MMColParam = "1"
if (Request.QueryString("Cat_Parent") <> "") then rsCat__MMColParam = Request.QueryString("Cat_Parent")(1)
'response.write request.querystring & "<hr>" & rsCat__MMColParam
'response.end
%>
<%
set rsCat = Server.CreateObject("ADODB.Recordset")
rsCat.ActiveConnection = MM_v2boy_STRING
rsCat.Source = "SELECT Cat_Id, Cat_Name, Cat_Parent FROM Cat WHERE Cat_Parent = " + Replace(rsCat__MMColParam, "'", "''") + ""
rsCat.CursorType = 0
rsCat.CursorLocation = 2
rsCat.LockType = 3
rsCat.Open()
rsCat_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsCat_numRows = rsCat_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Îĵµ×ÊÁÏ</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
dim request_all
IF request.querystring <> "" then request_all = "&" & request.querystring
%>
<table width="100%" border="0" cellspacing="1" cellpadding="4">
<tr>
<td><a href="data.asp">Îĵµ×ÊÁÏ</a>
<%
dim i,j,h
j = Request.QueryString("Cat_Parent").Count
For i = 1 to j
'For i = j to 1 step -1
response.write "<a href=data.asp?"
for h = (j - i + 1) to j
'for h = j to (j - i + 1) step -1
Response.Write "Cat_Parent=" & Request.QueryString("Cat_Parent")(h) & "&Cat_Name=" & Request.QueryString("Cat_Name")(h)
if h <> j then
response.write("&")
end if
Next
'response.write "<br>"
response.write ">" & Request.QueryString("Cat_Name")(j-i+1) & "</a> "
Next
response.write "<br>"
While ((Repeat1__numRows <> 0) AND (NOT rsCat.EOF))
%>
<% If Not rsCat.EOF Or Not rsCat.BOF Then %>
<a href="data.asp?Cat_Parent=<%=(rsCat.Fields.Item("Cat_Id").Value)%>&Cat_Name=<%=(rsCat.Fields.Item("Cat_Name").Value)%><%=request_all%>"><%=(rsCat.Fields.Item("Cat_Name").Value)%></a>
<% End If ' end Not rsCat.EOF Or NOT rsCat.BOF %>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsCat.MoveNext()
Wend
%>
</td>
</tr>
</table>
</body>
</html>
<%
rsCat.Close()
%>
推荐资讯 总人气榜
最新教程 本月人气
- 1powerpoint2007怎么设置图片的切换效果
- 2PowerPoint2007不能撤消所做的更改
- 3Powerpoint2007制作滚动字条
- 4PowerPoint2007中把幻灯片设置为宽屏播放
- 5在PowerPoint2007中模拟打印机文字输入效果
- 6PowerPoint2007从“大纲”窗格中新建幻灯片
- 7PowerPoint2007从“幻灯片”窗格中新建幻灯片
- 8PowerPoint2007复制幻灯片
- 9PPT2003/2007常用快捷键总结
- 10PowerPoint2007通过版式创建幻灯片
- 11PowerPoint 2007中简单插入Word表格
- 12低版本Office编辑Office2007文档的方法
- 1猎豹浏览器抢票不受12306新版验证码影响
- 2360手机助手红包怎么提现 360手机助手红包提现设置流程
- 3160wifi远程桌面怎么连接 160wifi远程桌面连接设置方法
- 4微信PC版1.0.7.33官方下载公布 修好bug优化软件
- 5手机登12306验证码总是出错处理方法介绍
- 6ios9不越狱怎么恢复短信与照片 ios9不越狱恢复短信与照片图文说明教程
- 710天学会php之首天
- 8抱抱app怎么玩 抱抱app使用图文说明教程图
- 9抱抱app免费随机通话使用图文说明教程(图文流程)
- 10yy游戏直播怎么开 yy游戏直播打开方法
- 11Linux内核4.2优化了哪一些地方？
- 12linux系统使用命令维护RHCS的方法
