📄 index.asp

📁 红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统
💻 ASP
字号:
<%
'=========================================================
' 『动感在线』版权所有(C) Donggan.Net
' 您可以自由应用本程序于合法的个人或商业行为。
' 您必须保留版权信息。
'=========================================================
' Version:1.3
' Date: 2003-01-10
' Script Written by xubin
'=========================================================
' Copyright (C) 1999-2002 Donggan.Net. All rights reserved.
' Web: http://www.Donggan.net
' Email: webmaster@Donggan.net,webmaster@mail.Donggan.net
'=========================================================
%>
<!--#Include File="conn.asp" -->
<!--#Include File="md5.asp" -->
<!--#Include File="procedure.asp" -->
<!--#Include File="Language.asp" -->
<%
'取消缓存,使随机码不同
  Response.Expires = -1  
  Response.ExpiresAbsolute = Now() - 1  
  Response.cachecontrol = "no-cache" 
	
	'Call loaderror()
	Call showwebdata()
	Call Language_var(Language,"index")

Dim s
randomize timer
s=Int((8999)*Rnd +1000)
%>
<html>
<head>
<title><%=webname%>|<%=Language_index(0)%></title>
<meta http-equiv="Content-Type" content="text/html; charSet=<%=Language_charSet%>">
<META HTTP-EQUIV="pragma" CONTENT="no-cache">  
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate"> 
<META HTTP-EQUIV="expires" CONTENT="0">
<link rel="stylesheet" href="images/styles.css" type="text/css">
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<!--#Include File="head.asp" -->

  <br><br><br>
<center>
<%
If Request.Form("denglu") <> "" Then
	Call chkadmin()
Else
	Call main()
End If

'显示登陆信息
Sub main()%>   
<FORM method="post" action="index.asp">  
    <table border="1" cellspacing="0" cellpadding="0" width="336" bordercolor="#7C96B8" bordercolordark="#FFFFFF" height="83" >  
<tr> 
<td height="20" colspan="2" background="images/mmTo.gIf">      
    <DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">      
<p align="center"><font color="#336699"><%=Language_index(1)%></font></div></td>      
</tr>      
<tr> 
<td width="71" height="25"><font color="#336699">&nbsp;<%=Language_index(2)%></font></td>      
<td width="246" height="25"><font color="#336699">&nbsp;<INPUT name="username" maxlength="25" size="20" class="bk"></font></td>      
</tr>      
<tr> 
<td height="24"><font color="#336699">&nbsp;<%=Language_index(3)%></font></td>      
<td height="24"><font color="#336699">&nbsp;<INPUT type="password" name="userpass" size="20" class="bk"></font></td>      
</tr>      
<tr> 
<td height="26"><font color="#336699">&nbsp;<%=Language_index(4)%></font></td>      
<td height="26"> &nbsp;<input name=secruity type=text size="20" maxlength="8" class="bk" style="ime-mode:disabled"> 
  <font color="#336699"><b><%=s%></b></font>&nbsp;<input maxlength=20 name=checksecruity size=12 type=hidden value=<%=s%>></td> 
</tr> 
<tr>  
<td colspan="2" align="center" height="20" background="images/mmTo.gIf"> <input name="denglu" type="Submit" value="<%=Language_index(5)%>" class="Tips_bo"></td> 
</tr> 
    </table> 
  </FORM> 
<%
End Sub 

'检查管理员身份
Sub chkadmin() 
	username=replace(trim(Request("username")),"'","‘") 
	userpass=MD5(replace(trim(Request("userpass")),"'","‘"))    
	secruity=replace(trim(Request("secruity")),"'","‘") 
	checksecruity=replace(trim(Request("checksecruity")),"'","‘") 
	 
	Set rs=Server.Createobject("adodb.recordset") 
	sql="select * from Management where userpass='"&userpass&"' AND username='"&username&"'" 
	rs.open sql,conn,1,1 
	If NOT(rs.bof AND rs.eof) AND secruity=checksecruity Then  
			'删除超时的邮件
			Call cleartempmail() 
			Response.Cookies("Donggan")("mailadmin")="adminmaster" 
			Response.Redirect "main.asp" 
	Else 
		Response.Redirect "error.asp"
		Response.End
	End If 
 
	rs.close     
End Sub  

'删除超时的邮件  
Sub cleartempmail()  
	conn.execute("delete from tempmail where dytime < #"&now()-3&"# ")	  
End Sub    
 
'关闭销毁对象 
Set rs=nothing 
conn.close 
Set conn=nothing 
%> 
</center> 
</body> 
</html>
⌨️ 快捷键说明

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