时间权限的判断,大家帮帮忙,急!!!!!!!!!!

Question

 Dim dt As DateTime
        Dim conn_netname As New SqlConnection(ConnectionString)
        conn_netname.Open()
        Dim sql_netname As String
        sql_netname = "select * from user_information where user_email = '" & Session("user_email") & "'"
        Dim cmd_netname As New SqlCommand(sql_netname, conn_netname)
        Dim dr_netname As SqlDataReader = cmd_netname.ExecuteReader()
        If dr_netname.Read Then
            Me.Label2.Text = dr_netname.Item("user_netname")
            Me.Label3.Text = dr_netname.Item("user_value")
            Me.lblstyle.Text = dr_netname.Item("user_style")
            dt = dr_netname.Item("vip_time")
        End If
        If lblstyle.Text = "vip" Then
            Me.LinkButton1.Visible = False
        End If
        dr_netname.Close()
        Dim dt1 As Date = DateTime.Now
        'Dim dt2 As Date = Convert.ToDateTime("dt")
        Dim dt2 As Date = dt
        dt2 = dt2.AddDays(30)
        If dt2.CompareTo(dt1) < 0 Then
            Dim sql_vip As String
            sql_vip = "update user_information set user_style='会员'"
            Dim cmd_vip As New SqlCommand(sql_vip, conn_netname)
            cmd_vip.ExecuteNonQuery()
        End If
        conn_netname.Close()下面在判断时间 加减的时候 不管我把时间改成什么样,他都会把VIP更新为 会员 
大家帮我看看吧~

Answer 1

Dim t1 As New DateTime(100)
Dim t2 As New DateTime(20)If DateTime.Compare(t1, t2) > 0 Then
    Console.WriteLine("t1 > t2")
End If
If DateTime.Compare(t1, t2) = 0 Then
    Console.WriteLine("t1 == t2")
End If
If DateTime.Compare(t1, t2) < 0 Then
    Console.WriteLine("t1 < t2")
End If
仔细看下两个时间

Answer 2

//主要问题出现在这里
Dim dt1 As Date = DateTime.Now　//dt1是现在时间 
Dim dt2 As Date = Convert.ToDateTime("dt") //vip 时间
Dim dt2 As Date = dt 
dt2 = dt2.AddDays(30) //推迟３０天
If dt2.CompareTo(dt1)  < 0 Then 　//如果dt2比dt1大
  Dim sql_vip As String 
sql_vip = "update user_information set user_style='会员'" //更新为会员
//你的意思，vip一个月以后自动变成普通会员？

Answer 3

2楼 我是想达到 vip一个月以后自动变成普通会员？
  Dim dt2 As Date = dt 
这个是成为VIP当时的时间
Dim dt1 As Date = DateTime.Now　
这个就是当时的时间,我是在登陆按钮下写的 dt2 = dt2.AddDays(30) 
就是说 加30  说明VIP的期限是一个月 但是我运行后,不管什么时间 他都会更新为 会员 这个地方找不到错在哪了

Answer 4

你更新的语句是写在 if 里的，那说明 if 成立了被，或者 在其它地方有更新语句。