我想 问问哥哥姐姐们 怎么修改 主页文件呢?????Dreamwear MX2004
<%
Dim LastLogin,birthnum
dim Guests
Rem Ê×Ò³¶¥²¿ÐÅÏ¢
sub index_head()
Stats="ÂÛ̳Ê×Ò³"
call nav()
sql="select top 1 TopicNum,BbsNum,TodayNum,UserNum,lastUser from config where active=1"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
if isnull(index_ad_t) or index_ad_t="" then
response.write "<TABLE border=0 width="&TableWidth&" align=center><TBODY>"&_
"<TR><TD align=left><a href='"& HostURL &"'><img border=0 src='"& Forumlogo &"'></a></TD>"&_
"<TD Align=right><font color="&BodyFontColor&" style=""line-height: 15pt"">»¶ÓлáÔ± <a href=dispuser.asp?name="& htmlencode(rs(4)) &" target=_blank>"&_
"<font color="& AlertFontColor &">"& htmlencode(rs(4)) &"</font></a> ¼ÓÈë [<a href=toplist.asp?orders=2>нøÀ´±ö</a>]<BR><font color="&AlertFontColor&"><b><script src=count/mystat.asp></script></b></font> ½ñÈÕÌùÊý£º<font color="&AlertFontColor&"><b>"& rs(2) &"</b></font>"&_
" | Ö÷Ìâ×ÜÊý£º<b>"& rs(0) &"</b> | Ìû×Ó×ÜÊý£º<b>"& rs(1) &"</b> | "&_
"×¢²á»áÔ±<B>"& rs(3) &"</B>"&_
"<p><img src="&picurl&P_nowTime&"> <a href=team.asp>¹ÜÀíÍŶÓ</a>£ <img src="&picurl&P_newTopic&"> <a href=remen.asp>ÂÛ̳ÈÈÌù</a>£ <img src="&picurl&P_userlist&"> <a href=toplist.asp?orders=7>×¢²á»áÔ±</a>£ <img src="&picurl&P_Top20&"> <a href=toplist.asp?orders=1>·¢ÌùÅÅÐÐ</a></font>"&_
"</TD></TR></TBODY></TABLE>"
else
response.write "<TABLE border=0 width="&TableWidth&" align=center><TBODY>"&_
"<TR><TD align=left><a href='"& HostURL &"'><img border=0 src='"& Forumlogo &"'></a></TD>"&_
"<TD Align=center width=350>"&index_ad_t&"</td><td style=""line-height: 15pt"">"&_
"<img src="&picurl&P_nowTime&"> <a href=team.asp>¹ÜÀíÍŶÓ</a><BR><img src="&picurl&P_newTopic&"> <a href=remen.asp>ÂÛ̳ÈÈÌù</a><BR><img src="&picurl&P_userlist&"> <a href=toplist.asp?orders=7>×¢²á»áÔ±</a><BR><img src="&picurl&P_Top20&"> <a href=toplist.asp?orders=1>·¢ÌùÅÅÐÐ</a></font>"&_
"</TD></TR><tr><td colspan=3 align=right><font color="&BodyFontColor&"><font color="&AlertFontColor&"><b><script src=count/mystat.asp></script></b></font> ½ñÈÕÌùÊý£º<font color="&AlertFontColor&"><b>"& rs(2) &"</b></font>"&_
" | Ö÷Ìâ×ÜÊý£º<b>"& rs(0) &"</b> | Ìû×Ó×ÜÊý£º<b>"& rs(1) &"</b> | "&_
"×¢²á»áÔ±<B>"& rs(3) &"</B> | »¶ÓлáÔ± <a href=dispuser.asp?name="& htmlencode(rs(4)) &" target=_blank>"&_
"<font color="& AlertFontColor &">"& htmlencode(rs(4)) &"</font></a> ¼ÓÈë [<a href=toplist.asp?orders=2>нøÀ´±ö</a>]</td></tr></TBODY></TABLE>"
end if
response.write "<style>"&_
"TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }"&_
"TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px; }"&_
"</style>"&_
"<table cellpadding=6 cellspacing=1 width="&TableWidth&" align=center bordercolor="&Tablebackcolor&" border=0>"&_
"<TR ><TD align=left height=18 colSpan=8 id='elFader' style='position:relative; left: 20px;visibility:hidden; height:16'> "
rs.close
if FoundUser then
sql="select lastlogin from [user] where username='"&membername&"'"
set rs=conn.execute(sql)
lastlogin=rs(0)
rs.close
set rs=nothing
end if
if isnull(lastlogin) or lastlogin="" then lastlogin=now()
sql="select top 3 boardid,title,addtime from bbsnews where boardid=0 order by addtime desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
if rs.bof and rs.eof then
titlelist="""<IMG align=absMiddle src="&Picurl&P_call&">ûÓй«¸æ"","""""
else
do while not rs.eof
dim titlelist
titlelist=titlelist&"""<a href=announcements.asp?boardid="&boardid&" target=_blank><IMG align=absMiddle border=0 src="&Picurl&P_call&">"&rs(1)&"</a> ("&rs(2)&")"","""","
rs.movenext
loop
titlelist=titlelist&"""<IMG align=absMiddle src="&Picurl&P_call&">»¶Ó·ÃÎÊ"&forumname&" ("&now()&")"","""""
end if
rs.close
set rs=nothing
%>