编程论坛's Archiver

huotian1112 发表于 2007-7-27 06:44

我这个js文件乍调不出来啊

其它调用都正常!可是就是图片调不出来。请各位大哥大姐!帮帮忙  小弟我在线等!可以最好加我QQ307938098<BR>会的加我!可以出钱<BR>&lt;!--#include file=conn.asp--&gt;<BR>&lt;!--#include file=config.asp--&gt;<BR>&lt;!--#include file=const.asp--&gt;<BR>&lt;%<BR>dim topnum,Jscls,it<BR>dim Usext<BR>topnum=trim(request("topnum"))<BR>Jscls=trim(request("types"))<BR>'Types=1人气2最新3活动4活动内容调用5活动图片<BR>    if topnum&lt;&gt;"" and IsNumeric(topnum) then'显示条数<BR>    topnum=cint(topnum)<BR>    else<BR>    topnum=10<BR>    end if<BR>        Set rs = Server.CreateObject("ADODB.Recordset")<BR>    if Jscls=1 then'人气<BR>        sql="select top "&amp;topnum&amp;" Userid,Username,Usersex,UserBirthday from Ms_User order by UserViews desc,Userid desc"<BR>        rs.open sql,conn,1,1<BR>        if not (rs.eof and rs.bof) then<BR>            it=0<BR>            do while not rs.eof<BR>                it=it+1<BR>            if rs(2)=1 then<BR>                Usext="帅哥"<BR>            else<BR>                Usext="靓女"<BR>            end if<BR>            response.write "document.write(" &amp; chr(34) &amp; "&amp;nbsp;&lt;a href=dispuser.asp?username="&amp;rs(1)&amp;" target=_blank title='"&amp;rs(1)&amp;"资料'&gt;"&amp;rs(1)&amp;"&lt;/a&gt;&amp;nbsp;"&amp;Usext&amp;"&amp;nbsp;"&amp;datediff("yyyy",rs(3),Now())&amp;"" &amp; chr(34) &amp; ");"<BR>            response.write "document.write(" &amp; chr(34) &amp; "&lt;br&gt;" &amp; chr(34) &amp; ");"<BR>        rs.movenext<BR>        loop<BR>        else<BR>            response.write("&amp;nbsp;")<BR>        end if<BR>    <BR>    elseif Jscls=2 then<BR>        sql="select top "&amp;topnum&amp;" Userid,Username,Usersex,UserBirthday from Ms_User order by UserViews desc,Userid desc"<BR>        rs.open sql,conn,1,1<BR>        if not (rs.eof and rs.bof) then<BR>            it=0<BR>            do while not rs.eof<BR>                it=it+1<BR>            if rs(2)=1 then<BR>                Usext="帅哥"<BR>            else<BR>                Usext="靓女"<BR>            end if<BR>            response.write "document.write(" &amp; chr(34) &amp; "&amp;nbsp;&lt;a href=dispuser.asp?username="&amp;rs(1)&amp;" target=_blank title='"&amp;rs(1)&amp;"资料'&gt;"&amp;rs(1)&amp;"&lt;/a&gt;&amp;nbsp;"&amp;Usext&amp;"&amp;nbsp;"&amp;datediff("yyyy",rs(3),Now())&amp;"" &amp; chr(34) &amp; ");"<BR>            response.write "document.write(" &amp; chr(34) &amp; "&lt;br&gt;" &amp; chr(34) &amp; ");"<BR>        rs.movenext<BR>        loop<BR>        else<BR>            response.write("&amp;nbsp;")<BR>        end if<BR>    elseif Jscls=3 then<BR>    sql="select top "&amp;topnum&amp;" Title,Kid,Enddate from Ms_klatch where Checked=1 order by Addtime desc,Kid desc"<BR>        rs.open sql,conn,1,1<BR>        if not (rs.eof and rs.bof) then<BR>            it=0<BR>            do while not rs.eof<BR>                it=it+1<BR>            response.write "document.write(" &amp; chr(34) &amp; "&amp;nbsp;&lt;a href=klview.asp?id="&amp;rs(1)&amp;" target=_blank&gt;"&amp;rs(0)&amp;"&lt;/a&gt;&amp;nbsp;"&amp;datevalue(rs(2))&amp;"" &amp; chr(34) &amp; ");"<BR>            response.write "document.write(" &amp; chr(34) &amp; "&lt;br&gt;" &amp; chr(34) &amp; ");"<BR>        rs.movenext<BR>        loop<BR>        else<BR>            response.write("&amp;nbsp;")<BR>        end if<BR>elseif Jscls=4 then<BR>    sql="select top "&amp;topnum&amp;" Kid,Content from Ms_klatch where Checked=1 order by Addtime desc"<BR>        rs.open sql,conn,1,1<BR>        if not (rs.eof and rs.bof) then<BR>            it=0<BR>            do while not rs.eof<BR>                it=it+1<BR>            response.write "document.write(" &amp; chr(34) &amp; "&amp;nbsp;&lt;a href=klview.asp?id="&amp;rs(0)&amp;" target=_blank&gt;"&amp;left(rs(1),100)&amp;"&lt;/a&gt;" &amp; chr(34) &amp; ");"<BR>            response.write "document.write(" &amp; chr(34) &amp; "&lt;br&gt;" &amp; chr(34) &amp; ");"<BR>        rs.movenext<BR>        loop<BR>        else<BR>            response.write("&amp;nbsp;")<BR>        end if<BR>elseif Jscls=5 then<BR>dim klphotoid,Kid<BR>    sql="select top "&amp;topnum&amp;" Kid,Klphoto from Ms_klatch where Checked=1 and Klphoto&lt;&gt;"" order by Addtime desc"<BR>        rs.open sql,conn,1,1<BR>if not (rs.eof and rs.bof) then<BR>klphotoid=rs("Klphoto")<BR>Kid=rs(0)<BR>else<BR>klphotoid=""<BR>Kid=0<BR>end if<BR>rs.close<BR>'response.write klphotoid&amp;"test"<BR>'response.end<BR>if klphotoid&lt;&gt;"" then<BR>Set rs = Server.CreateObject("ADODB.Recordset")<BR>sql="select Filename from Ms_Upfile where FID in ("&amp;klphotoid&amp;") order by Fid desc"<BR>rs.open sql,conn,1,1<BR>        if not (rs.eof and rs.bof) then<BR>            it=0<BR>            do while not rs.eof<BR>                it=it+1<BR>            response.write "document.write(" &amp; chr(34) &amp; "&amp;nbsp;&lt;a href=klview.asp?id="&amp;Kid&amp;" target=_blank&gt;&lt;img src="&amp;SaveUpFilesPath&amp;""/""&amp;rs("Filename")&amp;" width=""102"" height=""57"" border=""0""&gt;&lt;/a&gt;" &amp; chr(34) &amp; ");"<BR>            response.write "document.write(" &amp; chr(34) &amp; "&lt;br&gt;" &amp; chr(34) &amp; ");"<BR>        rs.movenext<BR>        loop<BR>        else<BR>            response.write("document.write(" &amp; chr(34) &amp; "无数据" &amp; chr(34) &amp; ");")<BR>        end if<BR>else<BR>response.write("document.write(" &amp; chr(34) &amp; "无活动图片" &amp; chr(34) &amp; ");")<BR>end if<BR>end if<BR>        rs.close<BR>        conn.close%&gt;

huotian1112 发表于 2007-7-27 09:30

回复:(huotian1112)我这个js文件乍调不出来啊

没有会吗!!晕死了!!!高手在哪啊!!高手都死了吗!来一个啊

lmhllr 发表于 2007-7-27 10:21

<DIV class=quote><B>以下是引用<U>huotian1112</U>在2007-7-27 9:30:52的发言:</B><br>没有会吗!!晕死了!!!高手在哪啊!!高手都死了吗!来一个啊</DIV>
<p><br>[em12]是啊。。。高手全都死了。。你死心吧!
[align=right][color=#000066][此贴子已经被作者于2007-7-27 10:22:44编辑过][/color][/align]

huotian1112 发表于 2007-7-27 11:08

回复:(lmhllr)以下是引用huotian1112在2007-7-27 9...

你这个版主不帮忙还竟瞎捣乱,再不听话!小心打你PP<BR>我都快困死了!还没等到答案

lmhllr 发表于 2007-7-27 12:05

如果你不说后面那句就一定帮忙。。。<BR><BR>闪了。。。不多说了。。。

huotian1112 发表于 2007-7-28 00:27

回复:(lmhllr)如果你不说后面那句就一定帮忙。。。...

老大!!你就帮帮我吧!你看我都病了!!老大是我错了!!我认错还不行吗!!帮帮我吧!!5555555555555555555555555555555555555555555555555555555555

都是这样的 发表于 2007-8-1 19:49

学习下

页: [1]

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.