بچه ها یک کد برای صفحه login نوشتم ببینید قابل حک شدن هست ویا عیب ان چی هست
Dim conlogin As SqlClient.SqlConnection
Application("conlogin") = New SqlClient.SqlConnection("workstation id=(local);packet size=4096;user id=" + TextBox1.Text + ";password=" + TextBox2.Text + ";data source=(local);persist security info=False;initial catalog=portalnews")
Try
Application("conlogin").Open()
topic.Visible = True
topic.Visible = True
advertise.Visible = True
news.Visible = True
import_news.Visible = True
other_report.Visible = True
Catch ex As Exception
Response.Write("<script>alert('you are not admin')</script>")
End Try