UC知道关于 超连接的颜色
来源：百度知道 编辑：UC知道 时间：2024/05/30 08:26:12
<%
dim ArticleTemp
set rsA=Server.CreateObject("adodb.recordset")
sql="select top 5 A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType,"
sql=sql & "A.Hits,A.OnTop,A.Hot,A.Elite,A.Passed,A.IncludePic,A.Stars,A.PaginationType,A.ReadLevel,A.ReadPoint,A.DefaultPicUrl from Article A"
sql=sql & " inner join Layout L on A.LayoutID=L.LayoutID where A.Deleted=False and A.Passed=True and A.ClassID=40 order by A.Elite,A.ArticleID desc"
rsA.open sql,conn,1,1
while not rsA.eof
ArticleTemp=ArticleTemp&" <img src='images/article_common2.gif' border='0'> <a href='Show.asp?ArticleID="&rsA("ArticleID")&"' title='"&rsA("Title")&"' target='_blank'>"&gotTopic(rsA("Title"),60)&"</a> "
rsA.m
dim ArticleTemp
set rsA=Server.CreateObject("adodb.recordset")
sql="select top 5 A.ArticleID,A.ClassID,L.LayoutID,L.LayoutFileName,A.Title,A.Key,A.Author,A.CopyFrom,A.UpdateTime,A.Editor,A.TitleFontColor,A.TitleFontType,"
sql=sql & "A.Hits,A.OnTop,A.Hot,A.Elite,A.Passed,A.IncludePic,A.Stars,A.PaginationType,A.ReadLevel,A.ReadPoint,A.DefaultPicUrl from Article A"
sql=sql & " inner join Layout L on A.LayoutID=L.LayoutID where A.Deleted=False and A.Passed=True and A.ClassID=40 order by A.Elite,A.ArticleID desc"
rsA.open sql,conn,1,1
while not rsA.eof
ArticleTemp=ArticleTemp&" <img src='images/article_common2.gif' border='0'> <a href='Show.asp?ArticleID="&rsA("ArticleID")&"' title='"&rsA("Title")&"' target='_blank'>"&gotTopic(rsA("Title"),60)&"</a> "
rsA.m
<marquee scrollamount=2 scrolldelay=10 width=420 align="left" onMouseOver="this.stop()" onMouseOut="this.start()">
<span style="color:#f00;"><!--在这里加这行-->
<%=ArticleTemp%>
</span>;"><!--在这里加这行-->
</marquee>
可惜啊，这段程序没有控制颜色的地方。
美工也要懂编程。
用CSS控制
a {
color: #000000; text-decoration: none;font-size:12px;
}
a:hover {
color: #e85200
color:就是颜色