郭昊ASP.docx

新成员注册

关于我们

郭昊

网站计数器

关于我们|联系方式|合作伙伴|版权声明|帮助信息|网站地图

Copyright2010©SonyEricssonMobileCommunicationsAB.Allrightsreserved

2）用户登录

--源文件：

web页面简介\page.aspx-->

<%@RegisterTagPrefix="Acme"TagName="Login"Src="page.ascx"%>

SubPage_Load（SenderAsObject,EAsEventArgs）

If（Page.IsPostBack）

MyLabel.Text&="用户名：

"&MyLogin.UserId&"
"

MyLabel.Text&="密码：

"&MyLogin.Password&"
"

EndIf

EndSub

10ptverdana">

Loginid="MyLogin"UserId=""Password=""BackColor="beige"runat="server"/>

Labelid="MyLabel"runat="server"/>

※调用代码page

--源文件：

web页面简介\page.ascx-->

PublicBackColorAsString="white"

PublicPropertyUserIdAsString

Get

ReturnUserName.Text

EndGet

Set

UserName.Text=Value

EndSet

EndProperty

PublicPropertyPasswordAsString

Get

ReturnPass.Text

EndGet

Set

Pass.Text=Value

EndSet

EndProperty

3）新成员注册

　　　　　　　　　　　　　　　　　　　　用户姓名：

TextBoxId="txtName"Runat="Server"/>

RequiredFieldValidatorId="RFValid1"

ControlToValidate="txtName"Runat="Server">（*不可缺少）

RequiredFieldValidator>

　　　　　　　　　　　　　　　　　　　　用户称妮：

TextBoxId="txtid"Runat="Server"/>

RequiredFieldValidatorId="RFValid2"

ControlToValidate="txtid"Runat="Server">（*不可缺少）

RequiredFieldValidator>

　　　　　　　　　　　　　　　　　　　　请输入密码：

TextBoxId="txtPsw"TextMode="Password"runat="server"/>

RequiredFieldValidatorId="RFValid3"

ControlToValidate="txtPsw"Runat="Server">（*不可缺少）

RequiredFieldValidator>

　　　　　　　　　　　　　　　　　　　　请再次输入密码：

TextBoxId="txtConfirm"TextMode="Password"runat="server"/>

RequiredFieldValidatorId="RFValid4"

ControlToValidate="txtConfirm"Runat="Server">（*不可缺少）

RequiredFieldValidator>

CompareValidatorId="CValid1"runat="server"

ControlToValidate="txtConfirm"Type="String"

ControlToCompare="txtPsw"

Operator="Equal">

（所输入的密码不一致，请重新输入！

）

CompareValidator>

　　　　　　　　　　　　　　　　　　　　电子邮件地址：

TextBoxId="txtE_mail"Runat="Server"/>

RequiredFieldValidatorId="RFValid0"

ControlToValidate="txtE_mail"Runat="Server">（*不可缺少）

RequiredFieldValidator>

RegularExpressionValidatorId="REValid5"Runat="Server"

ControlToValidate="txtE_mail"

ValidationExpression="[A-Za-z0-9_\-\.]{1,}@[A-Za-z0-9_\-\.]{3,}">

（请输入电子邮件地址）

RegularExpressionValidator>

　　　　　　　　　　　　　　　　　　　　家庭地址：

TextBoxId="txtAddr"Size=40Runat="Server"/>

RequiredFieldValidatorId="RFValid6"

ControlToValidate="txtAddr"Runat="Server">（*不可缺少）

RequiredFieldValidator>

RegularExpressionValidatorId="REValid7"Runat="Server"

ControlToValidate="txtAddr"

ValidationExpression=".{1,}[区,市]{1}.{1,}路[0-9]{1,}号[0-9]{1,}幢[0-9]{1,}室">

（请输入地址，如：

杭州市解放路834号15幢601室）

RegularExpressionValidator>

ButtonId="Button1"Text="提交"

OnClick="Button1_Click"Runat="Server"/>

LabelId="Label1"Runat="Server"/>

LabelId="Label2"Runat="Server"/>

LabelId="Label3"Runat="Server"/>

SubButton1_Click（senderAsObject,eAsEventArgs）

IfPage.IsValidThen

DimResultAsString

Result="用户姓名：

"&txtName.Text&"
"

Result=Result&"用户称妮：

"&txtid.Text&"
"

Label1.Text=Result

Result="密码：

"&txtPsw.Text&"
"

Label2.Text=Result

Result="电子邮件：

"&txtE_mail.Text&"
"

Result=Result&"家庭地址：

"&txtAddr.Text&"
"

Label3.Text=Result

EndIf

EndSub

4）查看时间日期

<%@PageLanguage="VB"ContentType="text/html"ResponseEncoding="utf-8"%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

--

body{

margin-left:

200px;

margin-top:

50px;

margin-right:

200px;

}

.STYLE1{

font-size:

x-large;

font-weight:

bold;

font-style:

italic;

}

-->

您好，当前日期/时间为：

--#BeginDateformat:

Ch2m-->2010年12月29日20:

55

--#EndDate-->

5）查看日历

CalendarId="Calendar1"SelectionMode="DayWeekMonth"

BackColor="LightBlue"ForeColor="Red"

BorderWidth=3BorderStyle="Solid"BorderColor="Red"

TitleStyle-BackColor="DarkBlue"ShowGridLines=True

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　NextPrevFormat="ShortMonth"

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　SelectMonthText="月"

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　SelectWeekText="周"

Runat="Server"/>

ButtonId="Button1"Text="改成图形符号"

OnClick="Button1_Click"Runat="Server"/>

SubButton1_Click（SenderAsObject,eAsEventArgs）

IfStrComp（Button1.Text,"改成图形符号"）=0Then

'将链接符号改成图形符号

　Calendar1.NextMonthText=""

Calendar1.PrevMonthText=""

Calendar1.SelectWeekText=""

Calendar1.SelectMonthText=""

Button1.Text="改成字符符号"

Else

'将链接符号改成字符符号

　Calendar1.NextMonthText=">"

Calendar1.PrevMonthText="<"

Calendar1.SelectMonthText=">>"

Calendar1.SelectWeekText=">"

Button1.Text="改成图形符号"

EndIf

EndSub

6）网站计数器

<%@ImportNamespace="System.IO"%>

SubPage_Load（SenderAsObject,EAsEventArgs）

Dimvisit_NumberAsLong'定义计数器变量

Dimmy_fileAsString=Server.Mappath（"counter.txt"）'定义文件路径变量

DimCOUN_WAsStreamWriter'声明StreamWriter对象变量

DimCOUN_RAsStreamReader'声明StreamReader对象变量

IfFile.Exists（my_file）=FalseThen

'如果该文件不存在，就建立文件，并写入1。

COUN_W=NewStre

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

下载	加入VIP,免费下载

还剩页未读，继续阅读

举报
版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

配套讲稿：

如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制：

部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词：

郭昊 ASP

  冰点文库所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。