📄 body_index.asp

📁 电子投标系统

💻 ASP

字号:

<%@ Language=VBScript%>
<% option explicit %>
<%Response.Buffer=True%>
<%Response.Expires=-1%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 FINAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
<META NAME="Generator" CONTENT="NetObjects Fusion 4.0 Trial for Windows">
<TITLE>Administrator</TITLE>
<BASE TARGET="_parent">
</HEAD>
<BODY BACKGROUND="./FunkshowBackgr.gif" LINK="#99CCCC" VLINK="#CCCC99" TEXT="#FFFFCC" TOPMARGIN=2 LEFTMARGIN=2 MARGINWIDTH=2 MARGINHEIGHT=2>
</BODY>
</HTML>

<%
Function hasPermission(aFile)
	dim pChecker
	Set pChecker=Server.CreateObject("MSWC.PermissionChecker")
	hasPermission=pChecker.HasAccess(aFile)
	set pChecker=nothing
End Function
'Session("User")="true"
if Not hasPermission("noaccess.txt") then
	Response.Status="401 Unauthorized"
	Response.Clear
	Response.AddHeader"WWW-Authenticate","NTLM"
	Response.End
end if
Session("Administrator")="true"
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -