📄 personal.aspx
字号:
<% @ Import Namespace="Packaging" %>
<% @ Import Namespace="System.Data" %>
<% @ Import Namespace="System.Globalization" %>
<% @ 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 openwin(url,w,h) {
window.open(url,"","top=50,left=150,height="+h+",width="+w+",toolbar=0,location=0,directories=0,menubar=0,scrollbars=0,resizable=yes,status=0");
}
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" id="myform">
<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:Label id="success" style="color:red" runat="server" />
<table border="0" cellpadding="0" cellspacing="1" width="100%" height="90" bgcolor="#006699">
<tr>
<td width="100%" colspan="4" height="43" bgcolor="#B3F0C7" align="center">
<asp:Label id="UserAccount" runat="server" />的资料</td>
</tr>
<tr>
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1">真名</td>
<td width="31%" height="18" bgcolor="#FFFFFF"> <asp:TextBox id="UserName" runat="server"
size="20" maxlength="10" /></td>
<td width="19%" height="18" align="center" bgcolor="#CCFF99" class="td1">性别</td>
<td width="31%" height="18" bgcolor="#FFFFFF"> <asp:RadioButtonList id="UserGender" runat="server" RepeatDirection="Horizontal">
<asp:ListItem value="男">男生</asp:ListItem> <asp:ListItem value="女">女生</asp:ListItem>
</asp:RadioButtonList> </td>
</tr>
<tr>
<td width="19%" height="18" bgcolor="#CCFF99" class="td1" align="Center">生日</td>
<td width="31%" height="18" bgcolor="#FFFFFF"> <asp:TextBox id="UserBirthday" runat="server"
size="20" maxlength="10" Enabled="false" /></td>
<td width="19%" height="18" align="center" bgcolor="#CCFF99" class="td1">QQ</td>
<td width="31%" height="18" bgcolor="#FFFFFF"> <asp:TextBox id="UserQQ" runat="server"
size="20" maxlength="10" /></td>
</tr>
<tr>
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1">Email</td>
<td width="81%" height="18" colspan="3" bgcolor="#FFFFFF">
<asp:TextBox id="UserEmail" runat="server"
size="40" maxlength="40" /></td>
</tr>
<tr>
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1">MSN</td>
<td width="81%" height="18" colspan="3" bgcolor="#FFFFFF">
<asp:TextBox id="UserMSN" runat="server"
size="40" maxlength="40" /></td>
</tr>
<tr>
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1">个人主页</td>
<td width="81%" height="18" colspan="3" bgcolor="#FFFFFF">
<asp:TextBox id="UserHomepage" runat="server"
size="40" maxlength="255" /></td>
</tr>
<tr>
<td width="19%" height="18" bgcolor="#CCFF99" align="center" class="td1">个人简介</td>
<td width="81%" height="18" colspan="3" bgcolor="#FFFFFF"> 
<asp:TextBox id="UserDesc" runat="server"
TextMode="Multiline"
Cols="50" Rows="5" /></td>
</tr>
<tr bgcolor="#99CC00">
<td width="100%" align="right" colspan="4">
<input type=hidden name="sid" id="sid" runat=server />
<asp:Button id="change" runat="server" text="更改" onClick="change_Click" />
<input type="reset" value="RESET"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100%" colspan="4"> 说明：<br>
1. 点『<a href="changepass.aspx">这里</a>』更改密码。<br>
2. 更改“生日”时，从下面的日历中选择即可。
<p align=center>
<asp:button id="preyear" onClick="preyear_Click" runat=server text="向前一年" />
<asp:Calendar id=myCal runat=server
TitleStyle-BackColor="#99CC00"
TitleStyle-ForeColor="yellow"
VisibleDate="1981-9-1"
DayHeaderStyle-BackColor="#B3F0C7"
SelectedDayStyle-BackColor="#B3F0C7"
NextPrevStyle-ForeColor="white"
OnSelectionChanged="myCal_Changed"
PrevMonthText="向前一个月"
NextMonthText="向后一个月" />
<asp:button id="nextyear" onClick="nextyear_Click" runat=server text="向后一年" />
</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> </td></tr>
</table>
</div>
<pb:Footer id="footer" runat="server" />
</form>
</body>
</html>
<script language="VB" runat="server">
Dim account As String
Sub Page_Load(Sender As Object, e As EventArgs)
If Not Request.IsAuthenticated Then
Response.Redirect("login.aspx")
End If
Try
account=Context.User.Identity.Name
If not Page.IsPostBack Then
Bindform()
End If
Catch
change.Visible=False
End Try
End Sub
Sub Bindform()
Dim MyUser As UserDB=New UserDB()
Dim DV As DataView=MyUser.GetUserInfo2(account)
Dim DR As DataRow=DV.Table.Rows(0)
On Error Resume Next
UserDesc.Text=DR("UserDesc")
UserName.Text=DR("UserName")
UserAccount.Text=DR("UserAccount")
Dim d As DateTime=DR("UserBirthday")
UserBirthday.Text=d.ToString("yyyy-M-d",DateTimeFormatInfo.InvariantInfo)
myCal.SelectedDate=d
myCal.VisibleDate=d
If DR("UserGender")="男" Then
UserGender.SelectedIndex=0
Else
UserGender.SelectedIndex=1
End If
UserQQ.Text=DR("UserQQ")
UserEmail.Text=DR("UserEmail")
UserMSN.Text=DR("UserMSN")
UserHomepage.Text=DR("UserHomepage")
sid.value=DR("UserId")
If myCal.VisibleDate=DateTime.MinValue Then
myCal.VisibleDate="1981-9-1"
End If
End Sub
Sub change_Click(Sender As Object, e As EventArgs)
Dim MyUser As UserInfo=New UserInfo()
MyUser.UserId=CInt(sid.value)
MyUser.UserName=UserName.Text
MyUser.UserAccount=UserAccount.text
MyUser.UserGender=UserGender.SelectedItem.value
MyUser.UserBirthday=CDate(UserBirthday.Text)
MyUser.UserQQ=UserQQ.Text
MyUser.UserEmail=UserEmail.Text
MyUser.UserMSN=UserMSN.Text
MyUser.UserDesc=UserDesc.Text
MyUser.UserHomepage=UserHomepage.text
Dim MyDB As UserDB=New UserDB()
Try
MyDB.ChangeUserInfo(MyUser)
success.text="修改成功！"
Catch
success.text="修改失败！"
End Try
End Sub
Sub myCal_Changed(Sender As Object, e As EventArgs)
UserBirthday.Text=myCal.SelectedDate.ToShortDateString()
End Sub
Sub preyear_Click(Sender As Object, e As EventArgs)
Dim addd As Timespan=New Timespan(365,0,0,0,0)
myCal.VisibleDate=myCal.VisibleDate.Subtract(addd)
End Sub
Sub nextyear_Click(Sender As Object, e As EventArgs)
Dim addd As Timespan=New Timespan(365,0,0,0,0)
myCal.VisibleDate=myCal.VisibleDate.Add(addd)
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 + -