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

📄 login.asp

📁 院校使用的一套心理在线咨询系统(免验证细节美化版) v2.6
💻 ASP
字号:
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="background.asp"-->
<!--#INCLUDE FILE="md5.asp"-->
<%
Response.Buffer = True 
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>※宁波职业技术学院-=-心理咨询与人才测评中心※ -=- 登入</title>
<STYLE type=text/css>BODY {
	SCROLLBAR-FACE-COLOR: #ffffff; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #ffffff; SCROLLBAR-3DLIGHT-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #ffffff; SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
A {
	COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
	COLOR: #000000; BORDER-BOTTOM: 1px dotted
}
TABLE {
	FONT-SIZE: 10pt; COLOR: #000000; FONT-FAMILY: Verdana
}
</STYLE>
<style type="text/css">
<!--
body,td,th {
	color: #000000;
	font-family: "宋体";
	font-size: 9pt;
}
body {
	background-color: #666F74;
}
.unnamed1 {
	font-family: "宋体";
	font-size: 9pt;
	color: #FFFFFF;
	font-weight: bold;
}
.unnamed11 {	color: #FFFFFF;
	font-weight: bold;
	filter: DropShadow(Color=#2C60B2, OffX=1, OffY=1, Positive=1);
}
input {
	font-family: "宋体";
	font-size: 9pt;
	height: 20px;
	vertical-align: middle;
}
.copybg {
	background-image: url(img/cong.gif);
	background-repeat: no-repeat;
	background-position: left bottom;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
//window.resizeTo(800,600);
//window.moveTo(0,0);
//-->
</script>
<SCRIPT language=JavaScript type=text/JavaScript>
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function MM_callJS(jsStr) { //v2.0
  return eval(jsStr)
}
//-->
	function ow(obj) {
    URL=obj.href;
    window.open(URL,'Preview','scrollbars=no,toolbars=no,status=no,menubar=no,resizable=no,width=550,height=450,left=50,top=110');
    return false;
}

</script>
<STYLE type=text/css>.layer {
	COLOR: #ffffff; FILTER: Alpha(Opacity=50, FinishOpacity=50, Style=1, StartX=0, StartY=0, FinishX=100, FinishY=100)
}
.logo {
	BACKGROUND-IMAGE: url(img/login_back.png); BACKGROUND-REPEAT: no-repeat; HEIGHT: 277px
}
.font-nomal {
	FONT-FAMILY: "宋体"; FONT-SIZE: 10pt
}
.input_line {
	BACKGROUND-COLOR: #7d9cbf; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: 0px solid; BORDER-RIGHT: 0px solid; BORDER-TOP: 0px solid
}
.title {
	FILTER: Glow(Color=#0000ff, Strength=3)
}
</STYLE>


</head>

<BODY oncontextmenu="return false" onselectstart="return false" 
ondragstart="return false" onbeforecopy="return false" 
leftMargin=0 
background=img/900.jpg topMargin=0 
 marginheight="0" marginwidth="0" style="background-attachment: fixed">
<div align="center">
	<table border="0" width="762">
		<tr>
			<td height="719" align="center" valign="top" bgcolor="#C0C0C0">
			<table border="0" width="100%" bgcolor="#FFFFFF" height="58">
			<tr>					<td >
					<div style="position: absolute; width: 100px; height: 100px; z-index: 1; left: 183px; top: 92px" id="layer1">
  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="443" height="100">
    <param name="movie" value="img/49.swf">
    <param name="quality" value="High">
    <param name="wmode" value="transparent">
    <embed src="img/49.swf" width="443" height="100" quality="High" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed></object>
</div>
					<table border="0" width="100%">
						<tr>
							<td>
							<img border="0" src="img/qq.jpg" width="277" height="51"></td>
							<td>
							<% Set rs10=server.createobject("ADODB.RECORDSET")
   rs10.open "Select * From option1",Conn,3,3
%>
<div align="center"><%if rs10("bannerImg")<>"" and rs10("bannerImg")<>" " then%>
<%if right(rs10("bannerImg"),3)="swf" then%>

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="409" height="51">
  <param name="movie" value="http://<%=rs10("bannerImg")%>">
  <param name="quality" value="High">
  <embed src="http://<%=rs10("bannerImg")%>" quality="High" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="409" height="51"></embed>
</object>
<%else%>
<a href="<%=rs10("bannerImgLink")%>">
	<img src="<%=rs10("bannerImg")%>" border="0" ></a>
<%end if%><%end if%></td>
						</tr>
					</table>
					<img border="0" src="img/1.jpg" width="755" height="137"><br><a href="index.asp"><IMG  onmouseover="this.src='img/111.jpg'" 
            onmouseout="this.src='img/11.jpg'" 
            src="img/11.jpg" border=0></a><a href="login.asp"><IMG  onmouseover="this.src='img/122.jpg'" 
            onmouseout="this.src='img/12.jpg'" 
            src="img/12.jpg" border=0></a><a href="login.asp"><IMG  onmouseover="this.src='img/133.jpg'" 
            onmouseout="this.src='img/13.jpg'" 
            src="img/13.jpg" border=0></a><a href="login.asp"><IMG  onmouseover="this.src='img/144.jpg'" 
            onmouseout="this.src='img/14.jpg'" 
            src="img/14.jpg" border=0></a><a href="login.asp"><IMG  onmouseover="this.src='img/177.jpg'" 
            onmouseout="this.src='img/17.jpg'" 
            src="img/17.jpg" border=0></a><a href="login.asp"><IMG  onmouseover="this.src='img/166.jpg'" 
            onmouseout="this.src='img/16.jpg'" 
            src="img/16.jpg" border=0></a><img border="0" src="img/4.jpg" width="246" height="111"><br>
					<img border="0" src="img/1.bmp" width="755" height="24"><br>
<img border="0" src="img/12.bmp" width="30" height="24"><MARQUEE height=16 scrollAmount=2 scrollDelay=10 align="middle" width="446" style="color: #FF9900">
      <%=rs11("lygg")%>
    </MARQUEE><img border="0" src="img/333.jpg" width="279" height="25">
    
  </table>
			<table border="0" width="100%" bgcolor="#FFFFFF" height="405">
				<tr>
					<td align="center" bgcolor="#FFFFFF"><form name="form" method="post" onSubmit="return CheckForm();">
<div align="center">
<table width="34%" cellpadding="5" cellspacing="1"  bordercolorlight="#000000" border="0" bordercolordark="#FFFFFF" bgcolor="#FFFFFF" height="205">

      <%
main()

sub main()
	dim backInput, homeInput
	backInput=backInput&"<br><br><input type=button value=返回前页 onClick=history.back() class=input2 name=button ><br>"
	backInput=backInput&"</d>"
	backInput=backInput&"</tr>"
	homeInput="<br><br><input type=button value=进入 onClick=""location.href='index.asp' "" class=input2><br>"
	homeInput=homeInput&"</d>"
	homeInput=homeInput&"</tr>"	
	if request.form="" then
%>
  <tr  >
    <td width="247" align="center" bgcolor="#FFFFFF">
<TABLE bgColor=#000000 border=0 cellPadding=0 cellSpacing=1 
                  class=layer id=dd 
                  onmouseout="MM_callJS('change_style(dd,50);')" 
                  onmouseover="MM_callJS('change_style(dd,100);')" 
                  style="FILTER: Alpha(Opacity=50, FinishOpacity=50, Style=1, StartX=0, StartY=0, FinishX=100, FinishY=100)" 
                  width="100%">
                    <TBODY>
                    <TR>
                      <TD align=middle bgColor=#254051 class=font-nomal 
                      height=25 vAlign=bottom><font color="#FFFFFF">登入心理咨询平台</font></TD></TR>
                    <TR>
                      <TD bgColor=#7d9cbf vAlign=top>
                        <FORM action="" method=post name=form1>
                        <TABLE border=0 cellPadding=2 cellSpacing=0 
                        class=font-nomal width="100%" height="130">
                          <TBODY>
                          <TR>
                            <TD colSpan=4> </TD></TR>
                          <TR>
                            <TD width="11%"> </TD>
                            <TD align=right noWrap width="22%">用户名: </TD>
                            <TD noWrap width="54%"><INPUT class=input_line 
                              id=username2 name=name size=15></TD>
                            <TD width="9%" align="left"> </TD></TR>
                          <TR>
                            <TD>
                              <P> </P></TD>
                            <TD align=right>密&nbsp;&nbsp;码: </TD>
                            <TD><INPUT class=input_line id=pwd2 maxLength=18 
                              name=pass size=15 type=password></TD>
                            <TD align="left"> </TD></TR>
                          <TR>
                            <TD> </TD>
                            <TD align=right>验证码:</TD>
                            <TD><INPUT class=input_line id=RndNum name=CheckCode
                              size=15><img src="checkcode.asp"></TD>
                            <TD align="left"> </TD></TR>
                          <TR>
                            <TD height="24"> </TD>
                            <TD align=middle colSpan=2 height="24">
							<table border="0" width="100%" cellspacing="0" cellpadding="0">
								<tr>
									<td align="center">
							<INPUT border=0 
                              height=20 name=imageField 
                              src="img/x.gif" type=image 
                              width=70></td>
									<td align="center">
							<p align="center">
							<a target="_blank" href="register.asp" onclick="return ow(this)" ><img border="0" src="img/y.jpg" width="70" height="20"></a></td>
								</tr>
							</table>
							</TD>
                            <TD height="24"> </TD></TR></TBODY></TABLE></FORM></TD></TR></TBODY></TABLE>
<p><a href="loginT.asp"><span style="text-decoration: none">注&nbsp; 
意:如果无法正常登陆请点我</span></a></p>
<%
	else
		dim name, pass, expTime
		name=request.form("name")
		pass=request.form("pass")
		name=replace(name,"'","")
		name=replace(name,"""","")
		name=replace(name,"=","")
		pass=replace(pass,"'","")
		pass=replace(pass,"""","")
		pass=replace(pass,"=","")
		CheckCode=replace(Request("CheckCode"),"'","")
		expTime=request.form("expTime")
		if rs11("showcode") then
			if session("CheckCode")="" then
				response.Write("<tr   align='center'>")
				response.Write("<td>")
				response.write "<font color=red>发生错误</font><br><br>你在登录页面停留时间过长,请重新返回登录页面进行登录。"
				response.write backInput
				exit sub
			end if
			if CheckCode<>CStr(session("CheckCode")) then
				response.Write("<tr   align='center'>")
				response.Write("<td>")
				response.write "<font color=red>发生错误</font><br><br>您输入的确认码和系统产生的不一致,请重新输入。"
				response.write backInput
				exit sub
			end if		
		end if
		if name="" or pass="" then
			response.Write("<tr   align='center'>")
			response.Write("<td>")
			response.write "<font color=red>发生错误</font><br><br>请输入用户名和密码!"
			response.write backInput
			exit sub
		end if
	
		exec="Select * From register where username='"&name&"' and password1='"&md5(pass)&"'"
		set rs=server.createobject("adodb.recordset")
		rs.open exec,conn,1,1
		if rs.eof then
			response.Write("<tr   align='center'>")
			response.Write("<td>")
			response.write "<font color=red>发生错误</font><br><br>用户名不存在或密码错误!"
			response.write backInput
			exit sub
		end if
			response.Write("<tr   align='center'>")
			response.Write("<td>")
				
		 response.write "<script language='javascript'>window.confirm('登陆成功!')</script>"

 response.Redirect "index.asp"
 
				response.write homeInput
		
cookiePath=request.servervariables("path_info")
cookiePath=left(cookiePath,instrRev(cookiePath,"/"))
response.cookies("ly").Path=cookiePath
response.cookies("ly")("useridname")=name
response.cookies("ly")("useridpassword")=pass
if rs("level1")="管理员" then response.cookies("ly")("admin")=1 else if rs("level1")="版主" then response.cookies("ly")("admin")=2 else response.cookies("ly")("admin")=0
if (expTime<>"") and (expTime<>"不保存") then
	expTime=Cdate(expTime)
	response.cookies("ly").expires=expTime
end if
	end if
end sub %>
	</td>
  </tr>
  <%if rs11("showcode") then%>
  <%end if%>
</table>
</div>
</form></td>
				</tr>
			</table>
			</td>
		</tr>
		<tr>
			<td>
			<p align="center"><!--#include file="boot.asp"--></td>
		</tr>
	</table>
</div>
<SCRIPT language=JavaScript type=text/JavaScript>

function change_style(obj,alpha){
	//alert(obj.id);
	obj.style.filter="Alpha(Opacity="+alpha+", FinishOpacity=50, Style=0, StartX=0, StartY=0, FinishX=100, FinishY=100)"
}
		</SCRIPT>


</body>

</html>

⌨️ 快捷键说明

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