UC知道请问这段代码有错误吗?
来源：百度知道 编辑：UC知道 时间：2024/05/04 12:31:30
<% dim names,tel,title,bodys,email
names=request.form("names")
tel=request.form("tel")
title=request.form("title")
bodys=request.form("bodys")
email=request.form("email")
if names<>"" and tel<>"" and title<>"" and bodys<>"" then
dim cn
set cn=server.createobject("adodb.connection")
cn.open"userinfo"
cn.execute("Insert Into userinfo(names,tel,title,bodys,email) values ('"&names&"' , '"&tel&"' , '"&title&"' , '"&bodys&"' , '"&email&"')")
response.Write("chenggng")
else
response.Write("123")
end if
%>
names=request.form("names")
tel=request.form("tel")
title=request.form("title")
bodys=request.form("bodys")
email=request.form("email")
if names<>"" and tel<>"" and title<>"" and bodys<>"" then
dim cn
set cn=server.createobject("adodb.connection")
cn.open"userinfo"
cn.execute("Insert Into userinfo(names,tel,title,bodys,email) values ('"&names&"' , '"&tel&"' , '"&title&"' , '"&bodys&"' , '"&email&"')")
response.Write("chenggng")
else
response.Write("123")
end if
%>
cn.open"userinfo"
这句可能有错，
数据库连接的语句一般是这样写的
dim objconn,strDataSource
strDataSource=server.MapPath("数据库的名称…….mdb")
set objconn=server.CreateObject("ADODB.Connection")
objconn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataSource
objconn.open
看样子你这个好像是个DSN的连接，应该如下：
set cn=server.createobject("adodb.connection")
cn.open "dsn=userinfo;uid=yourname;pwd=yourpass"
以下是通用数据库连接，一般都保存为conn.asp然后调用。
Dim DBType,Conn,StrConn
DBType=0 '0为Access数据库，1为MSSQL数据库
If(DBType=0) Then
'****************ACCESS数据库******************
Dim DbFolderName,DbFolder_Path,SiteFolder
DbFolderName="ArticleData" '数据库所在文件夹名称
DbFolder_Path = Server.MapPath(DbFolderName) '数据库所在路径
SiteFolder="Article" '系统所在根目录名称
If Session("RootD