Questo e tutto il contenuto dello script :-( e credo non ci siano errori :-(
<%@ Page Language="VB" Debug="True" %>
<%@ import Namespace="System" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<%@ import Namespace="System.IO" %>
<script runat="server">
public AdminName as string
public AdminID as integer
Sub Page_Load(sender As Object, e As EventArgs)
if Request.QueryString("Action")="Logout" then
call Loginz()
end if
if not ispostback then
call Loginz()
end if
end sub
Sub CmdLogin_Click(sender As Object, e As ImageClickEventArgs)
if txtuser.text="" or txtpass.text="" then
if txtuser.text="" then
msgbox ("please enter Loginname",MsgBoxStyle.SystemModal,"LoginName non valido")
exit sub
end if
if txtpass.text="" then
msgbox ("please enter Login Password",MsgBoxStyle.SystemModal,"Password errata")
exit sub
end if
else
Dim myConnection As new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/") & "/mdb-database/miodb.mdb")
Dim QString as String= "SELECT [Admins].[AdminID] FROM [Admins] where admins.AccName='" & txtuser.text & "' and admins.password='" & txtpass.text & "'"
Dim myCommand As OLEDBDataAdapter = New OLEDBDataAdapter(QString, myConnection)
Dim DS As DataSet
DS = New DataSet()
myCommand.Fill(DS, "Admins")
If DS.Tables(0).Rows.Count() =1 Then
AdminID=DS.Tables(0).Rows(0).Item(0)
Msg.Text =""
AdminName=txtuser.text
LnkBanners.navigateurl="AdminMain.aspx?Spy=" & ZSecurity("Banners")
LnkBrands.navigateurl="AdminMain.aspx?Spy=" & ZSecurity("Brands")
LnkCategories.navigateurl="AdminMain.aspx?Spy=" & ZSecurity("Categories")
LnkUsers.navigateurl="AdminMain.aspx?Spy=" & ZSecurity("Users")
LnkItems.navigateurl="AdminMain.aspx?Spy=" & ZSecurity("Items")
LnkSuppliers.navigateurl="AdminMain.aspx?Spy=" & ZSecurity("Suppliers")
LnkOrders.navigateurl="AdminMain.aspx?Spy=" & ZSecurity("Orders")
LnkBanners.navigateurl="AdminMain.aspx?Spy=" & ZSecurity("Banners")
LnkFiles.navigateurl="AdminMain.aspx?Spy=" & ZSecurity("Files")
TblLogin.visible=false
TblInfo.visible=true
TblTitle.visible=True
session.timeout="10"
session("AdminName")=txtuser.text
session("AdminID")=txtuser.text
lbldate.text=date.today
QString= "SELECT * FROM [Brands]"
myCommand= New OLEDBDataAdapter(QString, myConnection)
DS = New DataSet()
myCommand.Fill(DS, "Brands")
LblBrands.text=DS.Tables(0).Rows.Count()
QString= "SELECT * FROM [Categories]"
myCommand= New OLEDBDataAdapter(QString, myConnection)
DS = New DataSet()
myCommand.Fill(DS, "Categories")
LblCategories.text=DS.Tables(0).Rows.Count()
QString= "SELECT * FROM [User]"
myCommand= New OLEDBDataAdapter(QString, myConnection)
DS = New DataSet()
myCommand.Fill(DS, "User")
LblUsers.text=DS.Tables(0).Rows.Count()
LblName.Text = "benvenuto "& AdminName
QString= "SELECT * FROM [Supplier]"
myCommand= New OLEDBDataAdapter(QString, myConnection)
DS = New DataSet()
myCommand.Fill(DS, "Supplier")
LblSuppliers.text=DS.Tables(0).Rows.Count()
QString= "SELECT * FROM [Item]"
myCommand= New OLEDBDataAdapter(QString, myConnection)
DS = New DataSet()
myCommand.Fill(DS, "Item")
LblItems.text=DS.Tables(0).Rows.Count()
dim DbFName as string = "/mdb-database/miodb.mdb"
Dim FInfo as FileInfo
FInfo =new FileInfo(DbFName)
LblDBSize.text=left((FInfo.length.ToString / 1024 /1024),4 ) & " Mb"
Else
Msg.Text = "Username o Password errati, riprova"
End If
end if
End Sub
function Loginz()
LnkBanners.Navigateurl=""
LnkBrands.Navigateurl=""
LnkCategories.Navigateurl=""
LnkUsers.Navigateurl=""
LnkItems.Navigateurl=""
LnkFiles.Navigateurl=""
LnkSuppliers.Navigateurl=""
TblInfo.visible=false
TblTitle.visible=false
TblLogin.visible=true
session.clear
end function
Sub LinkButton1_Click(sender As Object, e As EventArgs)
session.clear
response.redirect("adminlogin.aspx")
End Sub
function ZSecurity(type as string,optional Act as string="",optional ID as string="")
dim v as string
dim i as integer
dim a as string
dim zz as integer
dim IDLength as string
IDLength=len(ID)
for i=0 to 299
Randomize
zz = Int((1 - 3) * Rnd + 2)
Select Case zz
Case Is = 0
v=v & Chr(Int((57 - 48) * Rnd + 48))
Case Is = 1
v=v & Chr(Int((122 - 97 + 1) * Rnd + 97))
End Select
next i
select case Act
case ""
select case type
case "Brands"
v= left(v,45) & "xd1" & right(v,253)
case "Categories"
v= left(v,45) & "vdf" & right(v,253)
case "Items"
v= left(v,45) & "z2r" & right(v,253)
case "Users"
v= left(v,45) & "333" & right(v,253)
case "Suppliers"
v= left(v,45) & "12a" & right(v,253)
case "Orders"
v= left(v,45) & "hj5" & right(v,253)
case "Banners"
v= left(v,45) & "2bq" & right(v,253)
case "Files"
v= left(v,45) & "m1u" & right(v,253)
end select
case "Add"
select case type
case "Brands"
a= left(v,45) & "xd1" & mid(v,48,200)
a=a & mid(v,len(a),266-len(a)) & "x3i"
v=a & mid(v,len(a),300-len(a))
case "Categories"
a= left(v,45) & "vdf" & mid(v,48,200)
a=a & mid(v,len(a),266-len(a)) & "x3i"
v=a & mid(v,len(a),300-len(a))
case "Items"
a= left(v,45) & "z2r" & mid(v,48,200)
a=a & mid(v,len(a),266-len(a)) & "x3i"
v=a & mid(v,len(a),300-len(a))
case "Users"
a= left(v,45) & "333" & mid(v,48,200)
a=a & mid(v,len(a),266-len(a)) & "x3i"
v=a & mid(v,len(a),300-len(a))
case "Suppliers"
a= left(v,45) & "12a" & mid(v,48,200)
a=a & mid(v,len(a),266-len(a)) & "x3i"
v=a & mid(v,len(a),300-len(a))
case "Orders"
a= left(v,45) & "hj5" & mid(v,48,200)
a=a & mid(v,len(a),266-len(a)) & "x3i"
v=a & mid(v,len(a),300-len(a))
case "Banners"
a= left(v,45) & "2bq" & mid(v,48,200)
a=a & mid(v,len(a),266-len(a)) & "x3i"
v=a & mid(v,len(a),300-len(a))
case "Files"
a= left(v,45) & "m1u" & mid(v,48,200)
a=a & mid(v,len(a),266-len(a)) & "x3i"
v=a & mid(v,len(a),300-len(a))
end select
case "Modify"
select case type
case "Brands"
a= IDLength & Mid(v,2,44) & "xd1" & mid(v,48,200) & "g55"
a=a & mid(v,len(a),266-len(a)) & ID
v=a & mid(v,len(a),300-len(a))
case "Categories"
a= IDLength & Mid(v,2,44) & "vdf" & mid(v,48,200) & "g55"
a=a & mid(v,len(a),266-len(a)) & ID
v=a & mid(v,len(a),300-len(a))
case "Items"
a= IDLength & Mid(v,2,44) & "z2r" & mid(v,48,200) & "g55"
a=a & mid(v,len(a),266-len(a)) & ID
v=a & mid(v,len(a),300-len(a))
case "Users"
a= IDLength & Mid(v,2,44) & "333" & mid(v,48,200) & "g55"
a=a & mid(v,len(a),266-len(a)) & ID
v=a & mid(v,len(a),300-len(a))
case "Suppliers"
a= IDLength & Mid(v,2,44) & "12a" & mid(v,48,200) & "g55"
a=a & mid(v,len(a),266-len(a)) & ID
v=a & mid(v,len(a),300-len(a))
case "Orders"
a= IDLength & Mid(v,2,44) & "hj5" & mid(v,48,200) & "g55"
a=a & mid(v,len(a),266-len(a)) & ID
v=a & mid(v,len(a),300-len(a))
case "Banners"
a= IDLength & Mid(v,2,44) & "2bq" & mid(v,48,200) & "g55"
a=a & mid(v,len(a),266-len(a)) & ID
v=a & mid(v,len(a),300-len(a))
case "Files"
a= IDLength & Mid(v,2,44) & "m1u" & mid(v,48,200) & "g55"
a=a & mid(v,len(a),266-len(a)) & ID
v=a & mid(v,len(a),300-len(a))
end select
end select
return v
end function
</script>
