📄 admin.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" %>
<%@ Register TagPrefix="admin" TagName="menu" Src=".../lib/adminmenu.ascx" %>
<%@ import Namespace="system.data" %>
<%@ import Namespace="system.data.oledb" %>
<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)
username.visible="false"
password.visible="false"
Button1.visible="false"
UserControl1.visible="true"
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("admin.mdb"))
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>
<title>管理主页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="../site_css.css" type="text/css" rel="stylesheet" />
</head>
<body>
<form runat="server">
<table cellspacing="0" cellpadding="0" width="100%" align="center" border="1">
<tbody>
<tr>
<td colspan="3" height="8">
</td>
</tr>
<tr>
<td valign="top" align="left" width="150">
<admin:menu id="UserControl1" runat="server" Visible="False"></admin:menu>
<p>
</p>
<p>
</p>
</td>
<td width="1">
</td>
<td valign="top" width="554">
<table cellspacing="1" cellpadding="4" width="98%" align="center" border="0">
<tbody>
<tr>
<td class="diaryhead">
欢迎进入管理页面-----<br />
UserName:<asp:TextBox id="username" runat="server"></asp:TextBox>
PassWord:<asp:TextBox id="password" runat="server"></asp:TextBox>
<asp:Button id="Button1" onclick="login" runat="server" Text="确定"></asp:Button>
</td>
</tr>
<tr>
<td class="chinese">
<div align="center"><b>欢迎您使用本</b><b>系统</b>
</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 />
在线QQ - 76050760
<br />
信箱地址- <a href="mailto:smallwolf26@hotmail.com">smallwolf26@hotmail.com</a>
<br />
<br />
<span class="unnamed1">>> 相关说明</span>
<br />
<br />
1. 不得将本系统作为不正当之用！尤其是色情或涉及政治等方面的内容，请勿使用本系统！<br />
2. 作为本系统的编写者，我不对任何使用本系统所造成的不良后果负责。<br />
3. 请尽可能的保留版权信息，对于有特殊要求的可以向我提出，经过许可后方可去除版权信息。<br />
4. 如果有问题请到本站的留言板里寻求技术支持，我会尽快地为你解决！<br />
5. 由于我技术还不是很好，所以难免会出现这样那样的问题。但是请相信我，我一直在努力学习，努力做的更好。如果你是高手，如果你愿意的话，你可以帮我完善一下这个程序！要是你完善的真的很好，我会在版权申明和相关的说明文档中附上您的大名！<br />
<br />
<br />
<br />
<div align="right">Smallwolf写于2005-4-12 07:56
</div>
</td>
</tr>
</tbody>
</table>
<br />
</td>
</tr>
<tr>
<td colspan="3" height="1">
</td>
</tr>
</tbody>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -