📄 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"></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"><b>欢迎您使用 </b>NowaNS <b>12YES.com美化版整站系统</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 - 44842517 <br>
信箱地址- networksatyr@sohu.com <br> <br>
<span class="unnamed1">>> 相关说明</span><br> <br>
"networksatyr"(以下简称satyr)是由Satyr独立编写的一个整站系统,它原本是Satyr从网上下载的一个asp站点，它的原作者是NowaNS，在用了一个多月的时间（不好意思，太忙了）改写为asp.net。它包括新闻、日记、下载、链接、留言、投票等功能模块，
免费提供给非商业性的个人或团体组织站点使用。但在使用过程中请遵循以下几点：<br> <br>
1. 不得将本系统作为不正当之用！尤其是色情或涉及政治等方面的内容，请勿使用本系统！<br>
2. 作为本系统的编写者，我不对任何使用本系统所造成的不良后果负责。因为你使用的前提是自愿！<br>
3. 请尽可能的保留版权信息，对于有特殊要求的可以向我提出，经过许可后方可去除版权信息。<br>
4. 请尽快到作者主页进行留言或给我发邮件，方便我进行统计，并在日后提供技术支持或更新升级通知等等。<br>
5. 如果有问题请到本站的留言板里寻求技术支持，我会尽快地为你解决！<br>
6. 由于我技术还不是很好，所以难免会出现这样那样的问题。但是请相信我，我一直在努力学习，努力做的更好。如果你是高手，如果你愿意的话，你可以帮我完善一下这个程序，这也是我让大家下载的一个原因！要是你完善的真的很好，我会在版权申明和相关的说明文档中附上您的大名！<br> <br>
最后祝大家使用愉快，有什么好的点子什么的不要忘了告诉我一下哦！！！：）<br> <br> <br>
<div align="right">Network Satyr写于2004-3-27 07:56 </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 + -