?? conn.asp
字號:
<%@ codepage=936%>
<%
session.codepage=936
Dim Conn,Db
Db = "database/56770.set"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服務器采用較老版本Access驅動，請用下面連接方法'
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
admin_Name=Session("admin_Name")
flag=Session("flag")
Response.Cookies("admin_Name")=admin_Name
Response.Cookies("flag")=flag
if admin_Name="" or flag="" then
admin_Name=Request.Cookies("admin_Name")
flag=Request.Cookies("flag")
end if
sub safeurl
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style='font:9pt Verdana' align='center'>"
response.write "提交的路徑有誤，禁止從站點外部提交數據！"
response.write "</td></tr></table></center>"
response.end
end if
end sub
sub adminflag
response.write"<table border=0 cellspacing=1 cellpadding=0 height=0 align=center width=98% bgcolor=#183789><tr><td>"
response.write"<table width=100% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>"
response.write"<tr><td height=27 class=classtop align=center>出錯啦！</td></tr>"
response.write"<tr><td height=50 class=classtd><li>管理員沒有給您此權限！<li>您已經超時退出，請<a href=../admin_login.asp target=main><strong>重新登陸</strong></a>！</td></tr>"
response.write"</table></td></tr></table>"
end sub
%>
<%sub admintop()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=css.css rel=STYLESHEET type=text/css>
</head>
<body bgcolor="#FFFFCC" text="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<td height="5"></td>
</tr>
</table>
<script language="JavaScript" type="text/JavaScript">
var checkflag = "false";
function check(field) {
if (checkflag == "false") {
for (i = 0; i < field.length; i++) {
field[i].checked = true;}
checkflag = "true";
return "全部選定"; }
else {
for (i = 0; i < field.length; i++) {
field[i].checked = false; }
checkflag = "false";
return "取消全選"; }
}
function ConfirmDel()
{
if(confirm("確定要刪除嗎？刪除將不能恢復！"))
return true;
else
return false;
}
</script>
<%end sub%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -