【www.gdgbn.com--js教程】
js tab选项切换卡代码
<script type="text/javascript教程" >
var tID=0;
function showTabs(ID)
{
if(ID!=tID)
{
TabTitle[tID].className="tabs_title_01";
TabTitle[ID].className="tabs_title_02";
TabContent[tID].style.display="none";
TabContent[ID].style.display="";
tID=ID;
}
}
</script>
asp教程" target="_blank">政工动态
干部工作
青春风采
width="98%" align="center" border="0">
<%
dim sqlzdgz
sqlzdgz="select top 9 * from zdgz where isture="是" order by id desc"
call opendb()
rs.open sqlzdgz,conn,1,1
if not rs.eof then
do while not rs.eof
%>
&table_s=zdgz" target="_blank" class="tomg"> ›
<%if datediff("d",rs("send_date"),date())<4 then
If len(Rs("title"))>=16 Then
response.Write(left(rs("title"),14))
Response.write("..")
response.Write("")
Else
response.Write(rs("title"))
response.Write("")
End if
else
If len(Rs("title"))>16 Then
response.Write(left(rs("title"),15))
Response.write("...")
Else
response.Write(rs("title"))
End if
end if%>
<%=rs("send_date")%>
<%rs.movenext
loop
else
%>
暂时还没上传东西www.111cn.net
<%
end if
%>
width="98%" align="center" border="0">
<%
dim gbmange
gbmange="select top 9 * from gbmange2 order by id desc"
call opendb()
rs.open gbmange,conn,1,1
if not rs.eof then
do while not rs.eof
%>
" target="_blank" class="tomg"> ›
<%if datediff("d",rs("send_date"),date())<4 then
If len(Rs("title"))>=16 Then
response.Write(left(rs("title"),14))
Response.write("..")
response.Write("")
Else
response.Write(rs("title"))
response.Write("")
End if
else
If len(Rs("title"))>16 Then
response.Write(left(rs("title"),15))
Response.write("...")
Else
response.Write(rs("title"))
End if
end if%>
<%=rs("send_date")%>
<%rs.movenext
loop
else
%>
暂时还没上传东西
<%
end if
%>
width="98%" align="center" border="0">
<%
dim young
young="select top 9 * from young order by id desc"
call opendb()
rs.open young,conn,1,1
if not rs.eof then
do while not rs.eof
%>
" target="_blank" class="tomg"> ›
<%if datediff("d",rs(3),date())<4 then
If len(Rs(4))>=16 Then
response.Write(left(rs(4),14))
Response.write("..")
response.Write("")
Else
response.Write(rs(4))
response.Write("")
End if
else
If len(Rs("title"))>16 Then
response.Write(left(rs(4),15))
Response.write("...")
Else
response.Write(rs(4))
End if
end if%>
<%=rs(3)%>
<%rs.movenext
loop
else
%>
暂时还没上传东西
<%
end if
%>
本站原创转载注明来源www.111cn.net