还有一个问题就是:

用户注册的提交处理
<%
dim a(18),insent
a(0)=cstr(date())
for i=1 to 18
a(i)=request.form(i)
next
insent="insert into nameco(rq,code,ccname,cename,ctype,brief,province,city,address,corporation,adname,adcipher,linkman,telephone,fax,postalcode,email,http) values('"+a(0)+"','"+a(1)+"','"+a(3)+"','"+a(5)+"','"+a(7)+"','"+a(9)+"','"+a(11)+"','"+a(13)+"','"+a(15)+"','"+a(17)+"','"+a(2)+"','"+a(4)+"','"+a(8)+"','"+a(10)+"','"+a(12)+"','"+a(14)+"','"+a(16)+"','"+a(18)+"')"
%>

这里是HTML代码

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("nameco.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
Conn.Open connstr
conn.close
%>

前面是一个用户注册的HTM文件
提交到这个文件处理

老大还是不行啊

老大还是不行啊
用户注册的表单提交处理
<%
dim a(18),insent
a(0)=cstr(date())
for i=1 to 18
a(i)=request.form(i)
next
insent="insert into nameco(rq,code,ccname,cename,ctype,brief,province,city,address,corporation,adname,adcipher,linkman,telephone,fax,postalcode,email,http) values('"+a(0)+"','"+a(1)+"','"+a(3)+"','"+a(5)+"','"+a(7)+"','"+a(9)+"','"+a(11)+"','"+a(13)+"','"+a(15)+"','"+a(17)+"','"+a(2)+"','"+a(4)+"','"+a(8)+"','"+a(10)+"','"+a(12)+"','"+a(14)+"','"+a(16)+"','"+a(18)+"')"
%>

这里是HTML代码
(这中间插了一段用用户注册成功的提示)
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("nameco.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
Conn.Open connstr
conn.close
%>

前面是一个用户注册的HTM文件<表单提交>
前面是一个HTML文件(regist.htm)
提交到这个asp文件进行处理(affirm.asp)

狂晕~各种方式晕~
想象力真丰富~~

应该是数据类型的问题，数值型插入只能用"&..&"，而不能用'"&..&"'
检查一下你的数据类型吧，还有布尔值也是如此

老大注册页面代码跟处理注册页面文件代码在下面>>>>>>:

注册页面:>>>





href="img/tc.css" rel=stylesheet>

注：用户名、管理员名称及管理员密码，必须用英文或数字，4-12个字符(请务必记住)。带*号为必填项。

用户名*：		管理员名称*：
你的中文名称*：		管理员密码*：
你的英文名称*：		验证密码*：
性别*： 男 女 保密		真实姓名：
简述：		联系电话*：
所在省份：	淅江 江苏 安徽 北京 重庆 福建 甘肃 广东 广西 贵州 海南 河北 黑龙江 河南 湖北 湖南 内蒙古 山东 江西 吉林 辽宁 宁夏 青海 山西 陕西 上海 四川 天津 西藏 云南 新疆 香港 澳门 台湾 其他	传真：
所在城市：		邮政编码：
联系地址*：		EMAIL：
网名：		主页：

提交程序:>>>
<%
dim a(18),insent
a(0)=cstr(date())
for i=1 to 18
a(i)=request.form(i)
next
insent="insert into nameco(rq,code,ccname,cename,ctype,brief,province,city,address,corporation,adname,adcipher,linkman,telephone,fax,postalcode,email,http) values('"+a(0)+"','"+a(1)+"','"+a(3)+"','"+a(5)+"','"+a(7)+"','"+a(9)+"','"+a(11)+"','"+a(13)+"','"+a(15)+"','"+a(17)+"','"+a(2)+"','"+a(4)+"','"+a(8)+"','"+a(10)+"','"+a(12)+"','"+a(14)+"','"+a(16)+"','"+a(18)+"')"
%>

返回首页

恭禧，您已成功注册！请记住您的用户名，管理员名称及密码！

登录

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("nameco.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
Conn.Open connstr
conn.close
%>

老大还是没用~~~~~

当然是放在处理注册页面中了