My Dream

来凤购物网

2007-12-08T11:35:00.000+08:00

http://www.lfgw.net
来凤购物网欢迎大家光临
http://www.laifengclub.cn
凤城俱乐部

Now somebody will call me uncle

2007-05-04T12:23:00.000+08:00

Sister has borne a girl

My Sister, She gave birth to a girl.

My brother to tell me this good news yesterday.I hope to go home shortly and see my niece,I phone to Mum and send message to sisiter,I can feel they are very excited from her voice,So do i. I don't know how expressing it

My niece's Photograph

About study english

2007-05-02T16:47:00.000+08:00

My University

Firstly paste some pictures of my campus

Library

Laboratory

Experience of Study english

You must know Sweet Comes After Bitter before study english

No Mill,No Meal.So you should have Workhard every day

Often talk with you friends and teachers use english

If you have not base,you must remember word in your mind

Listen broadcast.Example BBC VOA

Learning to learn

Know Youself Assessing your strengths and weaknesses

Manage your time and life

Improve your concentration

Become an active reader

Build listening Notetaking skills

Effective study skills and strategies

Today is important feast for everyone

2007-05-01T12:01:00.000+08:00

International Labour Day

May 1st is importance day,Many students are alllooking forward to the holiday
asp code to Check user form data

Accept the data

dim username,pwd,pwd2,email
username=request("username")
pwd=request("pwd")
pwd2=request("pwd2")
email=request("email")

Checking

if len(username)=0 or len(pwd)=0 then
response.write("Please input the username and password")
elseif pwd<>pwd2 then
response.write("The pwd different pwd2")
elseif Instr(email,"@")=0 or Instr(right(email,4),".")=0 then
Response.Write("Please input correct email format ")
elseif Instr(right(email,3),".")<>0 or Instr(Right(email,2),".")<>0 then
Response.Write("Please input correct email format")

Check complete and Save data

else
session("email")=email
session("password")=pwd
session("username")=username
Response.Write("You register information")
Response.Write("username:"&username&"")
Response.Write("password:"&pwd&"")
Response.Write("email:"&email&"")

用到的vbscript函数Instr(string1,string2)作用是返回string2在string1中出现的位置,返回值为0则代表没有发现string2;函数Right(string,i)作用是返回string中从右边开始的i个字符,返回值为一个string;函数len(string)作用是返回string的长度
代码就这些了，挺简单,希望高手看了不要笑话.asp学的不好,现在学起c#觉得基础太薄,不知道在我这学期结束之前能不能用c#在virtual studio制作环境下弄个完整的电子商务网站系统.我这个学期就3个比较重要目标,一就是学好英语(我英语实在实在是太差),再就是在计算机方面学一门比较前沿的语言(我选择了c#,也在学jsp,不过java没基础),三了就是学好sql数据库,像TSQL语言,触发器,存储过程,数据库安全之类的.假期还没计划好，至少会有为10月份的网络工程师(软考)备考,希望到时能够通过.哎,那么长的假期真不知道怎么过(就象今天这5.1一样),到时再想吧

First article of my Blogger

2007-04-30T17:39:00.000+08:00

Asp code:Connection

Last week,I am busy studing c# program language and asp language,Becauser I want to make web with c#.I am so tire that no time to write article in my blogger.
NOw, Write the asp connection database code:

OLEDB Connection:

provider=sqloledb;DataSource=server;InitialCatalog=basename;uid=username;pwd=pwd;

ODBC Connection:

driver={SQL SERVER};Server=server;DataBase=basename;Uid=username;Pwd=pass;

For Example:

OLEDB:

Sub OpenConnection()
Dim cn,rs,cnstr
Set cn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
cnstr="provider=sqloledb;DataSource=Local;InitialCatalog=test;Uid=sa;Pwd=123;"
cn.open cnstr
Rs.open "Select * from usrinfo ",2
End Sub

ODBC:

Sub OpenConnection()
Dim cn,cnstr
Set cn=Server.CreateObject("ADODB.Connection")
cnstr="driver={SQL SERVER};Server=Local;Database=test;Uid=sa;Pwd=1452;"
cn.open str
set Open_cn=cn
If Err Then
err.Clear
Cn.close:set Cn=nothing
Response.Write "Connect Database Error"
Response.end
End if
End Sub

最近一直忙着学习c#和asp,因为自己对这2门语言挺感兴趣,现在我已经可以用用asp做一个功能比较齐全的网站了,但还是不够熟练,是用dreamweaver辅助制作的,代码自己只能写一部分,另一部分靠软件生成.现在我最想做的事,就是学好c#,因为它的功能实在太强大了，我想用它来制作一个电子商务系统.可是现在对c#还是掌握不够.上周上课,老师说要找我5.1做项目(可是到现在也没消息:(,还好我没当回事),没消息我到挺松了一口气,要是真的去,我这技术怎么做啊.想想,我的知识太贫乏了.