Profil de Planner钢铁AND牛肉饼的Final FusionPhotosBlogListes Outils Aide

Biosn Ho

Occupation
Centres d'intérêt 
我?厉害落,点厉害?悟讲啊! 我相信定义和概念
My Custom Part|true|
Photo 1 sur 5

钢铁AND牛肉饼的Final Fusion

8 avril

asp.net中读取数据库的两种方式

在asp.net中,读取数据库中的数据可以使用DataReader和DataSet 2种方式,
两者的差异如下:
    使用Dataset对象读取数据大致需要以下5个步骤:
    (1)建立数据库链接,可以选用SQLConnection或者01edbConnection。
    (2)将查询保存在SQLDataAdapter或者oledbDataAdapter对象中。
    (3)使用DataAdapter对象的Fill方法将数据填充到DataSet中的DataTable中。
    (4)为DataTable对象建立DataView对象以显示数据,这一步可以省略。
    (5)将DataView或者DataSet绑定到Server Control上。

    使用DataReader读取数据大致需要以下6个步骤:
    (1)建立数据库链接,可以选SQLConnection或者OLedbConnection。
    (2)使用Connection对象的open方法打开数据库链接。
    (3)将查询保存在SQLCommand或者OledbCommand对象中。
    (4)调用Command对象的ExecuteReader方法,将数据读入DataReader对象中。
    (5)调用DataReader的Read或者Get方法读取—笔数据,以便显不。
    (6)调用Connection对象的Close方法,关闭数据序链接。

ASP.NET页面间的传值的几种方法

ASP.NET  WEB  FORMS    给开发者提供了极好的事件驱动开发模式。然而这种简单的应用程序开发模式却给我们带来了一些小问题,举个例子,在传统的ASP应用程序中,你能够通过POST方法很容易的把一个值或多个值从一个页面传送到另一个页面,用同样的方法在ASP.NET中实现有点麻烦。在这里,我们可以通过其他方式来解决这种情形。ASP.NET为我们提供了三种方式,一种是可以通过用QueryString来传送相应的值,再一种是通过session变量来传送相应的值,还有就是通过Server.Transfer方法来实现。下面分别一一介绍:   
 
一、使用Querystring 
Querystring是一种非常简单的传值方式,其缺点就是会把要传送的值显示在浏览器的地址栏中,并且在此方法中不能够传递对象。如果你想传递一个安全性不是那么太重要或者是一个简单的数值时,用此方法最好不过了。下面通过一个小例子来完成传值工作,步骤如下: 
1、创建一个web  form 
2、在新建的web  form中放置一个button1,在放置两个TextBox1,TextBox2   
3、为button按钮创建click事件 
代码如下: 
private  void  Button1_Click 
(object  sender,  System.EventArgs  e) 

 string  url; 
 url="webform2.aspx?name="  +   
   TextBox1.Text  +  "&email="  +   
   TextBox2.Text; 
 Response.Redirect(url); 

4、新建一个目标页面命名为webform2 
5、在webform2中放置两个Label1,Label2 
在webform2的Page_Load中添加如下代码: 
private  void  Page_Load 
(object  sender,  System.EventArgs  e) 

 Label1.Text=Request.QueryString["name"]; 
 Label2.Text=Request.QueryString["email"]; 

运行,即可看到传递后的结果了。 
 
二、使用Session变量 
 
使用Session变量传值是一种最常见的方式了,此中方式不仅可以把值传递到下一个页面,还可以交叉传递到多个页面,直至把Session变量的值removed后,变量才会消失。举个例子看看: 
1、创建一个web  form 
2、在新建的web  form中放置一个button1,在放置两个TextBox1,TextBox2   
3、为button按钮创建click事件 
代码如下: 
private  void  Button1_Click 
(object  sender,  System.EventArgs  e) 

               Session["name"]=TextBox1.Text; 
 Session["email"]=TextBox2.Text; 
 Response.Redirect("webform2.aspx"); 

4、新建一个目标页面命名为webform2 
5、在webform2中放置两个Label1,Label2 
在webform2的Page_Load中添加如下代码: 
private  void  Page_Load 
(object  sender,  System.EventArgs  e) 

 Label1.Text=Session["name"].ToString(); 
 Label2.Text=Session["email"].ToString(); 
 Session.Remove("name"); 
 Session.Remove("email"); 

运行,即可看到传递后的结果了。 
 
三、使用Server.Transfer 
虽然这种方法有点复杂,但也不失为一种在页面传值的方式。 
举个例子看看: 
1、创建一个web  form 
2、在新建的web  form中放置一个button1,在放置两个TextBox1,TextBox2   
3、为button按钮创建click事件 
代码如下: 
private  void  Button1_Click 
(object  sender,  System.EventArgs  e) 

 Server.Transfer("webform2.aspx"); 

4、创建过程来返回TextBox1,TextBox2控件的值代码如下: 
public  string  Name 

 get 
 { 
   return  TextBox1.Text; 
 } 

 
public  string  EMail 

 get 
 { 
   return  TextBox2.Text; 
 } 

5、新建一个目标页面命名为webform2 
6、在webform2中放置两个Label1,Label2 
在webform2的Page_Load中添加如下代码: 
private  void  Page_Load 
(object  sender,  System.EventArgs  e) 

 //创建原始窗体的实例 
 WebForm1  wf1; 
 //获得实例化的句柄 
 wf1=(WebForm1)Context.Handler; 
 Label1.Text=wf1.Name; 
 Label2.Text=wf1.EMail; 
 

运行,即可看到传递后的结果了。

想试着做一个简单的读取RSS新闻的页面

在许多时候我们使用ASP+数据库进行网站编程的时候,会遇上读取某记录出来和另外一些变量进行运算的情况,如果取的记录数据为NULL值,那么可能会造成程序返回错误结果,如果每个读记录的语句后都加上判断语句,程序又显得拖沓,因此,我认为编写一个专用的函数对读取的记录进行自动或半自动识别是很好的办法。

    根据VBscript的数据类型定义,结合利用VarType函数,构造以下自动处理函数InitdataType,
 输入两个参数,要处理数据本身(theDate)和准备输出的数据类型(theReturnType,整数型): theReturnType强制返回的数据类型 ,同VarType返回值定义的意义一样, 'theReturnType 如果忽略: 返回同theDate一样的数据类型.

   比较常见的NULL返回,对于字符串型返回空字符串,对各种于数值返回0值,对于逻辑值返回FALSE(假),对于日期

返回最早的日期

函数程序:
Function InitdataType(theDate,theReturnType)
 '返回或强制指示变量子类型的值。theDate 参数可以是任何变量。
 'theReturnType(整数型): 强制返回的数据类型 ,同VarType返回值定义的意义一样
 'theReturnType 如果忽略: 返回同theDate一样的数据类型.

 '下面引用的函数VarType(varname)会返回指示变量子类型的值。,varname 参数可以是任何变量。
 'VarType函数返回值的意义如下:
 'vbEmpty 0 Empty(未初始化)
 'vbNull  1 Null(无有效数据)
 'vbInteger 2 整数
 'vbLong  3 长整数
 'vbSingle 4 单精度浮点数
 'vbDouble 5 双精度浮点数
 'vbCurrency 6 货币
 'vbDate   7 日期
 'vbString  8 字符
 'vbObject  9 Automation 对象
 'vbError  10 错误
 'vbBoolean  11 Boolean
 'vbVariant  12 Variant(只和变量数组一起使用)
 'vbDataObject 13 数据访问对象
 'vb????   14 小数
 'vbByte   17 字节
 'vbArray  8192 数组

 On Error Resume Next
 'Err.Clear
    dim n_dataType,vo_ReData,vo_renewdata,c_TypeName

    n_dataType = VarType(theDate)
 'c_TypeName = TypeName(theDate)
 If n_dataType<2 then
  if isNumeric(theReturnType) then
   Select Case theReturnType
    case 1
     vo_renewdata=NULL
    case 2
     vo_renewdata=0
    case 3
     vo_renewdata=0
    case 4
     vo_renewdata=0
    case 5
     vo_renewdata=0
    case 6
     vo_renewdata=0
    case 7
     vo_renewdata=0
    case 8
     vo_renewdata=""
    case 11
     vo_renewdata=DEF_False
    case 14
     vo_renewdata=0
    case 17
     vo_renewdata=chr(0)
    case else
     vo_renewdata=theDate
   end Select
  else
   vo_renewdata=theDate
  end if
 else
  if isNumeric(theReturnType) then
   Select Case theReturnType
    case 0
     vo_renewdata=Empty
    case 1
     vo_renewdata=NULL
    case 2
     if isNumeric(theDate) then
      vo_renewdata=cInt(theDate)
     else
      vo_renewdata=Eval("0+" & theDate &"")
      if not isNumeric(vo_renewdata) then vo_renewdata=0
     end if
    case 3
     if isNumeric(theDate) then
      vo_renewdata=cLng(theDate)
     else
      vo_renewdata=Eval("0+" & theDate &"")
      if not isNumeric(vo_renewdata) then vo_renewdata=0
     end if
    case 4
     if isNumeric(theDate) then
      vo_renewdata=cSng(theDate)
     else
      vo_renewdata=Eval("0+" & theDate &"")
      if not isNumeric(vo_renewdata) then vo_renewdata=0
     end if
    case 5
     if isNumeric(theDate) then
      vo_renewdata=cDbl(theDate)
     else
      vo_renewdata=Eval("0+" & theDate &"")
      if not isNumeric(vo_renewdata) then vo_renewdata=0
     end if
    case 6
     if isNumeric(theDate) then
      vo_renewdata=cCur(theDate)
     else
      vo_renewdata=0
     end if
    case 7
     if isDate(theDate) then
      vo_renewdata=theDate
     else
      vo_renewdata=cDate(0)
     end if
    case 8
     if Not isNull(theDate) then
      vo_renewdata=cStr(theDate)
     else
      vo_renewdata=""
     end if
    case 11
     If (not isNull(theDate)) or theDate<>"" Then 
      vo_renewdata=DEF_True
     else
      vo_renewdata=DEF_False
     end if
    case 14
     if isNumeric(theDate) then
      vo_renewdata=cDbl(theDate)
     else
      vo_renewdata=Eval("0+" & theDate &"")
      if not isNumeric(vo_renewdata) then vo_renewdata=0
     end if
    case 17
     if Not isNull(theDate) then
      vo_renewdata=CByte(theDate)
     else
      vo_renewdata=CByte(0)
     end if
    case else
     vo_renewdata=theDate
   end Select
  else
   vo_renewdata=theDate
  end if
 end if
 err.clear
 'vMsgBox("rtn:" & cstr(vo_renewdata) & " type:" & cstr(c_TypeName)) & "/" & cstr(n_dataType)
 InitdataType=vo_renewdata
End Function

在实际程序中调用示意:

Set conn = Server.CreateObject("ADODB.Connection")
conn.open xDb_Conn_Str
Set rs=Server.Createobject("ADODB.Recordset")

dim n_OD,cNewName ,nNewValue

n_OD=1.2

sql = "SELECT sl_Name,sl_Value FROM Table_SL WHERE sl_name='mike'"
rs.open sql,conn,1
if not rs.eof then
 cNewName = InitdataType(rs("sl_Name"),8) 
 nNewValue = InitdataType(rs("sl_Value"),5) * n_OD
 response.write cNewName  & "的标准零售价为:" & nNewValue & "(元)"
end if
rs.Close
Set rs=Nothing

25 mars

“我”的本质是能量

     大家有无时侯会不会想“我为什么会是我?”,“我看到的为什么是这个身躯看到的?”每当我思考到这个问题,总有一种奇怪的感觉,后来我想其实我们的“精神”会不会是一种能量,而这种能量在某一结构出现之前是处于游离状态,到特定的结构形成后,各种能量会积聚,形成精神上的“我”。这也能解释双包胎为何会心灵相通,因为他们的结构相似,同一能量同时分布在两个结构,就将“我”其实是操纵两个身体,所以如果结构想同的话,我可以是别的人。当然这只是一个突发奇想。

用XML进行缓冲

     昨天睡觉前有一个想法,如果读取ACCESS的数据比XML慢的话,那就每一次修改数据库之后生成一个XML,然后从XML读取数据,会不会快一点呢?
18 février

一条语句搞定数据库分页

一条语句搞定数据库分页
select top 10 b.* from (select top 20 主键字段,排序字段 from 表名 order by 排序字段 desc) a,表名 b where b.主键字段 = a.主键字段 order by a.排序字段
10 = 每页记录数
20 = (当前页 + 1) * 每页记录数
以上语句即可以实现分页,但是最后取出的结果排序是升序,如果需要结果集为降序(例如时间),则有两种方法可以处理
1.使用以下语句,但效率可能要降低一些
select * from 表名 b, (select top 10 主键字段,排序字段 from (select top 20 主键字段,排序字段 from 表名 order by 排序字段 desc) a order by 排序字段 ) c where b.主键字段 = c.主键字段 order by c.排序字段 desc
2.在ado里处理,将记录集游标移到最后,然后前移
''以下为asp范例
set rsTemp = Server.CreateObject("adodb.recordset")
rsTemp.Open 语句,conn,1,1
rsTemp.MoveLast
for i = 1 to rsTemp.RecordCount
 '取值....
rsTemp.MovePrevious
next
 
经测试,以上分页方法比使用临时表分页速度还要快,并且简单易用
23 janvier

关于登陆过程引发的问题

      这几天都忙着写后台程序,一时兴起,将用户管理写成了一个类,但在ASP里面作用不大,IIS不能编译,只能解释,所以这样做的好处只是提高了代码的重复使用。在写的过程,我遇到了一个问题,怎样处理自动登陆?能实现方法其实很多,但都不是很安全,既然要自动登陆就肯定要用COOKIES,用户名和密码作标识就不用说了,最多也只对密码作MD5加密。这时候我想到了动网,于是去看看他的自动登陆怎么写,它也是在CLIENT下写用户名和密码,那么就是说只要你用某用户的用户名和经过MD5处理的密码,就能以那个人的身份登陆,这样比暴力破戒更来得轻松。
      看来到现在为止,用ASP就只能这样实现了。这又显示了动网的聪明之处,他的管理员登陆是不设有自动登陆的,这保证了后台的安全,有些人总说这个麻烦,我就话动网做得聪明。