我不会写。帮帮忙。

[lzd1024]

我想做个注册用户的页。我想把表单的东西插到数据库中。
我这样做对吗？我应该怎么写啊。我的这个抱错了说：Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 '(,,,,,,)' 中。那为高手帮给我写个我谢谢了。

<%

if(request.form("mc") <> "") then Command1__mc = request.form("mc")
if(request.form("mima") <> "") then Command1__mima = request.form("mima")
if(request.form("dianhua") <> "") then Command1__dianhua1 = request.form("dianhua")
if(request.form("email") <> "") then Command1__email1 = request.form("email")
if(request.form("hangye") <> "") then Command1__hangye = request.form("hangye")
if(request.form("qq") <> "") then Command1__qq1 = request.form("qq")
if(request.form("chengshi") <> "") then Command1__chengshi = request.form("chengshi")
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_sjk_STRING
Command1.CommandText = "INSERT INTO yonghu (name,pass,dianhua,email,chongshihangye,qq,suozaichengshi) VALUES ((" + Replace(Command1__mc, "'", "''") + "," + Replace(Command1__mima, "'", "''") + "," + Replace(Command1__dianhua1, "'", "''") + "," + Replace(Command1__email1, "'", "''") + "," + Replace(Command1__hangye, "'", "''") + "," + Replace(Command1__qq1, "'", "''") + "," + Replace(Command1__chengshi, "'", "''") + ") "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>

[hxyman]

Command1.CommandText = "INSERT INTO yonghu (name,pass,dianhua,email,chongshihangye,qq,suozaichengshi) VALUES ((""" + Replace(Command1__mc, "'", "''") + """,""" + Replace(Command1__mima, "'", "''") + """,""" + Replace(Command1__dianhua1, "'", "''") + """,""" + Replace(Command1__email1, "'", "''") + """,""" + Replace(Command1__hangye, "'", "''") + """,""" + Replace(Command1__qq1, "'", "''") + """,""" + Replace(Command1__chengshi, "'", "''") + """) "

字符串要用引号括起来

[lzd1024]

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] 语法错误 (逗号) 在查询表达式 '([],[],[],[],[],[],[])' 中。又出报这个错误了。

[antiking]

(name,pass,dianhua,email,chongshihangye,qq,suozaichengshi) VALUES (('" & Replace(Command1__mc, "'", "''") & "','" & Replace(Command1__mima, "'", "''") & "','" & Replace(Command1__dianhua1, "'", "''") & "','" &Replace(Command1__email1, "'", "''") &"','" &Replace(Command1__hangye, "'", "''")&"','"& Replace(Command1__qq1, "'", "''")&"','"& Replace(Command1__chengshi, "'", "''") &"') "

[antiking]

(name,pass,dianhua,email,chongshihangye,qq,suozaichengshi) VALUES ('" & Replace(Command1__mc, "'", "''") & "','" & Replace(Command1__mima, "'", "''") & "','" & Replace(Command1__dianhua1, "'", "''") & "','" &Replace(Command1__email1, "'", "''") &"','" &Replace(Command1__hangye, "'", "''")&"','"& Replace(Command1__qq1, "'", "''")&"','"& Replace(Command1__chengshi, "'", "''") &"') "

[legend1970]

用这个函数在提交前，检验input 和textarea两种类型的表单是否为空
function check()
{var input = document.all.tags("input");
textarea= document.all.tags("textarea");
for(i=0;i<input.length;i++)
{
if (input[i].value=="")
{
alert("请填完整信息！");
return false;
break;
}
}
for(i=0;i<textarea.length;i++)
{
if (textarea[i].value=="")
{
alert("请填完整信息！");
return false;
break;
}
}
}

处理程序中这样写
Command1__mc = request.form("mc")
………………
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from yonghu"
rs.open sql,Command1,3,3
rs.addnew

rs("Command1__mc")=trim(Command1__mc)
……………………
rs.update

[lzd1024]

大哥我知道你写的已经很详细了，但我还是不会。你能给我写个详细的吗？

[lzd1024]

<script language="javascript">
function check()
{var input=document.all.tags("input");
textarea=document.all.tags("textarea");
for(i=0;i<input.length;i++)
{
if(input[i].value==" ")
{
alert( "请填完整信息！ ");
return false;
break;
}
}
for(i=0;i<textarea.length;i++)
{
if (textarea[i].value==" ")
{
alert("请填完整信息!");
return false;
break;
}
}
}
</script>

<form name="form1" action="check" method="post">我这样对吗？怎么不判断啊？谢谢！大哥！

[kouzhongling]

不能这么调用js函数应该
<form name="form1" active="xxx.xxx" onsubmit="return check()" method="post">

[lzd1024]

大哥。我求求你了。我想你那样写还是不对啊。我只想做个注册。求求了。在帮帮我。
照着你那个改什么也不出。没反映。

[hxyman]

数据库中的字段改为 允许空字符串
注意以下两点：入库时是字符串类型的用 '' 括起来。
对入库的内容进行预先处理，把一些特殊符号（如单引号）过滤掉或者转换一下

[lzd1024]

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/sjk.asp" -->
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_sjk_STRING
Recordset2.Source = "SELECT * FROM city"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {
font-size: 36px;
font-weight: bold;
}
-->
</style>
</head>

<body>


<div align="center">
<h1><span class="style1">个人注册</span>
</h1>
</div>
<form name="form1" action="zchanshu.asp" onSubmit="return check()" method="post">
<p>会员注册*号部分为必添部分！</p>
<p><strong>登陆ID</strong>：
<input name="mc" type="text" id="mc" maxlength="10">*
</p>
<p>
<strong>密 码</strong>：
<input name="mima" type="password" id="mima" maxlength="6">
*
</p>
<p><strong>所在城市：</strong>
<select name="suozaichengshi" id="suozaichengshi">
<%
While (NOT Recordset2.EOF)
%>
<option value="<%=(Recordset2.Fields.Item("city").Value)%>"><%=(Recordset2.Fields.Item("city").Value)%></option>
<%
Recordset2.MoveNext()
Wend
If (Recordset2.CursorType > 0) Then
Recordset2.MoveFirst
Else
Recordset2.Requery
End If
%>
</select>
</p>
<p><strong> 从事行业 ：
<input name="chonshihangye" type="text" id="chonshihangye">
</strong></p>
<p align="left"><strong>联系电话</strong>：
<input name="dianhua" type="text" id="dianhua">*
(请填写真实电话，以方便我们和您联系。为您提供更好的服务！）</p>
<p><strong>Email</strong>:
<input name="email" type="text" id="email">
* </p>
<p><strong>qq:
<input name="qq" type="text" id="qq">
</strong></p>
<p>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit" value="重置">
</p>



</form>
</body>
</html>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>

这个是注册页1
<script language="javascript">
function check()
{var input=document.all.tags("input");
textarea=document.all.tags("textarea");
for(i=0;i<input.length;i++)
{
if(input[i].value==" ")
{
alert( "请填完整信息！ ");
return false;
break;
}
}
for(i=0;i<textarea.length;i++)
{
if (textarea[i].value==" ")
{
alert("请填完整信息!");
return false;
break;
}
}
}
</script>
这个是二。我怎么做啊？

[lzd1024]

我把整个2页都贴出来了。大家帮我看看啊。谢谢！大哥大姐们!
来的我都给分。

[wanghui0380]

response.write xxxx 监视中间变量，字符串

response.end 设置中断点
调试的基本手段，监视中间变量，字符串，设置中断点

呵呵，无论哪种程序都是如此调试地,学会调试，你的水平才有可能继续提高，你才会每次出错后都知道在那里出了错

[lzd1024]

来人啊帮我看看我的两页那里错了。我还是不会啊。