加在哪里啊??

<%
for each b in Request.Form
str = str + cstr(Request.Form(b)) + ","
next
a=split(str,",")
insent="insert into nameco(rq,[code],ccname,cename,ctype,brief,province,city,address,corporation,adname,adcipher,linkman,telephone,fax,postalcode,email,http) values('" & now() &"','"+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")+";DRIVER={Microsoft Access Driver (*.mdb)}"
response.write insent
Conn.Open connstr
conn.execute insent
conn.close
%>

加在这里问题还是一样啊~!>>>>>..................

老大当斑竹了>>>>///......................

恭喜你啊>>>.......................

可是我的问题还没解决啊>>>>...............

快帮帮忙啊..................

为什么用ODBC的时候能用呢?>>>>>.?

我把代码都给你你帮帮我一下>>>>..............


注册页面:是htm文件






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

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

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

注册提交处理页面:是asp文件>>>...........

<%
for each b in Request.Form
str = str + cstr(Request.Form(b)) + ","
next
a=split(str,",")
insent="insert into nameco(rq,[code],ccname,cename,ctype,brief,province,city,address,corporation,adname,adcipher,linkman,telephone,fax,postalcode,email,http) values('" & now() &"','"+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")+";DRIVER={Microsoft Access Driver (*.mdb)}"
response.write insent
Conn.Open connstr
conn.execute insent
conn.close
%>

返回首页

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

登录

注册页面
<%

Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("nameco.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)}"
Conn.Open connstr
set rs = server.CreateObject("adodb.recordset")
rs.Open "select * from nameco",conn,1,3
rs.AddNew
rs("rq")=now()
rs("ccname")=Request.Form("a2")'对应于code的表单name为a2
...
rs.Update
rs.Close
set rs = nothing
conn.close
set conn = nothing
%>

返回首页

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

登录

受不了
中间有段....不是?
换成
rs("数据库字段名称")=Request.form("对应要写入数据库表单的名称") 就行啊

比如rs("ccname")=Request.form("a2"),我都写例子了