📄 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 + -