📄 admin.aspx
字号:
<%@ Page Language="VB" ContentType="text/html"%>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<%@ Register TagPrefix="admin" TagName="menu" Src="../lib/adminmenu.ascx" %>
<%@ Register TagPrefix="admin" TagName="foot" Src="../lib/adminfoot.ascx" %>
<script runat="server">
sub login(obj as object,e as eventargs)
dim intid as integer
intid=executeSql("select admin_id from admin where admin_name='" & username.text & "' and admin_password='" & password.text & "'","admin.mdb")
if intid<>0 then
FormsAuthentication.setauthcookie(intid,false)
response.Write("Login succeed!")
else
response.Write("UserName or Password Error!")
end if
end sub
function executeSql(sql as string,database as string) as integer
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("../data/" & database))
dim objcmd as new oledbcommand(sql,conn)
try
objcmd.connection.open()
return objcmd.executescalar()
catch ex as exception
response.Write(ex.message)
finally
objcmd.connection.close()
end try
end function
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理主页</title>
<link href="../site_css.css" rel="stylesheet" type="text/css">
</head>
<body background="../images/bg1.gif">
<form runat="server">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="3" height="8"><img src="../images/logo.gif" width="960" height="235"></td>
</tr>
<tr>
<td width="150" align="left" valign="top"> <admin:menu runat="server"/> </td>
<td width="1" background="../images/dotlinev.gif"></td>
<td width="554" valign="top"> <table width="98%" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td class="diaryhead">欢迎进入管理页面-----<br>
UserName:<asp:TextBox ID="username" runat="server"/>PassWord:<asp:TextBox ID="password" runat="server"/><asp:Button Text="确定" runat="server" onclick="login"/></td>
</tr>
<tr>
<td class="chinese">
<div align="center"></div>
<br>
<span class="unnamed1"><b>以下为</b></span><b> </b><b></b><span class="unnamed1"><b>站点的基本信息，管理操作请点击左边相应连接</b></span><br>
--------------------------------------------------------------------------------------------
<br>
<br>
<span class="unnamed1">>> 联系方法</span><br>
<br>
<br>
<span class="unnamed1">>> 相关说明</span><br> <br>
<br>
<br>
<div align="right"></div>
</td>
</tr>
</table>
<br> </td>
</tr>
<tr>
<td colspan="3" height="1" background="../images/dotlineh.gif"></td>
</tr>
</table>
</form>
<admin:foot runat="server"/>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -