您所在位置：主题：关于登录并增加一条记录的问题请教?!
云中的雨
[专家分：0] 发布于 2007-11-10 09:52:00
我的数据库中有两个表：一是record，字段有“name”、“ pwd”。另一个是：logintable，字段有：“name”、“logintime”。我先作了一个登录页面如下所示附一代码，然后作登录成功并在表logintable中增加一条记录的网页，代码如下附二。但调试时总显示：错误类型：
Microsoft VBScript 编译器错误 (0x800A03EE)
缺少 ')'
/MyHome/denluxianshi.asp, line 19, column 58
conn.execute("INSERT INTO logintable (name,Now) VALUES ('"name"','"logintime"')")我想请教我错在哪里了？
附一：登录页面
<%@ LANGUAGE="VBScript" %>
<html>
<head>
<script language="VBScript">
<!--
Sub login_OnClick
Dim msg
msg = ""
If fus.name.value = "" Then
msg = "姓名不能为空！请先选择..."
fus.name.focus
End If
If msg = "" Then
fus.submit
ElseIf fus.pwd.value = "" Then
msg = "密码不能为空！请先输入..."
fus.stid.focus
ElseIf Len(fus.pwd.value) < 4 Or _
Not IsNumeric(fus.pwd.value) Then
msg = "密码由4位数字组成！请修改..."
fus.pwd.focus
Else
Alert(msg)
End If
End Sub
Sub reset_OnClick
fus.pwd.value = ""
fus.name.value = ""
fus.pwd.focus
End Sub
-->
</script>
</head>
<body onload="reset_OnClick">
<center>
<h2>用户登录网页</h2><hr>
<center>
<form name="fus" action="denluxianshi.asp" method="post" target="result">
<table>
<tr><td colspan="6"><font color="blue">用户信息</font></td></tr>
<tr><td colspan="6"><hr></td></tr>
<tr>
<td>姓名</td>
<td><input name="name" type="text" maxlength="8" size="10"> </td>
<td>密码</td>
<td><input name="pwd" type="password" maxlength="8" size="10"> </td>
<td><input name="login" type="button" value="登录"> </td>
<td><input name="reset" type="button" value="重设"></td>
<tr><td colspan="6"><hr></td></tr>
<tr><td colspan="6"><font color="blue">登录结果</font></td></tr>
</table>
</form>
</center>
</body>
</html>
附二：登录显示
<%@ LANGUAGE="VBScript" %>
<html>
<head></head>
<body>
<center>
<%
name=trim(Session("name"))
logintime=trim(request.form("Now"))
If Request("pwd") <> "" And Request("name") <> "" Then
' 注释：创建并初始化Recordset对象
Set objRS = Session("objRS")
objRS.Source = "SELECT * FROM record " & _
"WHERE pwd = '" & Request("pwd") & "' " & _
"AND name = '" & Request("name") & "' "
objRS.Open
' 注释：显示登录结果
If objRS.RecordCount > 0 then
Response.Write("登录成功！")
conn.execute("INSERT INTO logintable (name,Now) VALUES ('"name"','"logintime"')")
Else
Response.Write("登录失败！")
End If
' 注释：关闭记录集
objRS.Close
Set objRS = Nothing
Else
Response.Write("请先输入用户信息！")
End If
%>
</center>
</body>
</html>
Microsoft VBScript 编译器错误 (0x800A03EE)
缺少 ')'
/MyHome/denluxianshi.asp, line 19, column 58
conn.execute("INSERT INTO logintable (name,Now) VALUES ('"name"','"logintime"')")我想请教我错在哪里了？
附一：登录页面
<%@ LANGUAGE="VBScript" %>
<html>
<head>
<script language="VBScript">
<!--
Sub login_OnClick
Dim msg
msg = ""
If fus.name.value = "" Then
msg = "姓名不能为空！请先选择..."
fus.name.focus
End If
If msg = "" Then
fus.submit
ElseIf fus.pwd.value = "" Then
msg = "密码不能为空！请先输入..."
fus.stid.focus
ElseIf Len(fus.pwd.value) < 4 Or _
Not IsNumeric(fus.pwd.value) Then
msg = "密码由4位数字组成！请修改..."
fus.pwd.focus
Else
Alert(msg)
End If
End Sub
Sub reset_OnClick
fus.pwd.value = ""
fus.name.value = ""
fus.pwd.focus
End Sub
-->
</script>
</head>
<body onload="reset_OnClick">
<center>
<h2>用户登录网页</h2><hr>
<center>
<form name="fus" action="denluxianshi.asp" method="post" target="result">
<table>
<tr><td colspan="6"><font color="blue">用户信息</font></td></tr>
<tr><td colspan="6"><hr></td></tr>
<tr>
<td>姓名</td>
<td><input name="name" type="text" maxlength="8" size="10"> </td>
<td>密码</td>
<td><input name="pwd" type="password" maxlength="8" size="10"> </td>
<td><input name="login" type="button" value="登录"> </td>
<td><input name="reset" type="button" value="重设"></td>
<tr><td colspan="6"><hr></td></tr>
<tr><td colspan="6"><font color="blue">登录结果</font></td></tr>
</table>
</form>
</center>
</body>
</html>
附二：登录显示
<%@ LANGUAGE="VBScript" %>
<html>
<head></head>
<body>
<center>
<%
name=trim(Session("name"))
logintime=trim(request.form("Now"))
If Request("pwd") <> "" And Request("name") <> "" Then
' 注释：创建并初始化Recordset对象
Set objRS = Session("objRS")
objRS.Source = "SELECT * FROM record " & _
"WHERE pwd = '" & Request("pwd") & "' " & _
"AND name = '" & Request("name") & "' "
objRS.Open
' 注释：显示登录结果
If objRS.RecordCount > 0 then
Response.Write("登录成功！")
conn.execute("INSERT INTO logintable (name,Now) VALUES ('"name"','"logintime"')")
Else
Response.Write("登录失败！")
End If
' 注释：关闭记录集
objRS.Close
Set objRS = Nothing
Else
Response.Write("请先输入用户信息！")
End If
%>
</center>
</body>
</html>
