?? adminimg.asp
字號:
<% Response.Buffer=true %>
<html><body>
<%
Dim strSQL
Dim objConn
Dim objRec2
Dim StrConnect
cat2 = Request.QueryString("cat")strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db/image.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
Set objConn = Server.CreateObject ("ADODB.Connection")
Set CmdMC = Server.CreateObject("ADODB.Recordset")
objConn.Open strConnect
SQL = "SELECT cat, ID, catname, root, desc2, catid, img FROM image order by cat"
CmdMC.Open SQL, objConn
mQNo = 0
if not cat2 ="" thenCmdMC.Filter = "catid = " & cat2 do while not CmdMC.eof %><table width=100%><tr><td width=30%>img: <a href="adminedit.asp?id=<%=CmdMC("id")%>"><%=CmdMC("img")%></a></td><td width=70%>desc: <%=CmdMC("desc2")%></td></tr></table><%
loopelsedo while not CmdMC.eof mQNo = mQNo + 1
if CmdMC("cat") = 1 then
%></table><Br><table width=70%><tr><td bgcolor="#dddddd"><b>cat: <%=CmdMC("catname")%></td></tr></table><%
elseif not CmdMC("cat") = 1 then %><table width=100%><tr><td width=30%>img: <a href="adminedit.asp?id=<%=CmdMC("id")%>"><%=CmdMC("img")%></a></td><td width=70%>desc: <%=CmdMC("desc2")%></td></tr></table><%
end ifCmdMC.movenext
Loop
end if %>
<%
CmdMC.Close
set CmdMC = Nothing
objConn.Close
set objConn = Nothing
%>
</BODY>
</HTML> ?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -