?? 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美化版整站系統(tǒng)</b></div>
<br>
<span class="unnamed1"><b>以下為</b></span><b> </b><b></b><span class="unnamed1"><b>站點的基本信息,管理操作請點擊左邊相應(yīng)連接</b></span><br>
--------------------------------------------------------------------------------------------
<br>
<br>
<span class="unnamed1">>> 聯(lián)系方法</span><br>
給我留言- (此站點的留言板既可)<br>
在線QQ - 44842517 <br>
信箱地址- networksatyr@sohu.com <br> <br>
<span class="unnamed1">>> 相關(guān)說明</span><br> <br>
"networksatyr"(以下簡稱satyr)是由Satyr獨立編寫的一個整站系統(tǒng),它原本是Satyr從網(wǎng)上下載的一個asp站點,它的原作者是NowaNS,在用了一個多月的時間(不好意思,太忙了)改寫為asp.net。它包括新聞、日記、下載、鏈接、留言、投票等功能模塊,
免費提供給非商業(yè)性的個人或團體組織站點使用。但在使用過程中請遵循以下幾點:<br> <br>
1. 不得將本系統(tǒng)作為不正當(dāng)之用!尤其是色情或涉及政治等方面的內(nèi)容,請勿使用本系統(tǒng)!<br>
2. 作為本系統(tǒng)的編寫者,我不對任何使用本系統(tǒng)所造成的不良后果負(fù)責(zé)。因為你使用的前提是自愿!<br>
3. 請盡可能的保留版權(quán)信息,對于有特殊要求的可以向我提出,經(jīng)過許可后方可去除版權(quán)信息。<br>
4. 請盡快到作者主頁進行留言或給我發(fā)郵件,方便我進行統(tǒng)計,并在日后提供技術(shù)支持或更新升級通知等等。<br>
5. 如果有問題請到本站的留言板里尋求技術(shù)支持,我會盡快地為你解決!<br>
6. 由于我技術(shù)還不是很好,所以難免會出現(xiàn)這樣那樣的問題。但是請相信我,我一直在努力學(xué)習(xí),努力做的更好。如果你是高手,如果你愿意的話,你可以幫我完善一下這個程序,這也是我讓大家下載的一個原因!要是你完善的真的很好,我會在版權(quán)申明和相關(guān)的說明文檔中附上您的大名!<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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -