出什么错撒,你总要报个信吧,省得我没目的的瞎改啊
<%
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('"+CDate(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.execute insent
conn.close

%>

<%
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('"+CDate(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)+"')"
response.write insent
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("nameco.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
Conn.Open connstr
conn.execute insent
conn.close

%>
你把每个字段跟输入对应起来看看罗

老大我把数据库发到你到信箱里吧~!!!>>>>............

有些字段是关键字之类的,用[]可以了

这是以前用ODBC连接的源文件>>


<%
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")
conn.open "nameco"
conn.execute insent
conn.close
%>
<%
set fs=server.createobject("scripting.filesystemobject")
fs.createfolder(server.mappath("\factory\"+a(1)+""))
set myfile=fs.getfile(server.mappath("\regist\pic\index.asp"))
myfile.copy server.mappath("\factory\"+a(1)+"\index.asp")
set txt=fs.createtextfile(server.mappath("\factory\"+a(1)+"\index.txt"))
txt.writeline(a(1))
txt.close
%>

老大出现这样的错误>>>


错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 字段 'nameco.adcipher' 不能是零长度的字符串。
/htm/affirm.asp, 第 10 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

网页：
POST 192 ??? /htm/affirm.asp

POST Data:
a1=asdfasdf&b1=asdfasdf&a2=asdfasdf&b2=ffff&a3=asdfasdfas&b3=ffff&a4=%C4%D0&b4=&a5=dfasdfasdfasdf&b5=sdafasdfsdf&a6=%D5%E3%BD%AD&b6=&a7=asdfasd&b7=&a8=fasdfasdf&b8=&a9=&b9=&Submit=%CC%E1%BD%BB

我都填的

如果没填的话会有提示的啊

& now() &
会不会是这个的原因啊>>>>>.....????