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

📄 dl.asp

📁 手机群发工具
💻 ASP
字号:
<!--#include file=Check_Sql.asp-->
<!--#include file=czconn.asp-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>正在登录</title>
<link href="css.css" rel="stylesheet" type="text/css" />
</head>

<body>
<%dim action,id,filename
action=trim(request("action"))
id=trim(request("id"))
filename="czkf.asp"
select case action
       case "add"
	      call add()
       	   case else
	      call main()
end select
sub main()%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="150" align="center">&nbsp;</td>
  </tr>
  <tr>
    <td height="30" align="center" class="nazhi">正在登录...</td>
  </tr>
</table>
<%
    validpwd=true
	userid = Request.Form("name")
	passwd = Request.Form("pass")
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open xDb_Conn_Str
	Set rs = conn.Execute( "Select * from [czkf] where [kfid] = '" & UCASE(userid) & "'")
	If not rs.eof then
		If ucase(rs("pass")) = ucase(passwd) Then
			validpwd = true
			zt=""
	if rs("zt")=true then
	zt=true
	else
	zt=false
	end if
			user=rs("kfid")
			if zt then
	response.Write("<script>alert('账户已被锁定!');location.href='index.asp';</script>")	
	else	
		session("czkf")=user
		response.redirect "kindex.asp"
	end if
			
		Else
			response.Write("<script>alert('用户名或密码错误!');location.href='index.asp';</script>")	
		End If
	Else
		response.Write("<script>alert('用户名或密码错误!');location.href='index.asp';</script>")	
	end if
	
	
	rs.Close
	Set rs=Nothing
	conn.Close
	Set conn=Nothing

		%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="150" align="center">&nbsp;</td>
  </tr>
  <tr>
    <td height="30" align="center" class="nazhi">正在登录...</td>
  </tr>
</table>
<%end sub%>
</body>
</html>

⌨️ 快捷键说明

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