<%@ Page Language="VBScript" CODEPAGE="65001"%>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.SqlClient"%>
<%@ Import Namespace="System.Data.SqlConnection"%>
<%@ Import Namespace="System.Data.SqlCommand"%>
<%
Session("u")=""
session("accessCount")=1+session("accessCount")
if session("accessCount")>200 then
response.Write("提示：服务拒绝，请稍候再试！")
response.end
end if
if request("username")<>"" AND request("password")<>"" then
Dim conn As SqlConnection = New SqlConnection(System.Configuration.ConfigurationManager.AppSettings("conn_str"))
Dim r As DataRow
Try
Dim com As SqlCommand = conn.CreateCommand()
com.CommandText = "SELECT * FROM dbo.用户SNB WHERE 登录名 = @u AND 密码 = @p"
com.Parameters.Add("u", SqlDbType.VarChar): com.Parameters("u").Value = request("username")
com.Parameters.Add("p", SqlDbType.VarChar): com.Parameters("p").Value = request("password")
Dim sda As SqlDataAdapter = New SqlDataAdapter(com)
conn.Open()
Dim ds As New DataSet
sda.Fill(ds)
Dim dt As DataTable = ds.Tables(0)
If dt.Rows().Count = 1 Then
r = dt.Rows(0)
Session("u") = r("登录名")
Session("username")=r("登录名")
session("true_name")=r("姓名")
'1:普及版; 2:专业版; 11:普及版+融资融券; 21:专业版+融资融券; 3:闪客版; 4:SNB预警精灵;
if r("持有产品类型")="1" then
session("product_type")= "普及版"
elseif r("持有产品类型")="2" then
session("product_type")= "专业版"
elseif r("持有产品类型")="11" then
session("product_type")= "普及版+融资融券"
elseif r("持有产品类型")="21" then
session("product_type")= "专业版+融资融券"
elseif r("持有产品类型")="3" then
session("product_type")= "闪客版"
elseif r("持有产品类型")="4" then
session("product_type")= "预警版" 'SNB预警精灵
end if
response.Redirect("snbshop.html")
else
session("accessCount")=1+session("accessCount")
end if
Catch exp As Exception
Finally
conn.Close()
End Try
end if
%>
SNB™股票自动交易伴侣 产品服务
