求VS.NET起始页的属性页效果代码。在线等！！急

stationxp 2003-06-09 10:53:40
解释原理，一定要有代码。

...全文
111 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
stationxp 2003-06-09
  • 打赏
  • 举报
 回复
厉害~~！！
就是这种效果，马上给分！！

也谢谢 阿信
stationxp 2003-06-09
  • 打赏
  • 举报
 回复
to sinzy(ASP.NETer...)
我先看看效果，谢谢啦~~！

:）
stationxp 2003-06-09
  • 打赏
  • 举报
 回复
谢谢阿信，不过我要的不是这种效果的。
sinzy 2003-06-09
  • 打赏
  • 举报
 回复
是说 Tab 页面吗？我这里有个现成的，主要原理是用 style 模拟界面，控制其显示与否。代码不难，就不解释了。：）
标签标题从一个 XML 文件中读取……
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Tab View</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
a:link {
text-decoration: none;
}
a:active {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: underline;
}
.bCoolScrollBar {
scrollbar-base-color: #F0F8FF;
scrollbar-shadow-color: #F0F8FF;
scrollbar-highlight-color: #F0F8FF;
scrollbar-3dlight-color: #000066;
scrollbar-darkshadow-color: #000066;
scrollbar-arrow-color: #FFFFFF;
}
table {
font-family: Tahoma;
font-size: 8pt;
}
div {
font-family: Tahoma;
font-size: 8pt;
}
-->
</style>
<script language="VBScript" type="text/VBScript">
<!--
Option Explicit

Dim tabViewHeaderText, tabViewBodyID, tabNum, z

Dim domFoo
Set domFoo = CreateObject("MSXML2.DOMDocument")
domFoo.async = False

domFoo.load "TabView.xml"

tabNum = domFoo.documentElement.childNodes.length
ReDim tabViewHeaderText(tabNum)
ReDim tabViewBodyID(tabNum)

For z = 0 To tabNum - 1
tabViewHeaderText(z) = domFoo.documentElement.childNodes(z).text
tabViewBodyID(z) = domFoo.documentElement.childNodes(z).getAttribute("DivID")
Next

Function ShowTabHeader()
Dim header, i
header = ""

For i = 0 To tabNum - 1
header = header & "<td style=""border-left: 1px solid #4682B4; border-right: 1px solid #4682B4; border-top: 1px solid #4682B4;""><span id=""Header_" & tabViewBodyID(i) & """ style=""width: 10em; padding: 3px; background-color: #F0F8FF; color: #000080; border-bottom: 1px solid #4682B4; cursor: hand;"" onClick=""SwitchToTab "" & tabViewBodyID(i) & """">"
header = header & "<div align=""center"">" & tabViewHeaderText(i) & "</div></span></td>"
header = header & "<td style=""width: 5px; padding: 3px; background-color: #FFFFFF; border-bottom: 1px solid #4682B4;""> </td>"
Next

ShowTabHeader = header
End Function

Sub MaskAll()
Dim j
For j = 0 To tabNum - 1
Document.getElementById("Header_" & tabViewBodyID(j)).style.backgroundColor = "#F0F8FF"
Document.getElementById("Header_" & tabViewBodyID(j)).style.borderBottom = "1px solid #4682B4"
Document.getElementById(tabViewBodyID(j)).style.display = "none"
Next
End Sub

Sub SwitchToTab(divID)
MaskAll

Document.getElementById("Header_" & divID).style.backgroundColor = "#FFFFFF"
Document.getElementById("Header_" & divID).style.borderBottom = "none"
Document.getElementById(divID).style.display = "block"
End Sub

Sub Free()
Set domFoo = Nothing
Erase tabViewHeaderText
Erase tabViewBodyID
End Sub
-->
</script>
</head>

<body bgcolor="#FFFFFF" class="bCoolScrollBar" onLoad="SwitchToTab "AgvFTP"" onUnload="Free">
<table cellpadding="0" cellspacing="0" width="760" align="center" bgcolor="#4682B4">
<tr>
<td style="padding: 2px;"><div align="center"><font style="color: #FFFFFF; filter: dropshadow(color=#000080, offx=1, offy=1); width: 100%;">天魔的校内站点，关注技术也关注娱乐，欢迎您的来访！</font></div></td>
</tr>
</table>
<br>
<table cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" width="760" align="center">
<tr>
<td>
<table cellpadding="0" cellspacing="0" width="100%">
<tr>
<script language="VBScript">
<!--
Document.write ShowTabHeader()
-->
</script>
<td width="100%" style="border-bottom: 1px solid #4682B4;"> </td>
</tr>
</table>
</td>
</td>
</table>
<table cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" width="760" align="center">
<tr>
<td style="border: 1px solid #4682B4; border-top: none;">
<div id="T1" style="padding: 4px; width: 100%; display: block;">
Tab 1 内容
</div>
<div id="T2" style="padding: 4px; width: 100%; display: none;">
Tab 2 内容
</div>
<div id="T3" style="padding: 4px; width: 100%; display: none;">
Tab 3 内容
</div>
<div id="T4" style="padding: 4px; width: 100%; display: none;">
Tab 4 内容
</div>
<div id="T5" style="padding: 4px; width: 100%; display: none;">
Tab 5 内容
</div>
</td>
</tr>
</table>
</body>
</html>


－－－－－－－－－－－－－－－－－－－－－－－－－－
表示 Tab 标签的 XML 文件：
<?xml version="1.0" encoding="gb2312"?>
<TabView>
<TabHeader DivID="T1">Tab 1</TabHeader>
<TabHeader DivID="T2">Tab 2</TabHeader>
<TabHeader DivID="T3">Tab 3</TabHeader>
<TabHeader DivID="T4">Tab 4</TabHeader>
<TabHeader DivID="T5">Tab 5</TabHeader>
</TabView>
fason 2003-06-09
  • 打赏
  • 举报
 回复
http://www.1000script.com/script/go.asp?id=364
java源码包---java 源码 大量 实例
　Java绘制图片火焰效果，源代码相关注释：前景和背景Image对象、Applet和绘制火焰的效果的Image对象、Applet和绘制火焰的效果的Graphics对象、火焰效果的线程、Applet的高度,图片到图片装载器、绘制火焰效果的X坐标...
.Net Web窗口页属性
Page 指令定义 Web 窗体使用的属性，这些属性将被 Web 窗体页分析器和编译器使用。只能包含在 .aspx 文件中。我们每新建一个 Web 页面时，系统会自动为该 Web 页面头部创建一个 @Page 指令，来指明页面最基本的属性...
在vs里设置起始页、取消设置的起始页（转）
在Visual Studio 2008做好一个网站后，我们可以将某一页设置为起始页，这样使得我们在无论调试哪一页时，都将显示设置为起始页的那一页。如：将Default.Aspx设置成起始页，无论调试哪一页，都将显示Default.Aspx页。...
在vs里设置起始页、取消设置的起始页
在Visual Studio 2008做好一个网站后，我们可以将某一页设置为起始页，这样使得我们在无论调试哪一页时，都将显示设置为起始页的那一页。如：将Default.Aspx设置成起始页，无论调试哪一页，都将显示Default.Aspx页。...
使用 VS.Net 自带打包工具对 Asp.Net Web 应用程序进行打包
用VS.net提供的功能对项目打包： 1.打开VS.NET开发环境; 2."文件"->"新建"->"项目"; 3."项目类型"选"安装和部署项目","模板"选"Web安装项目",然后填写"名称"和"位置",最后"确定"; 4.鼠标右击"解决方案",选择"添加"->...
CSS

61,124

社区成员

60,705

社区内容

发帖
与我相关
我的任务
社区描述
层叠样式表(英文全称：Cascading Style Sheets)是一种用来表现HTML（标准通用标记语言的一个应用）或XML（标准通用标记语言的一个子集）等文件样式的计算机语言。
社区管理员
  • HTML(CSS)社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章