深圳风水师合作招聘:会员怎么登陆?

来源:百度文库 编辑:高考问答 时间:2024/04/27 20:30:57
我用FP做了个登陆的网页,怎么和数据库连接起来?
点登陆以后,有一个ASP处理,到数据库kcsj.mdb的user表中查询。

如果给做一个,作好后发我邮箱lnyc001@163.com
再给加分。
把主题写成“百度知道”别忘了写你的用户名。
<html>
<head>
<title>登录</title>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<br>
<form name="form1" method="post" action="">
<table width="100%" border="0" cellspacing="0" cellpadding="1" bgcolor="#000000">
<tr valign="top"> <td> <table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#CCCCCC"> <tr bgcolor="#000000">
<td width="27%" valign="top"><font color="#CCCCCC"><b>登录</b></font></td>
<td width="73%" valign="top"><font color="#CCCCCC"><b>登录</b></font></td>
</tr><tr valign="top"><td width="27%"><b>用户名</b><br><input name="textfield1" type="text" size="25"> <p><b>密码</b><br><input name="textfield1" type="password" size="25"></p><p><input type="submit" name="Submit" value="登陆"><form method="post" action="kcsj.mdb"></p></td><td width="73%"><b>请输入注册时的用户名和密码。</b></td></tr></table></td>
</tr></table></form></body></html>
这是那个网页,应该把代码放在哪呢?

<%
name=trim(request.Form("name"))
pass=trim(request.Form("pass"))
pass=replace(pass,"'","/")
set rs=server.CreateObject("adodb.recordset")
set rs=conn.execute("select name,pass from user where name='"&name&"'")
%>

<%if rs.bof or rs.eof then%>
<script language="VBScript">
msgbox "密码或用户名不对,请重新输入"
location.href="javascript:history.back(-1)"
</script>
<%elseif pass<>rs("pass") then%>
<script language="VBScript">
msgbox "密码或用户名不对,请重新输入"
location.href="javascript:history.back(-1)"
</script>
<%else
session("admin")=rs("name")
response.Redirect("index.asp")
end if
%>

连接数据源
<%
set conn=server.CreateObject("adodb.connection")
connstr="dbq="+server.MapPath("kcsj.mdb")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
conn.open connstr
%>

kcsj是课程设计吧,哈哈