secondpic.asp

来自「一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 23 行

<%if request("BigId")<>"" and not IsNumeric(request.QueryString("BigId"))=False then
	BigId=request("BigId")
else
	BigId="0"
end if
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql = "select * from SecondPic where BigId="&BigId&" order by id desc"
rs2.open sql,conn,0,1
if not rs2.eof then
	Set rs3 = Server.CreateObject("ADODB.Recordset")
	sql = "select * from SecondPic where BigId="&BigId&" order by id desc"
	rs3.open sql,conn,0,1
else
	Set rs3 = Server.CreateObject("ADODB.Recordset")
	sql = "select * from SecondPic where BigId=0 order by id desc"
	rs3.open sql,conn,0,1
end if
rs2.close
set rs2=nothing
do while not rs3.eof%><a href="<%=rs3("url")%>" onFocus="this.blur()"><img src="<%=rs3("Pic")%>" border="0" onload="javascript:ImageResize(this, 746, 200);"></a><%rs3.movenext
loop
rs3.close
set rs3=nothing%>