我这个js文件乍调不出来啊
其它调用都正常!可是就是图片调不出来。请各位大哥大姐!帮帮忙 小弟我在线等!可以最好加我QQ307938098<BR>会的加我!可以出钱<BR><!--#include file=conn.asp--><BR><!--#include file=config.asp--><BR><!--#include file=const.asp--><BR><%<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<>"" 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 "&topnum&" 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(" & chr(34) & "&nbsp;<a href=dispuser.asp?username="&rs(1)&" target=_blank title='"&rs(1)&"资料'>"&rs(1)&"</a>&nbsp;"&Usext&"&nbsp;"&datediff("yyyy",rs(3),Now())&"" & chr(34) & ");"<BR> response.write "document.write(" & chr(34) & "<br>" & chr(34) & ");"<BR> rs.movenext<BR> loop<BR> else<BR> response.write("&nbsp;")<BR> end if<BR> <BR> elseif Jscls=2 then<BR> sql="select top "&topnum&" 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(" & chr(34) & "&nbsp;<a href=dispuser.asp?username="&rs(1)&" target=_blank title='"&rs(1)&"资料'>"&rs(1)&"</a>&nbsp;"&Usext&"&nbsp;"&datediff("yyyy",rs(3),Now())&"" & chr(34) & ");"<BR> response.write "document.write(" & chr(34) & "<br>" & chr(34) & ");"<BR> rs.movenext<BR> loop<BR> else<BR> response.write("&nbsp;")<BR> end if<BR> elseif Jscls=3 then<BR> sql="select top "&topnum&" 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(" & chr(34) & "&nbsp;<a href=klview.asp?id="&rs(1)&" target=_blank>"&rs(0)&"</a>&nbsp;"&datevalue(rs(2))&"" & chr(34) & ");"<BR> response.write "document.write(" & chr(34) & "<br>" & chr(34) & ");"<BR> rs.movenext<BR> loop<BR> else<BR> response.write("&nbsp;")<BR> end if<BR>elseif Jscls=4 then<BR> sql="select top "&topnum&" 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(" & chr(34) & "&nbsp;<a href=klview.asp?id="&rs(0)&" target=_blank>"&left(rs(1),100)&"</a>" & chr(34) & ");"<BR> response.write "document.write(" & chr(34) & "<br>" & chr(34) & ");"<BR> rs.movenext<BR> loop<BR> else<BR> response.write("&nbsp;")<BR> end if<BR>elseif Jscls=5 then<BR>dim klphotoid,Kid<BR> sql="select top "&topnum&" Kid,Klphoto from Ms_klatch where Checked=1 and Klphoto<>"" 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&"test"<BR>'response.end<BR>if klphotoid<>"" then<BR>Set rs = Server.CreateObject("ADODB.Recordset")<BR>sql="select Filename from Ms_Upfile where FID in ("&klphotoid&") 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(" & chr(34) & "&nbsp;<a href=klview.asp?id="&Kid&" target=_blank><img src="&SaveUpFilesPath&""/""&rs("Filename")&" width=""102"" height=""57"" border=""0""></a>" & chr(34) & ");"<BR> response.write "document.write(" & chr(34) & "<br>" & chr(34) & ");"<BR> rs.movenext<BR> loop<BR> else<BR> response.write("document.write(" & chr(34) & "无数据" & chr(34) & ");")<BR> end if<BR>else<BR>response.write("document.write(" & chr(34) & "无活动图片" & chr(34) & ");")<BR>end if<BR>end if<BR> rs.close<BR> conn.close%>回复:(huotian1112)我这个js文件乍调不出来啊
没有会吗!!晕死了!!!高手在哪啊!!高手都死了吗!来一个啊 <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]
回复:(lmhllr)以下是引用huotian1112在2007-7-27 9...
你这个版主不帮忙还竟瞎捣乱,再不听话!小心打你PP<BR>我都快困死了!还没等到答案 如果你不说后面那句就一定帮忙。。。<BR><BR>闪了。。。不多说了。。。回复:(lmhllr)如果你不说后面那句就一定帮忙。。。...
老大!!你就帮帮我吧!你看我都病了!!老大是我错了!!我认错还不行吗!!帮帮我吧!!5555555555555555555555555555555555555555555555555555555555 学习下页:
[1]
