我把数据库表里的一些字段去掉了 ,类型全部都是varchar的,想一点一点来!数据库绝对没什么问题。网页中的字段也没什么问题!可是还是不行!
源文件如下:<% LANGUAGE = "VBScript" %><HTML>
<HEAD>
<TITLE> 保存预定信息 </TITLE>
</HEAD>
<BODY>
<!-- #include virtual = "/adovbs.inc" --><%
Dim conn, rest, StrSQL
Dim vCliName, iPhone, vComName, vDealwither
vCliName = Trim(Request.Form("lname"))iPhone = Trim(Request.Form("ltel"))
vComName = Trim(Request.Form("lcode"))vDealwither = Trim(Request.Form("lother"))set conn = Server.CreateObject("ADODB.Connection")conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=CabaretManageSystem;Data Source=."conn.OpenStrSQL = "INSERT tRoomDestine(vCliName, iPhone, vComName, vDealwither)"
StrSQL = StrSQL & "VALUES('"&vCliName&"','"&iPhone&"','"&vComName&"','"&vDealwither&"')"conn.Execute StrSQL,,adCmdText%>
源文件如下:<% LANGUAGE = "VBScript" %><HTML>
<HEAD>
<TITLE> 保存预定信息 </TITLE>
</HEAD>
<BODY>
<!-- #include virtual = "/adovbs.inc" --><%
Dim conn, rest, StrSQL
Dim vCliName, iPhone, vComName, vDealwither
vCliName = Trim(Request.Form("lname"))iPhone = Trim(Request.Form("ltel"))
vComName = Trim(Request.Form("lcode"))vDealwither = Trim(Request.Form("lother"))set conn = Server.CreateObject("ADODB.Connection")conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=CabaretManageSystem;Data Source=."conn.OpenStrSQL = "INSERT tRoomDestine(vCliName, iPhone, vComName, vDealwither)"
StrSQL = StrSQL & "VALUES('"&vCliName&"','"&iPhone&"','"&vComName&"','"&vDealwither&"')"conn.Execute StrSQL,,adCmdText%>
Dim conn, rest, StrSQL
Dim vCliName, iPhone, vComName, vDealwither
vCliName = Trim(Request.Form("lname"))iPhone = Trim(Request.Form("ltel"))
vComName = Trim(Request.Form("lcode"))vDealwither = Trim(Request.Form("lother"))set conn = Server.CreateObject("ADODB.Connection")ConnectionString = "Provider=SQLOLEDB;User ID=sa;Password =pwd;Initial Catalog=mydatabase;Data Source=127.0.0.1;"conn.Open ConnectionStringStrSQL = "INSERT tRoomDestine(vCliName, iPhone, vComName, vDealwither)"
StrSQL = StrSQL & "VALUES('"&vCliName&"','"&iPhone&"','"&vComName&"','"&vDealwither&"')"conn.Execute(StrSQL)
%>
我也不知道为什么了!你有QQ吗?我想和你QQ聊!
没看你的sql语句应该是Insert into
你的没有intoStrSQL = "INSERT Into tRoomDestine(vCliName, iPhone, vComName, vDealwither)"
StrSQL = StrSQL & "VALUES('"&vCliName&"','"&iPhone&"','"&vComName&"','"&vDealwither&"')"
我加上Into依然出错!
1、连接数据库有问题
2、sql语句有问题希望以后不要光抄书上的,更不要抄错了。自己也要想想啊。呵呵
我用的工具是 EditPlus2 写的ASP
运行的时候不报错!但是加不进数据库!
我但是用IE试的时候 提交以后就出现
“500错误 无法显示网页!”
然后重新在ie里打开你的程序,看看具体的错误信息.
500错误 不是程序的错误
是你的iis的自身的错误