问题描述:
我做了一个简单的登录页表,里面有三个文件,登录表单default提交给staff处理,还有一个CONN,数据库名为admin,字段名uname,ucode.看了很多次好像没什么问题,但是就是不行,现在我把所有代码发给你们,你可以放在你那里试一下,帮我改一下哪里错了,好吗,小弟无路可走了,送上全部积分了.
1,conn
<%
dim conn
dim connstr
on error resume next
'设置adodb数据源连接
set conn=server.createobject("ADODB.CONNECTION")
'设置SQL连接
connstr="DBQ="+server.mappath("admin.mdb")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"
conn.open connstr
%>
2,default页面
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
</head>
<body>
<p></p>
<blockquote>
<p></p>
<p></p>
<table width=754 height=209 border=0 cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><span class="STYLE1">会员登录
</span></td>
</tr>
<form id="form1" name=form1 method="post" action="staff">
<tr>
<td width=200 height=29 align=center>用户名:</td>
<td width=554><label>
<input name=fname type=text id="fname" />
</label></td>
</tr>
<tr>
<td height=30 align=center>密码:</td>
<td><label>
<input name=fcode type=password id="fcode" />
</label></td>
</tr>
<tr>
<td height=32></td>
<td><label>
<input type=submit name=登录 value="登录" />
<input type=reset name=Submit value="重置" />
</label></td>
</tr>
</form>
<tr>
<td colspan="2" align=center><span class="STYLE2">
欢迎你的到来!</span></td>
</tr>
<tr>
<td colspan="2" align=center>
退出登录</a></td>
</tr>
</table>
<p></p>
</blockquote>
</body>
</>
3,staff页面
<!--#include file="conn"-->
<%dim name,code
name=request("fname")
code=request("fcode")
if name= or code="" then
response.Write "<script LANGUAGE='javascript'>alert('您的管理ID或密码有误！')history.go(-1)</script>"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from admin where uname='"&name&"' and ucode='"&code&"' "
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if code=rs("ucode") then
session("okyes")=trim(rs("uname"))
session.Timeout=20
rs.Close
set rs=nothing
response.Redirect "index"
else
response.write "<script LANGUAGE='javascript'>alert('对不起，登陆失败！')history.go(-1)</script>"
end if
else
response.write "<script LANGUAGE='javascript'>alert('对不起，登陆失败！')history.go(-1)</script>"
end if
%>
解析:
用下面代码替换掉conn的全部内容，就可以了~
<%
on error resume next
connstr="provider=microsoft.jet.oledb.4.0data source=" &server.mappath("admin.mdb")
Set Conn=Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字符串"
Response.End
End If
%>
JS的的位置一般要根据你asp语句功能放置，但在下列的一些标签内下是一定的1、首先<script type="text/javascript">和 </script>就可以告诉浏览器 JavaScript 从何处开始，到何处结束。
2、位于 head 部分的JS：
当脚本被调用时，或者当事件被触发时，脚本就会被执行。当你把脚本放置到 head 部分后，就可以确保在需要使用脚本之前，它已经被载入了。（被调用时执行）
<html>
<head>
<script type="text/javascript">
....
</script>
</head>
3、位于 body 部分的JS：
在页面载入时脚本就会被执行。当你把脚本放置于 body 部分后，它就会生成页面的内容。（即直接执行）
<html>
<head>
</head>
<body>
<script type="text/javascript">
....
</script>
</body>
</html>
