能不能参考别人的程序是怎么作的?
顺便请教您一个问题:
我在使用一套新闻程序。它的首页调用也是用的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 a
call 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+"
"
document.write (gg)