网络营销文集

今日写一个类似中华网的多栏目效果，鼠标点击某标签后会文本框会出现该标签的内容。
<%

'左侧栏目导航
sub showleftnav(bigclass_nav,filename,classname)

set rs_news=server.createobject("adodb.recordset")
set rs_nav2=server.createobject("adodb.recordset")
set rs_navbig=server.createobject("adodb.recordset")
sql = "select * from main_class where id=" & bigclass_nav
rs_navbig.open sql,conn,1,1
if not rs_navbig.eof then
bigclasstitle = rs_navbig("content")
bigclasscontent = rs_navbig("top")
%>
<script language="javascript">ppp=('<%=tt(bigclasscontent)%>');</script>
<a href="#" onclick="javascript:<%=classname%>.innerHTML=('<%=tt(bigclasscontent)%>');"><%=bigclasstitle%></a>
<%
else
response.write "BID ERROR"
resposne.end
end if
rs_navbig.close

sql="select * from main_content where classid=" & bigclass_nav

rs_news.open sql,conn,1,1
 

if rs_news.EOF then
response.write ""
else 
do while Not rs_news.EOF
 
%>
<a href="#" onclick="javascript:<%=classname%>.innerHTML=('<%=tt(rs_news("content2"))%>');"><%=rs_news("title")%></a>
<%

rs_news.MoveNext
loop
end if
 
 
rs_news.close   
end sub

'这里用来替换ASP中的换行符和回车符，以免Java出错，其实应该把\和单引号也替换的，偷懒一下。
function tt(bbb)
if tt <>"" then
tt = replace(bbb,chr(13),"<br>")
tt = replace(bbb,chr(10),"<br>")
tt = replace(bbb,vbcrlf,"<br>")
else
tt = bbb
end if
end function

%>