📄 index.aspx
字号:
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.ODBC" %>
<script runat="server">
dim strSql as string
dim objcmd as OdbcCommand
dim objreader as OdbcDataReader
Dim oConn As OdbcConnection
dim userName as string
dim pass as string
Dim sConnString As String
dim alertScript as string
Sub Page_Load(Sender As Object,E As EventArgs)
sConnString ="DSN=dot"
oConn =New OdbcConnection(sConnString)
oConn.Open()
' oConn.Close()
lbl_track.text=""
End Sub
function sMsgbox(errors as string)
alertScript="<script language=javascript>"
alertScript &="alert('" &errors &"');"
alertScript &="</script" &">"
response.write (alertscript)
end function
function chkuser()
if uid.text="" or pwd.text="" then
'lbl_track.text="Please Enter user name and password"
Call sMsgbox("Please Enter user name and password")
uid.text=""
pwd.text=""
else
userName = Regex.Replace( uid.text, "'", "''" )
pass = Regex.Replace( pwd.text, "'", "''" )
strsql="select * from tblAdmin where username='" & userName & "' and pwd='" & pass & "' "
objcmd = New OdbcCommand(strSql,oconn)
objreader=objcmd.ExecuteReader
if not Objreader.HasRows then
'lbl_track.text="Sorry you have no permission to access this"
Call sMsgbox("Sorry you have no permission to access this")
uid.text=""
pwd.text=""
else
'lbl_track.text="You are right user"
' Call sMsgbox("You are right user")
session("whois")=uid.text
response.redirect("dashboard/index.aspx")
uid.text=""
pwd.text=""
end if
end if
end function
Sub cmd_submit_Click(sender As Object, e As EventArgs)
chkuser()
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>My First Dotnet Application Vipin Sharma</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td>
</td>
</tr>
<tr>
<td>
</td>
</tr>
<tr>
<td valign="center" align="middle">
<form id="form1" name="form1" action="" method="post" runat="server">
<table bordercolor="#000000" cellspacing="0" cellpadding="0" width="47%" align="center" border="1">
<tbody>
<tr>
<td align="middle">
<table cellspacing="4" cellpadding="3" width="100%" background="file:///D|/webprojects/vipdotnet/images/tdback.jpg" border="0">
<tbody>
<tr>
<td nowrap="nowrap" colspan="2">
<img height="40" src="file:///D|/webprojects/vipdotnet/images/keys.jpg" width="36" /><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000" size="2"><strong>Please
Enter your Username and Password</strong></font></td>
</tr>
<tr>
<td>
</td>
<td>
</td>
</tr>
<tr>
<td>
<div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">User
Name:</font>
</div>
</td>
<td>
<asp:textbox id="uid" runat="server" TextMode="SingleLine"></asp:textbox>
</td>
</tr>
<tr>
<td>
<div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Password:</font>
</div>
</td>
<td>
<asp:textbox id="pwd" runat="server" TextMode="Password"></asp:textbox>
</td>
</tr>
<tr>
<td>
</td>
<td>
<asp:button id="cmd_submit" onclick="cmd_submit_Click" runat="server" Text="Submit"></asp:button>
<asp:button id="cmd_clear" runat="server" Text="Reset"></asp:button>
</td>
</tr>
<tr>
<td>
</td>
<td>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</form>
<br />
<asp:Label id="lbl_track" runat="server"></asp:Label></td>
</tr>
</tbody>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -