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