⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 check.asp

📁 功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<!-- #include file="inc/version.asp" -->
<!--#include file="inc/md5.asp"-->
<%
admininfo_loginname=CheckSql(request.cookies("CnEndWeb")("admininfo_loginname"))
admininfo_logname=CheckSql(request.cookies("CnEndWeb")("admininfo_logname"))
admininfo_logpassword=CheckSql(request.cookies("CnEndWeb")("admininfo_logpassword"))
if admininfo_loginname<>"" and admininfo_logname<>"" then 
'	if request.cookies("CnendWeb")("admininfo_adminclass")<>"" then 
'		Getadminclass=request.cookies("CnendWeb")("admininfo_adminclass")
'		CnEndWeb_adminclass=Split(Getadminclass, "|||")
'	end if
	set rs=server.createobject("adodb.recordset")
	sql="select * from [admin_user] where username='"&admininfo_logname&"'"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		Response.cookies("CnendWeb")("admininfo_logname")=""
		Response.cookies("CnendWeb")("admininfo_loginname")=""
		Response.cookies("CnendWeb")("admininfo_loginclass")=""
		Response.cookies("CnendWeb")("admininfo_adminclass")=""
		Response.cookies("CnendWeb")("admininfo_logpassword")=""
		Call ShowAdminErrMsg("<p align=center style='FONT-SIZE:12pt;line-height:150%;color:#990000;font-family:幼圆'>您尚未登陆或登陆超时，请返回重新登陆！</p>","index.asp")
		response.end ()
	else
		if rs("password")<>admininfo_logpassword then
			Response.cookies("CnendWeb")("admininfo_logname")=""
			Response.cookies("CnendWeb")("admininfo_loginname")=""
			Response.cookies("CnendWeb")("admininfo_loginclass")=""
			Response.cookies("CnendWeb")("admininfo_adminclass")=""
			Response.cookies("CnendWeb")("admininfo_logpassword")=""
			Call ShowAdminErrMsg("<p align=center style='FONT-SIZE:12pt;line-height:150%;color:#990000;font-family:幼圆'>您尚未登陆或登陆超时，请返回重新登陆！</p>","index.asp")
			response.end ()
		end if
	end if
else
	Response.cookies("CnendWeb")("admininfo_logname")=""
	Response.cookies("CnendWeb")("admininfo_loginname")=""
	Response.cookies("CnendWeb")("admininfo_loginclass")=""
	Response.cookies("CnendWeb")("admininfo_adminclass")=""
	Response.cookies("CnendWeb")("admininfo_logpassword")=""
	Call ShowAdminErrMsg("<p align=center style='FONT-SIZE:12pt;line-height:150%;color:#990000;font-family:幼圆'>您尚未登陆或登陆超时，请返回重新登陆！</p>","index.asp")
	response.end ()
end if

SiteCopyright="Powered By <a style='COLOR: blue' title='终点小说连载系统' href='http://www.cnend.cn/'>"
SiteCopyright=SiteCopyright&"<b>CnEndWeb</b></a><b style='COLOR: #68d300'>"
SiteCopyright=SiteCopyright&left(right(nowversion,31),4)
SiteCopyright=SiteCopyright&"</b> &copy; 2006-2008"
SiteCopyright=SiteCopyright&" <a title='终点网络' href='http://cnend.net/' style='COLOR: blue'>CnEnd Inc.</a>"

Sub ShowAdminErrMsg(ErrMsg,backurl)
	dim strMsg
	strMsg=strMsg & "<br><br><meta http-equiv=""refresh"" content=""5 url='" & backurl &"'"">" & vbcrlf
	strMsg=strMsg & "  <table cellpadding=0 cellspacing=0 border=0 width=100%  height=90% align=center><tr><td align=center valign=center>" & vbcrlf
	strMsg=strMsg & "  <table cellpadding=0 cellspacing=1 border=0 width=500 class=tborder align=center>" & vbcrlf
	strMsg=strMsg & "  <tr><td height=25 class=thead>终点小说连载系统 错误信息</td></tr>" & vbcrlf
	strMsg=strMsg & "  <tr><td height=120 valign=top class=alt3><div id=panx1><table width=500 height=120 border=0 align=center cellpadding=1 cellspacing=1 class=panel>"
	strMsg=strMsg & "  <tr><td class=alt1 valign=top><div style='MARGIN-left: 6px;MARGIN-right: 6px;MARGIN-bottom: 6px;'><br><fieldset><legend>您的操作请求产生了错误：</legend><br>" & ErrMsg &"<br></fieldset><p></div></td></tr></table></div></td></tr>" & vbcrlf
	strMsg=strMsg & "  <tr align=center height=25><td style='BORDER-TOP: #0b198c 1.5px solid;' class=alt2>系统将在<b style='COLOR: #FF0000'> 5 </b>秒钟内进行跳转，"
	strMsg=strMsg & "  如果您的浏览器没有自动跳转，请<a href='" & backurl &"' style='COLOR: blue'>点击这里</a></td></tr>" & vbcrlf
	strMsg=strMsg & "</table></td></tr><tr><td align=center valign=center><hr><p align=center>"&SiteCopyright&"</p></td></tr></table>" & vbcrlf
	response.write strMsg
end sub
'——————————
sub ShowAdminSuccessMsg(SuccessMsg,backurl)
	dim strMsg
	strMsg=strMsg & "<br><br><meta http-equiv=""refresh"" content=""5 url='" & backurl &"'"">" & vbcrlf
	strMsg=strMsg & "  <table cellpadding=0 cellspacing=0 border=0 width=100%  height=90% align=center><tr><td align=center valign=center>" & vbcrlf
	strMsg=strMsg & "  <table cellpadding=0 cellspacing=1 border=0 width=500 class=tBorder align=center>" & vbcrlf
	strMsg=strMsg & "  <tr><td height=25 class=thead>终点小说连载系统 成功信息</td></tr>" & vbcrlf
	strMsg=strMsg & "  <tr><td height=120 valign=top class=alt3><div id=panx1><table width=500 height=120 border=0 align=center cellpadding=1 cellspacing=1 class=panel>"
	strMsg=strMsg & "  <tr><td class=alt1 valign=top><div style='MARGIN-left: 6px;MARGIN-right: 6px'><br><fieldset><legend>您的操作请求执行结束：</legend><br>" & SuccessMsg &"<br><br></fieldset><p></div></td></tr></table></div></td></tr>" & vbcrlf
	strMsg=strMsg & "  <tr align=center height=25><td style='BORDER-TOP: #0b198c 1.5px solid;' class=alt2>系统将在<b style='COLOR: #FF0000'> 5 </b>秒钟内进行跳转，"
	strMsg=strMsg & "  如果您的浏览器没有自动跳转，请<a href='" & backurl &"' style='COLOR: blue'>点击这里</a></td></tr>" & vbcrlf
	strMsg=strMsg & "</table></td></tr><tr><td align=center valign=center><hr><p align=center>"&SiteCopyright&"</p></td></tr></table>" & vbcrlf
	response.write strMsg
End Sub
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="<%=SiteManagePath%>/css.css" rel="stylesheet" type="text/css">
<BODY>
<table cellpadding="3" cellspacing="0" border="0" align=center class="tableBorder1" style="width:100%">
  <tr>
    <td height=10></td>
  </tr>
</table>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr> 
<td height="23" colspan="4" align="center"  bgcolor="#588fc7"><b><font color="#ffffff">空间的使用情况</font></b></td>
</tr>
<tr>
<td valign=top bgcolor=#E8F1FF> 
<% 	
 	Sub ShowSpaceInfo(drvpath)
 		dim fso,d,size,showsize
 		set fso=server.createobject("scripting.filesystemobject") 		
 		drvpath=server.mappath(drvpath) 		 		
 		set d=fso.getfolder(drvpath) 		
 		size=d.size
 		showsize=size & "&nbsp;Byte" 
 		if size>1024 then
 		   size=(size\1024)
 		   showsize=size & "&nbsp;KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=size & "&nbsp;MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=size & "&nbsp;GB"	   
 		end if   
 		response.write "<font face=verdana>" & showsize & "</font>"
 	End Sub	
 	
 	Sub Showspecialspaceinfo(method)
 		dim fso,d,fc,f1,size,showsize,drvpath 		
 		set fso=server.createobject("scripting.filesystemobject")
 		drvpath=server.mappath("pic")
 		drvpath=left(drvpath,(instrrev(drvpath,"\")-1))
 		set d=fso.getfolder(drvpath) 		
 		
 		if method="All" then 		
 			size=d.size
 		elseif method="Program" then
 			set fc=d.Files
 			for each f1 in fc
 				size=size+f1.size
 			next	
 		end if	
 		
 		showsize=size & "&nbsp;Byte" 
 		if size>1024 then
 		   size=(size\1024)
 		   showsize=size & "&nbsp;KB"
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=size & "&nbsp;MB"		
 		end if
 		if size>1024 then
 		   size=(size/1024)
 		   showsize=size & "&nbsp;GB"	   
 		end if   
 		response.write "<font face=verdana>" & showsize & "</font>"
 	end sub 	 	 	
 	
 	Function Drawbar(drvpath)
 		dim fso,drvpathroot,d,size,totalsize,barsize
 		set fso=server.createobject("scripting.filesystemobject")
 		drvpathroot=server.mappath("pic")
 		drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
 		set d=fso.getfolder(drvpathroot)
 		totalsize=d.size
 		
 		drvpath=server.mappath(drvpath) 		
 		set d=fso.getfolder(drvpath)
 		size=d.size
 		
 		barsize=cint((size/totalsize)*400)
 		Drawbar=barsize
 	End Function 	
 	
 	Function Drawspecialbar()
 		dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize
 		set fso=server.createobject("scripting.filesystemobject")
 		drvpathroot=server.mappath("pic")
 		drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
 		set d=fso.getfolder(drvpathroot)
 		totalsize=d.size
 		
 		set fc=d.files
 		for each f1 in fc
 			size=size+f1.size
 		next	
 		
 		barsize=cint((size/totalsize)*400)
 		Drawspecialbar=barsize
 	End Function 	
	%>
<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
			<%
 			fsorank=1
 			if fsorank=1 then
 			%>
			<%Function GetPP
			dim s
			s=Request.ServerVariables("path_translated")
			GetPP=left(s,instrrev(s,"\",len(s)))
 			End function
 			if sPP="" then sPP=GetPP
 			if right(sPP,1)<>"\" then sPP=sPP&"\"
 			set fso=server.createobject("scripting.filesystemobject")
 			Set f = fso.GetFolder(sPP)
 			Set fc = f.SubFolders
 			i=1
			i2=1
 			For Each f in fc%>
			<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
			<tr bgcolor="#ffffff"> 
			<td width="20%">&nbsp;目录 <%=f.name%></td>
			<td width="80%">&nbsp;<img src="admin/images/dot1.gif" width=<%=drawbar(""&f.name&"")%> height=10>&nbsp;<%showSpaceinfo(""&f.name&"")%></td>
			</tr>
			</table>
			<table width="100%" border="0" cellpadding="0" cellspacing="0">
			<tr><td height="2"></td></tr>
			</table>
			<%i=i+1
			if i2<10 then
			i2=i2+1
			else
			i2=1
			end if
			Next%>
			<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
			<tr bgcolor="#ffffff"> 
			<td width="20%">&nbsp;程序文件占用空间</td>
			<td width="80%">&nbsp;<img src="admin/images/dot1.gif" width=<%=drawspecialbar%> height=10>&nbsp;<%showSpecialSpaceinfo("Program")%></td>
			</tr>
			</table>
			<table width="100%" border="0" cellpadding="0" cellspacing="0">
			<tr><td height="2"></td></tr>
			</table>
			<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
			<tr bgcolor="#ffffff"> 
			<td width="20%">&nbsp;系统占用空间总计</td>
			<td width="80%">&nbsp;<img src="admin/images/dot1.gif" width=400 height=10> <%showspecialspaceinfo("All")%> </td>
			</tr>
			</table>
			<%
 			else
			response.write "<br><li>本功能已经被关闭"
 			end if
 			%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -