|
主题: 关于新闻首页调用的问题!请高手帮忙!
|
wancir_5d
职务:普通成员
等级:1
金币:0.0
发贴:41
|
#12003/1/11 12:24:22
我用dw做了一个新闻系统,但是现在我想在首页(.index)用js调用最新的10条新闻,请问我该怎么做?
|
wancir_5d
职务:普通成员
等级:1
金币:0.0
发贴:41
|
#22003/1/12 9:46:58
没有人可以回答我吗?
|
无色光芒
职务:普通成员
等级:3
金币:1.0
发贴:1071
|
#32003/1/12 11:41:24
能不能参考别人的程序是怎么作的? 顺便请教您一个问题: 我在使用一套新闻程序。它的首页调用也是用的JS,不过调用后显示的字很大,怎么改成9磅的。 附:相关源代码 gg=gg+" " <% 'on error resume next addr0=request.servervariables("server_name") addr1=request.servervariables("url") addr1=replace(addr1,"dynews.asp","list.asp") addr="http://"&addr0&addr1 addrm=replace(addr,"list.asp","")
wz="" a=0 set rs=server.createobject("adodb.recordset") '**************************************************调用置顶的文章 if langmu="all" then sql="select id,tuwen,title,date,hits from wenzhang where ding=1 order by id desc" else sql="select id,tuwen,title,date,hits from wenzhang where langmuid="&langmu&" and ding=1 order by
id desc" end if rs.open sql,conn,3,1 do while not rs.eof if acall wzlist() else exit do end if rs.movenext loop rs.close '**************************************************调用一般文章 if langmu="all" then sql="select id,tuwen,title,date,hits from wenzhang where ding<>1 order by id desc" else sql="select id,tuwen,title,date,hits from wenzhang where langmuid="&langmu&" and ding<>1 order by
id desc" end if rs.open sql,conn,3,1 do while not rs.eof if acall wzlist() else exit do end if rs.movenext loop rs.close
call rsclose() call connclose() %> <%'Response.Write Err.description%> gg=gg+"<%=wz%>" gg=gg+"" gg=gg+"更多内容..." gg=gg+" | " gg=gg+" " document.write (gg)
|