如何用ASP编个用户检测程序！！！！在线

2004-05-03 09:44:58 142 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

如何实现实时检测用户在线 asp 我想站在程序设计的思路上来说点问题，看了很多程序员论坛，大都贴代码，而且还是无耻的复制粘贴那种，这里提出两点质疑：1.人不是计算机，人需要的是设计思路，而不是电脑代码。就正如架构师给程序员从来都讲设计思路一样。2.大段粘贴代码而不用语言本身表述，其本身就拒人于千里之外了，而且要考虑到语言、环境不同的问题，在你机器上能实现的东西不一定在别人的机器上实现的了。所以，本人决定从思路来表述。实现实时检测用户在线，有两点困难，一是页面呈现上的困难，二是检测用户是否在线的困难；<br 阅读详情

大概流程我知道但有些地方不太清楚

1、注册 2、登录

1、注册我会写

2、就是登录时检测用户是否存在不知道如何写

检测如果有这个用户就可进入，反之就返回注册页面。

请大家帮个忙写下

...全文

【学习笔记】无人机（UAV）在3GPP系统中的增强支持(四)-无人机系统（UAS）命令与控制（C2）通信用例 UTM向5G网络提供无人机系统C2通信所需的信息，例如服务类别、无人机系统服务的流量类型、授权的无人机系统服务所需的QoS以及无人机系统服务的订阅。遵循模型B的网络辅助C2模型，为了确保UAS操作的C2通信的服务可用性和可靠性，特别是当无人机在操作员的视线之外（BLOS）飞行时，为无人机提供支持冗余的C2通信链路。如果需要创建额外的C2通信连接或更改现有数据连接的配置以进行C2通信，则5G网络会根据无人机系统的授权服务信息和C2通信中所需的QoS和优先级，修改或分配一个或多个C2通信流量的QoS流。阅读详情

clcy

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

clcy 2004-05-12

打赏
举报

谢谢了

fury 2004-05-04

打赏
举报

回复人： diveas(枫) ( ) 信誉：100 2004-05-03 22:23:00 得分:0

To: lcx45(木头)
sql="select * from users where name='" & name & "' and pwd='" & pwd & "'"

To: thb28(c++学习中)
rs.Open "select * from works where name='"&name&"' and password='"&password&"' " ,conn,1,1

楼上的两位这两句都有很大漏洞，我用特殊的用户名，密码我可以随便打都可以进入！

===================================
看清楚了:
-----------------------------------------------
lcx45(木头)
name=request.form("username")
pwd=request.form("userpassword")
if instr(name,"'")<>0 or instr(pwd,"'")<>0 then
response.redirect "login.asp"
response.end
end if
-----------------------------------------------
thb28(c++学习中)
name=replace(trim(request("name")),"'","")
password=replace(trim(request("password")),"'","")

-----------------------------------------------

这样你也可以随便进去吗?

diveas 2004-05-03

打赏
举报

http://expert.csdn.net/Expert/topic/2945/2945224.xml?temp=.4705469

jeasoyang 2004-05-03

打赏
举报

CSDN自己人的乐园

shcsdn.35sw.com
bbs.35sw.com
www.35sw.com

diveas 2004-05-03

打赏
举报

To: lcx45(木头)
sql="select * from users where name='" & name & "' and pwd='" & pwd & "'"

To: thb28(c++学习中)
rs.Open "select * from works where name='"&name&"' and password='"&password&"' " ,conn,1,1

楼上的两位这两句都有很大漏洞，我用特殊的用户名，密码我可以随便打都可以进入！

diveas 2004-05-03

打赏
举报

diveas 2004-05-03

打赏
举报

<%Option Explicit%>
<html>
<body bgcolor="#99CCFF">
<center>
<%
Dim strName,strPwd,objrs,sql
strName=Request.Form("name")
strPwd=Request.Form("password")

'处理非法字符
strName=Replace(strName,"'","")
strPwd=Replace(strPwd,"'","")
sql="Select UserName From Login Where UserName='" & strName & "'"
set objrs=Server.CreateObject("ADODB.RecordSet")
'打开数据库语句，自己写。。。。。。我的和你不一样！！
If objrs.Bof And objrs.Eof Then
Response.Write "无此用户<p></p>"
%>
<a href=javascript:history.back()>返回</a>
<%
Response.End
End If

If objrs.RecordCount=1 Then
If objrs("pwd")=strPwd Then
Response.Redirect "kj.asp"
Else
Response.Write "密码错误，请确认后重新输入!<br><br>"
%>
<a href=javascript:history.back()>返回重填</a>
<%
Response.End
End If
Else
Response.Write "用户名错误，请确认后重新输入!<br><br>"
%>
<a href=javascript:history.back()>返回重填</a>
<%
Response.End
End If
objrs.Close
Set objrs=Nothing
%>
</body>
</html>

thb28 2004-05-03

打赏
举报

application使全局对象，这里不需要，只需要创建用户SESSION
登陆的界面不用说了吧
看下面的验证程序

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
‘连接数据库，以ACCESS为例
option explicit
Response.Expires=0
dim conn,connstr,db,rs,name,password
db="你的数据库路径和名称.mdb"

Set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
‘接收用户登陆信息
name=replace(trim(request("name")),"'","")
password=replace(trim(request("password")),"'","")
if name="" or password="" then
response.Write "<script language=javascript>alert('请填写用户名和密码')</script>"
response.end
end if
‘通过数据库验证用户身份
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from works where name='"&name&"' and password='"&password&"' " ,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs("password") then
‘创建SESSION
session("user")=trim(rs("name"))
session("PASS")=trim(rs("PASSWORD"))
‘限定过期时间
session.Timeout=60
rs.Close
set rs=nothing
'验证正确接受用户登陆
response.Redirect "../login.asp"
else
call Error
end if
else
call Error()
end if

sub Error()
response.write "<script language=javascript>alert('无效的用户名和密码')</script>"
end sub

set rs=nothing
set conn=nothing
%>

stayhere 2004-05-03

打赏
举报

全选?
<form name=test><input type=checkbox name=chk value=A>A<input type=checkbox name=chk value=B>B<input type=checkbox name=chk value=C>C
<input type=button value=全选 onclick="SelAllNow()">
</form>
<script language=vbscript>
sub SelAllNow()
for i=0 to 2
test.chk(i).checked=true
next
end sub
</script>

clcy 2004-05-03

打赏
举报

还有就是“全选”按钮如何写

clcy 2004-05-03

打赏
举报

能否注释一下

clcy 2004-05-03

打赏
举报

哦

lcx45 2004-05-03

打赏
举报

<%
if request("username")<>"" and request("userpassword")<>"" then
dim name
dim pwd
dim sql
dim rs
name=request.form("username")
pwd=request.form("userpassword")
if instr(name,"'")<>0 or instr(pwd,"'")<>0 then
response.redirect "login.asp"
response.end
end if
set rs = server.createobject("adodb.recordset")
sql="select * from users where name='" & name & "' and pwd='" & pwd & "'"
rs.open sql,conn,1,1
if err.number <> 0 then
response.write "数据库操作失败："&err.description
response.end
else
if not rs.eof and not rs.bof then
session("purview")=rs("purview")
session("name")=rs("name")
response.redirect "admin/index.asp"
end if
end if
rs.close
set rs=nothing
end if
%>

如何用ASP编个用户检测程序！！！！在线

相关推荐