- 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的方法
