国产有码在线,欧美在线视频观看,久久人人爽人人爽人人片av高清

��L�� — Mon, 26 May 2008 08:53:00 GMT

<%
Class Rectangle
   Private intWidth
   Private intHeight

   Public Property Let width(iWidth)
      intWidth = iWidth
      '参数验证�?br />   End Property

   Public Property Let height(iHeight)
      intHeight = iHeight
      '参数验证�?br />   End Property

   Private Sub Class_Initialize
      '�c�d��始化代码
   End Sub

   Public Function perimeter()
      '�q�回矩�Ş的周�?br />      getResult = 2*(intHeight + intWidth)
   End Function

   Private Sub Class_Terminate
      '�c�销毁时执行的代�?br />   End Sub

End Class

'调用�c?br />Dim obj
Set objRectangle = new Rectangle
objRectangle.width = 10
objRectangle.height = 20
Response.Write(objRectangle.perimeter())
Set objRectangle = Nothing
%>

��L�� 2008-05-26 16:53 发表评论

��L�� — Wed, 21 May 2008 09:12:00 GMT

�Ҏ��输入的月份和日期�Q�返回对应的星��~�号�Q�附星��对照表：

�~�号	��h��日期	名称
1	12.22 - 1.19	��羯
2	1.20 - 2.18	水瓶
3	2.19 - 3.20	双鱼
4	3.21 - 4.20	牡羊
5	4.21 - 5.20	金牛
6	5.21 - 6.21	双子
7	6.22 - 7.22	巨蟹
8	7.23 - 8.22	狮子
9	8.23 - 9.22	处女
10	9.23 - 10.22	天秤
11	10.23 - 11.21	天蝎
12	11.22 - 12.21	��手

'输入日期�q�回星��~�号
Response.write getConstellation(11,23)

Function getConstellation(iMonth, iDay)
     Dim sDay, aDay
     sDay = "20,19,21,21,21,22,23,23,23,23,22,22"
     aDay = Split(sDay,",")
     If iDay < aDay(iMonth - 1) Then
         getConstellation = iMonth
     Else
        getConstellation = iMonth + 1
        If getConstellation = 13 Then getConstellation = 1
     End If
     Erase aDay
     Set aDay = Nothing
End Function

举一反三�Q�如果要求返回的是星座的名称而不是编号呢�Q�该怎么写？读者可以自��p��一下�?/p>

��L�� 2008-05-21 17:12 发表评论

ASP调用存储�q�程

��L�� — Wed, 21 May 2008 07:26:00 GMT

MS SQL存储�q�程

Create proc sp_join
    @result int output,
    @email nvarchar(30),
    @username nvarchar(15)
AS

-- 开始事�?/span>
Begin Tran
    INSERT INTO users(username, email) VALUES(@username, @email)
    IF @@ERROR <> 0 GOTO back

    INSERT INTO register(username) VALUES(@userName)
    IF @@ERROR <> 0 GOTO back

-- 提交事务
Set @result = 1
Commit Tran
Return

-- 回滚事务
back:
    Set @result = 0
    RollBack Tran
    Return

数据库连接代�?br />

Sub Command(oCmd)
    Set oCmd = Server.CreateObject("ADODB.Command")
End Sub

Sub Connection(oConn)
    Set oConn = Server.CreateObject("ADODB.Connection")
    oConn.Open "Provider=SQLOLEDB;Server=;User ID=;Password=;Database=;"
End Sub

Sub Destroy(obj)
    If isObject(obj) Then Set obj = Nothing
End Sub

ASP调用代码

Dim strEmail, strUserName
Dim objCmd, objConn, intResult

strEmail = Request.Form("email")
strUserName = Request.Form("username")

'服务器端数据验证�Q�略�Q?/span>

Command objCmd
Connection objConn

With objCmd
    .ActiveConnection = objConn
    .CommandType = 4
    .CommandText = "sp_join"
    .Parameters.Refresh
    .Parameters("@email") = strEmail
    .Parameters("@username") = strUserName
    .Execute
End With
intResult = objCmd.parameters("@result")

Destroy objCmd
Destroy objConn

If intResult = 0 Then
    Response.Write("注册��p�|")
Else
    Response.Write("注册成功")
End If

�q�是一个简单的例子�Q�希望能起到抛砖引玉的作用�?/p>

��L�� 2008-05-21 15:26 发表评论