⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 s_info.aspx

📁 ASP_NET程序设计教程 源代码 冶金工业出版社 肖金秀 冯沃辉 陈少涌
💻 ASPX
字号:
<% @ Import Namespace="Packaging" %>
<% @ Import Namespace="System.Data" %>
<% @ Register TagPrefix="pb" TagName="Header" Src="header.ascx" %>
<% @ Register TagPrefix="pb" TagName="Footer" Src="footer.ascx" %>
<% @ Register TagPrefix="pb" TagName="Login" Src="login.ascx" %>
<% @ Register TagPrefix="pb" TagName="Major" Src="major.ascx" %>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<title>Dot.Net论坛欢迎您!</title>
<script language="JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
<link rel="stylesheet" type="text/css" href="pack.css">
</head>

<body topmargin="6" leftmargin="0" bgcolor="#eaeaea">

<form runat="server">

<pb:Header id="Header" runat="server" />

<div align="center">
<table border="0" cellpadding="0" cellspacing="1" bgColor="#006699" width="750" height="125">
	<tr><td width="25%" valign="top" background="images/bd.gif" rowspan="2" height="125">
	<pb:Login id="login" runat="server" />
	<pb:Major id="major" runat="server" /></td>
	<td width="75%" valign="top" bgcolor="#FFFFFF" height="228" background="images/ldb.gif">
		<br>
<asp:Repeater id="sinfo" runat="server">
<ItemTemplate>
	      <table border="0" cellpadding="0" cellspacing="1" width="95%" bgcolor="#006699">
            <tr bgcolor="#CCFF99"> 
              <td colspan="4" width="511"> 
                <table>
                  <tr bgcolor="#CCFF99"> 
                    <td width="70%" align="center">  
                      <table border="0" cellpadding="0" cellspacing="1" width="80%">
                        <tr><td width="100%" bgcolor="#FFFFFF"><br>
<%# DataBinder.Eval(Container.DataItem, "Desc") %>
&nbsp;</td></tr>
			</table></td>
			        <td width="300" align="right"><img border="0" src="<%# DataBinder.Eval(Container.DataItem, "photo") %>" align="right"></td>
                  </tr>
		</table>
		      </td>
            </tr>
		<tr>
              <td width="20%" align="center" bgcolor="#99CC33" height="25">姓名</td>
		      <td width="30%" height="25" bgcolor="#CCFF99"> &nbsp;
                <%# DataBinder.Eval(Container.DataItem, "Name") %>
              </td>
		      <td width="20%" align="center" bgcolor="#99CC33" height="25">年级</td>
		      <td width="30%" height="25" bgcolor="#CCFF99"> &nbsp;
                <%# DataBinder.Eval(Container.DataItem, "Grade") %>
              </td>
            </tr>
		<tr>
              <td align="center" bgcolor="#99CC33" height="25">学号</td>
		      <td height="25" bgcolor="#CCFF99"> &nbsp;
                <%# DataBinder.Eval(Container.DataItem, "Number") %>
              </td>
		      <td align="center" bgcolor="#99CC33" height="25">性别</td>
		      <td height="25" bgcolor="#CCFF99"> &nbsp;
                <%# DataBinder.Eval(Container.DataItem, "Gender") %>
              </td>
            </tr>
		<tr>
              <td align="center" bgcolor="#99CC33" height="25">寝室</td>
		      <td height="25" bgcolor="#CCFF99"> &nbsp;
                <%# DataBinder.Eval(Container.DataItem, "Dorm") %>
              </td>
		      <td align="center" bgcolor="#99CC33" height="25">寝室电话</td>
		      <td height="25" bgcolor="#CCFF99"> &nbsp;
                <%# DataBinder.Eval(Container.DataItem, "Tel") %>
              </td>
            </tr>
		<tr>
              <td align="center" bgcolor="#99CC33" height="25">其他电话</td>
		      <td height="25" bgcolor="#CCFF99"> &nbsp;
                <%# DataBinder.Eval(Container.DataItem, "Tel2") %>
              </td>
		      <td align="center" bgcolor="#99CC33" height="25">BP</td>
		      <td height="25" bgcolor="#CCFF99"> &nbsp;
                <%# DataBinder.Eval(Container.DataItem, "BP") %>
              </td>
            </tr>
		<tr>
              <td align="center" bgcolor="#99CC33" height="25">移动电话</td>
		      <td height="25" bgcolor="#CCFF99"> &nbsp;
                <%# DataBinder.Eval(Container.DataItem, "Mobile") %>
              </td>
		      <td align="center" bgcolor="#99CC33" height="25">QQ</td>
		      <td height="25" bgcolor="#CCFF99"> &nbsp;
                <%# DataBinder.Eval(Container.DataItem, "QQ") %>
              </td>
            </tr>
		<tr>
              <td align="center" bgcolor="#99CC33" height="25">信址</td>
		      <td colspan="3" height="25" bgcolor="#CCFF99"> &nbsp;
                <%# DataBinder.Eval(Container.DataItem, "Address") %>
              </td>
            </tr>
		<tr>
              <td align="center" bgcolor="#99CC33" height="25">Email</td>
		      <td colspan="3" height="25" bgcolor="#CCFF99"> &nbsp;<a href="mailto:&nbsp;<%# DataBinder.Eval(Container.DataItem, "Email") %>">
                <%# DataBinder.Eval(Container.DataItem, "Email") %>
                </a> </td>
            </tr>
		<tr>
              <td align="center" bgcolor="#99CC33" height="25">MSN</td>
		      <td colspan="3" height="25" bgcolor="#CCFF99"> &nbsp;
                <%# DataBinder.Eval(Container.DataItem, "MSN") %>
              </td>
            </tr>
		<tr>
              <td align="center" bgcolor="#99CC33" height="25">个人主页</td>
		      <td colspan="3" height="25" bgcolor="#CCFF99"> &nbsp;<a href="<%# DataBinder.Eval(Container.DataItem, "Homepage") %>">
                <%# DataBinder.Eval(Container.DataItem, "Homepage") %>
                </a> </td>
            </tr>
		<tr>
              <td align="center" bgcolor="#99CC33">爱好与特长</td>
		      <td colspan="3" bgcolor="#CCFF99"><br>
&nbsp;<%# DataBinder.Eval(Container.DataItem, "Hobbies") %>
		<br>&nbsp;</td></tr>
		<tr>
              <td align="center" bgcolor="#99CC33">对于未来的打算</td>
		      <td colspan="3" bgcolor="#CCFF99"><br>
&nbsp;<%# DataBinder.Eval(Container.DataItem, "Future") %>
		<br>&nbsp;</td></tr>
		<tr>
              <td align="center" bgcolor="#99CC33">&nbsp;</td>
		      <td colspan="3" bgcolor="#CCFF99">&nbsp;</td>
            </tr>
	</table>
</ItemTemplate>
</asp:Repeater>
<br>
		<table border="0" cellpadding="0" cellspacing="0" width="95%" height="41">
			<tr><td width="100%" background="images/bar3.gif" height="23">&nbsp;<b><font color="#FFFFFF">我上传的作品</font></b></td></tr>
			<tr><td width="100%" height="18"><br>
<asp:DataList id="MyList" runat="server"
	RepeatDirection="Vertical" RepeatColumns="4" width="95%">
	<ItemTemplate>
<center>
<img src=<%# DataBinder.Eval(Container.DataItem, "thumbUrl") %> border="0"><br>
<a href=# onClick="window.open('showpic.aspx?id=<%# DataBinder.Eval(Container.DataItem, "PicId") %>','','top=0,left=0,height=450,width=650,toolbar=0,location=0,directories=0,menubar=0,scrollbars=1,resizable=yes,status=0')"><%# DataBinder.Eval(Container.DataItem, "PicTitle") %></a>
</center>
	</ItemTemplate>
</asp:DataList>
			</td></tr>
			<tr><td width="100%" background="images/bar3.gif" height="23" align="right">
		<input type="hidden" id="pagenow" runat="server" value="1">
			<asp:Panel id=pp runat=server>
		<asp:LinkButton id="toFirst" runat="server" onClick="toFirst_Click" text="到第一页" />&nbsp;
		<asp:LinkButton id="prepage" runat="server" onClick="prepage_Click" text="上一页" />&nbsp;
		<asp:LinkButton id="nextpage" runat="server" onClick="nextpage_Click" text="下一页" /></asp:Panel></td></tr>
		</table>
	</td>
	<tr><td width="75%" valign="bottom" bgcolor="#FFFFFF" height="80" align="right" background="images/ldb.gif">
	<img border="0" src="images/pen.gif" width="400" height="80"><br>&nbsp;</td></tr>
</table>
</div>

<pb:Footer id="footer" runat="server" />

</form>

</body>

</html>

<script language="VB" runat="server">

	Dim PageSize As Integer
	Dim CurP As Integer
	Dim TotalPage As Integer

	Sub Page_Load(Sender As Object, e As EventArgs)
		Try
			Dim id As Integer=CInt(Request("id"))
			Dim MyInfo As InfoDB=New InfoDB()
			Dim DV As DataView=MyInfo.GetInfo(id)
			sinfo.DataSource=DV
			sinfo.DataBind()
			Dim account As String=DV.Table.Rows(0)("UserAccount")

			PageSize=12
			CurP=CInt(pagenow.value)
			Dim MyPic As PicDB=New PicDB()
			MyPic.PageSize=PageSize
			TotalPage=1
			Dim DV2 As DataView=MyPic.GetMyPicList(CurP, TotalPage,account)
			MyList.DataSource=DV2
			MyList.DataBind()
			ppp
		Catch
			pp.Visible=false
		End Try
	End Sub

	Sub ppp
		If pp.Visible Then
			If CurP=1 Then
				toFirst.Visible=false
				prepage.Visible=false
			Else
				toFirst.Visible=true
				prepage.Visible=true
			End If
			If CurP<TotalPage Then
				nextpage.Visible=true
			Else
				nextpage.Visible=false
			End If
		End If
	End Sub

	Sub toFirst_Click(Sender As Object, e As EventArgs)
		CurP=1
		pagenow.value="1"
		ppp
	End Sub

	Sub prepage_Click(Sender As Object, e As EventArgs)
		If CurP>1 Then
			CurP-=1
		Else
			CurP=1
		End If
		pagenow.value=CurP.ToString()
		ppp
	End Sub

	Sub nextpage_Click(Sender As Object, e As EventArgs)
		If CurP<TotalPage Then
			CurP+=1
		Else
			CurP=TotalPage
		End If
		pagenow.value=CurP.ToString()
		ppp
	End Sub
</script>
<style>
td {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	font-size : 10pt;
}
.whiteB {
	color: white;
	font-weight : bold;
}
input {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	font-size : 10pt;
}
td.bar {
	color: green; font-weight: bold;
}
a.whiteLink:link {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	font-weight : bold;
	color : white;
	text-decoration : none;
}
a.whiteLink:visited {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	font-weight : bold;
	color : white;
	text-decoration : none;
}
a.whiteLink:hover {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	font-weight : bold;
	color : white;
	text-decoration : none;
}
a.barLink:link {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : #CCFF99;
	text-decoration : none;
}
a.barLink:visited {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : #CCFF99;
	text-decoration : none;
}
a.barLink:hover {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : #CCFF99;
	text-decoration : underline;
}
a.author:link {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : black;
	text-decoration : none;
}
a.author:visited {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : black;
	text-decoration : none;
}
a.author:hover {
	font-family : Verdana, Geneva, Arial, Helvetica, sans-serif;
	color : black;
	text-decoration : underline;
}
</style>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -