image.asp

校园管理系统。电子商务类的

<%
id = Request("id")
ph = Request("ph")
Dim strSQL
Dim objConn
Dim objRec2
Dim StrConnect	
	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 desc2, img, root, cat, catname, catid, id FROM image" 'WHERE (cat = '" & id & "')"
	CmdMC.Open SQL, objConn
if id = "" and ph = "" then
CmdMC.Filter = "cat = 1"%>
<pre><a href="image.asp">home</a> : Categories:<br>
<%
do until CmdMC.eof
%><a href="image.asp?id=<%=CmdMC("catid")%>"><%=CmdMC("catname")%></a><br><%
CmdMC.movenext
loop
end if
%>
<%
if not id = "" then
CmdMC.Filter = "catid = " & id
if CmdMC.eof = true then
%>error<%
else
%><pre><a href="image.asp">home</a> : <%=CmdMC("catname")%><table><%
dim x
x = 1
do until CmdMC.eof

if not CmdMC("cat") = 1 then
x = x + 1
if x = 2 then %>
<tr><td><a href="image.asp?ph=<%=CmdMC("id")%>"><img src="<%=CmdMC("root")%>th<%=CmdMC("img")%>"></a></td>
<%else%>
<td><a href="image.asp?ph=<%=CmdMC("id")%>"><img src="th<%=CmdMC("img")%>"></a></td></tr>

<%x = 1
end if

end if
CmdMC.movenext



loop
end if
end if
%></table>


<%
if not ph = "" then
CmdMC.Filter = "id = " & ph
if CmdMC.eof = true then
%>error<%
else%>
<pre><a href="image.asp">home</a> : <a href="image.asp?id=<%=CmdMC("catid")%>">"category"</a> : <%=CmdMC("img")%><br>
<img src="<%=CmdMC("root")%><%=CmdMC("img")%>"><br>

<br>file  : <%=CmdMC("img")%><br>desc. : <%=CmdMC("desc2")%>
</pre>
<%end if
end if
%>