崩坏3如何充值:用vbscript+asp+sql2000实现登陆界面的代码

<%
set cn=server.CreateObject("ADODB.connection")
cn.ConnectionString=" " //自己按数据库路径连接
cn.Open

pname=request("user") //接收提交表单中的用户名
ppwd=request("pwd") //接收提交表单中的密码
set rs=server.CreateObject("ADODB.recordset")

sql="select * from people where pname='" & pname & "' and ppwd='" & ppwd & "'"
rs.Open sql,cn,1,1
if rs.EOF or rs.BOF then
%>
<script language=javascript> //这里因为要弹出窗口提示比用VBscript简单所以用的javascript，觉得不好可以删去
<!--
alert('错误的用户名、密码或您不是此类型用户，请重新输入！');
document.location.href="index.asp"; //错误出现提示后返回
-->
</script>

<%else%>
response.Redirect "indexone.asp" //正确转入编辑界面
end if
%>
这是在我机子上按你要求作的，路径我都删去了你自己添加，名称自己改一下就行了

dim user,password,errmsg
user=trim(request("user"))
password=trim(request("password"))
if trim(user)="" or trim("password")="" then
errmsg="用户名，密码都不写！！"
else
set rs=server.createobject("adodb.recordset")
rs.open"select user,password from user where user='"&user&"'",conn,1,1
if rs.bof or rs.eof then
rs.close
conn.close
errmsg="对不起，找不到该用户！"
elseif password<>rs("password") then
errmsg="密码错误，怎么这么不小心啦！"
else
session("user")=trim(user)
session("password")=trim(password)
response.redirect("modify.asp")