📄 index.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- pingmac www.pingmac.com -->
<!--#include file="dbconnect/conn_inc.asp" -->
<%
set rsa=server.CreateObject("ADODB.RecordSet")
sqla="select Systemname,Copyright from system"
rsa.open sqla,conn,1,3
%>
<%
postion = Trim(Request.QueryString("postion"))
if postion="" or not IsNumeric(postion) then
errmsg=""
postion=trim(1)
else
errmsg="<font color=#FF0000><b>您没有登陆或者停留的时间过长，请重新登陆！</b></font>"
end if
Function checkenter()
If ghid<>"" and password<>"" and otherpwd<>"" and Instr(ghid,"'")<1 and Instr(ghid," ")<1 and Instr(ghid,"""")<1 and Instr(ghid,"&")<1 then
'set rsC=Server.CreateObject("adodb.recordset")
'sqlC="select * from log where id is null"
'rsC.open sqlC,conn,1,3
'rsC.addnew
'rsC("addtime") = now()
'rsC("loginfo")=rsC("loginfo")&" 登陆操作：工号或密码有误.验证码错误 IP："&Request.ServerVariables("REMOTE_ADDR")&" 操作时间："&now()&" 提交数据:"&username&" "&password&" "&otherpwd&""
'rsC.update
'rsC.close
'set rsC=nothing
checkenter=TRUE
Else
checkenter=FALSE
End If
End Function
Function checksysUser()
Set rs=server.CreateObject("ADODB.RecordSet")
sql="SELECT username,pwd,Jobnum,logindata,Rightword FROM Account WHERE Jobnum='"&ghid&"'"
rs.Open sql,conn,1,2
if rs.eof then
checksysUser=FALSE
else
passwd=trim(rs("pwd"))
if passwd=password then
Session("UserName")=rs("UserName")
Session("Jobnum")=rs("Jobnum")
session("Rightword")=rs("Rightword")
sql="update Account set logindata=logindata+1 where Jobnum='"&ghid&"'"
conn.execute sql
sqlC="select * from log where (id is null)"
set rsC=server.CreateObject("ADODB.RecordSet")
rsC.open sqlC,conn,1,3
rsC.addnew
rsC("addtime") = now()
rsC("loginfo")=rsC("loginfo")&" 工号:"&ghid&" 登入系统成功! IP："&Request.ServerVariables("REMOTE_ADDR")&" 操作时间："&now()&" 提交数据:"&ghid&" "&password&" "&otherpwd&""
rsC.update
rsC.close
set rsC=nothing
checksysUser=TRUE
else
checksysUser=FALSE
end if
End if
rs.close
conn.close
End Function
%>
<%
%>
<HTML><HEAD><TITLE><%=rsa("Systemname")%>-登陆界面</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
function window_onload() {
document.mail.username.focus();
}
function cancel()
{
mail.reset();
}
function IsValid()
{
if (document.mail.ghid.value=="")
{
alert("工号不能为空");
document.mail.ghid.focus();
return false;
}
if (document.mail.password.value=="")
{
alert("密码不能为空");
document.mail.password.focus();
return false;
}
if (document.mail.otherpwd.value=="")
{
alert("验证码不能为空");
document.mail.otherpwd.focus();
return false;
}
}
//-->
</script>
<script>
<!--
function winopen(){
var targeturl="INDEX.asp"
newwin=window.open("","","scrollbars")
if (document.all){
newwin.moveTo(0,0)
newwin.resizeTo(screen.width,screen.height)
}
newwin.location=targeturl
}
//-->
</script>
<LINK href="css/style.css"
type=text/css rel=stylesheet><LINK href="PingMAC.ico" rel="PingMAC icon">
</HEAD>
<BODY onload='' bgColor=#ffffff leftMargin=0 topMargin=0
marginheight="0" marginwidth="0">
<DIV id=pmLoading
style="Z-INDEX: 10; LEFT: 20px; POSITION: absolute; TOP: 220px">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="30%"></TD>
<TD bgColor=#ff9900>
<TABLE height=70 cellSpacing=2 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle bgColor=#eeeeee><div align="center">系统登陆窗口初始化中,
请稍候...</div></TD></TR></TBODY></TABLE></TD>
<TD width="30%"></TD></TR></TBODY></TABLE></DIV>
<%
'dim loginNo,cookieNo
if Request.Form("action")="true" then
ghid=trim(Request.Form("ghid"))
password=trim(Request.Form("password"))
position = Trim(Request.form("postion"))
otherpwd = trim(request("otherpwd"))
cookieNo = trim(request.cookies(COOKIE_HEAD & "yanzhengno"))
'reotherpwd = Trim(Request.form("reotherpwd"))
a=checkenter()
If a=TRUE then
if otherpwd = cookieNo then
b=checksysUser()
if b=true then
if position <> 2 then
Response.Redirect("main.asp")
else
%>
<script language=javascript>
top.document.location.reload();
</script>
<%
end if
else
errmsg="<font color=#FF0000><b>工号或者用户密码错误，请重新输入！您刚才的操作已写入系统日志. IP："&Request.ServerVariables("REMOTE_ADDR")&" 操作时间："&now()&" 提交数据:"&ghid&" "&password&"</b></font>"
end if
else
errmsg="<font color=#FF0000><b>验证码输入错误，请重新输入！您刚才的操作已写入系统日志. IP："&Request.ServerVariables("REMOTE_ADDR")&" 操作时间："&now()&" 提交数据:"&otherpwd&"</b></font>"
end if
else
errmsg="<font color=#FF0000><b>工号输入有误，请重新输入！您刚才的操作已写入系统日志. IP："&Request.ServerVariables("REMOTE_ADDR")&" 操作时间："&now()&" 提交数据:"&ghid&"</b></font>"
end if
end if
%>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=200 background=images/Index_Top.gif
height=80> </TD>
<TD
background=images/Index_TopBg.gif> </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=995
height=200><img src="images/Index_Middle.gif" width="995" height="241" border="0" usemap="#Map"></TD>
<TD
background=images/Index_MiddleBg.gif> </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD background=images/Index_Middle2.gif
height=25> </TD></TR></TBODY></TABLE>
<TABLE width=100% border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=5><div align="center"><%=errmsg%><br></div></TD></TR></TBODY></TABLE>
<form name=mail action="index.asp" onSubmit="return IsValid();" method=post>
<TABLE height=60 cellSpacing=0 cellPadding=0 width=300 align=center
border=0>
<TBODY>
<TR>
<TD width="100%" colSpan=4> </TD>
</TR>
<TR>
<TD width=80 background=images/Index_Txt.gif
rowSpan=6> </TD>
<TD><INPUT name=ghid id="ghid" maxLength=100></TD>
<TD><INPUT class=button_small type=submit value="确 定" name=submit1>
</TD></TR>
<TR>
<TD colSpan=2> </TD>
</TR>
<TR>
<TD><INPUT type=password maxLength=100 name=password></TD>
<TD>
</TD>
</TR>
<TR>
<TD colSpan=1> </TD>
</TR>
<TR>
<TD> <table width="141" border="0">
<tr>
<td width="51" ><INPUT name=otherpwd type="text" id="otherpwd" size="6" maxLength=4></td>
<td width="56"><img src="inc/snimg.asp" width="45" height="20">
<input type="hidden" name="action" value="true">
<input type="hidden" name="postion" value="<%=postion%>"> </td>
</tr>
</table></TD>
<TD><INPUT name="重置" type=reset class=button_small onclick=document.reguserForm.reset(); value="重 置">
</TD>
</TR>
</TBODY></TABLE>
</form>
<TABLE cellSpacing=0 cellPadding=0 width=300 align=center border=0>
<TBODY>
<TR>
<TD height=53> </TD>
</TR>
<TR>
<TD>
</TD></TR>
<TR>
<TD>
<DIV align=center>[建议使用:1024*768 分辨率浏览]</DIV></TD></TR>
<TR>
<TD>
<DIV align=center> </DIV></TD></TR>
</TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD background=images/Index_DotLine.gif><IMG height=1
width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=100 border=0>
<TBODY>
<TR>
<TD> </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle><%=rsA("Copyright")%></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=100 border=0>
<TBODY>
<TR>
<TD> </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<map name="Map">
<area shape="rect" coords="78,205,213,234" href="index.asp" onClick="winopen()">
<area shape="rect" coords="555,113,773,142" href="http://www.pingmac.com" target="_blank">
</map>
<SCRIPT language=jscript.encode>pmLoading.style.visibility="hidden";</SCRIPT>
</BODY></HTML>
<%rsa.close
set rsa=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -