[求助]为人改错，甚造“八”级浮屠，期待解难，高手请进。。。 - ASP技术论坛

问题点数：0 回复次数：0

[求助]为人改错，甚造“八”级浮屠，期待解难，高手请进。。。

我想用：<script src="diaoyon.asp?add=显示位置"></script>来在任何网页上调用显示广告图片，好不容易找到一段代码，研究来研究去也没看出什么问题，但是老是调用失败，无法“按显示位置”显示图片。。。真失败呀，我刚学编程不到一个月，实在是头痛，各位高手是否可以为我指点一下，我“定请兄弟喝酒，你不醉我不归。。。。”。。。。。

----------------------------------------------------------------------------------------
<%
add=""
if request("add")<>"" then add="add='"&request("add")&"' and "
sql="Select * from ad where "&add&" checked=true"
rs.Open sql, conn, 1, 3
if rs.bof or rs.eof then
response.write "document.write('<div align=center>无任何记录！</div>');"
response.end
rs.close
else
rs.movefirst
minid=rs("id")
rs.movelast
maxid=rs("id")
rs.close

randomize
x=fix((maxid-minid+1)*rnd)+minid

sql = "Select * From ad where "&add&" id="&x&" and checked=true"
rs.Open sql,conn, 1,3

if rs.bof or rs.eof then
rs.close
sql="Select * From ad where "&add&" checked=true"
rs.Open sql,conn, 3,1
rs.movefirst
showad
else
showad
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing

sub showad
if rs("isflash")=true then
response.write ("document.write('<embed src="""&rs("AdSitePic")&""" pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash";" type=""application/x-shockwave-flash"" width=468 height=60></embed>');")
else
response.write ("document.write('<a href=""ShowAd.asp?ads=" & rs("id") & "&url=" & rs("AdSiteUrl") & """ target=""_blank""><img border=0 src=""" & rs("AdSitePic") & """ alt=""" & rs("AdSiteIntro") & """></a>');")
end if
end sub
%>