session.asp

小说站源代码文件

<!--#include file="../inc/md5.asp"-->
<!--#include file="MaxPerPage.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

Sub ShowAdminErrMsg(ErrMsg,backurl)
	dim strMsg
	strMsg=strMsg & "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='Content-Language' content='zh-cn'><link href='css.css' rel='stylesheet' type='text/css'><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>Powered by <b>CnEnd <a target='_blank' href='http://bbs.cnend.net'>NovelsManagement</a></b><em>1.00</em> &copy; 2004-2008</p></td></tr></table>" & vbcrlf
	response.write strMsg
end sub
'——————————
sub ShowAdminSuccessMsg(SuccessMsg,backurl)
	dim strMsg
	strMsg=strMsg & "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'><meta http-equiv='Content-Language' content='zh-cn'><link href='css.css' rel='stylesheet' type='text/css'><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>Powered by <b>CnEnd <a target='_blank' href='http://bbs.cnend.net'>NovelsManagement</a></b><em>1.00</em> &copy; 2004-2008</p></td></tr></table>" & vbcrlf
	response.write strMsg
End Sub
%>