This website requires Javascript to function properly. Please go to the setting of your web browser and enable Javascript for this website.

×

Loading...

Ad by

Ad by

Sorry. I program with JScript. I can't write out VBScript with correct syntax without testing it. But you can look at my JScript exampe for inserting.

jeffrey815(Smartiecat)

本文发表在 rolia.net 枫下论坛Application("connStr") = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=e:\\MP3DB.mdb"

var logIP = "INSERT INTO IPLOG VALUES ('" + Session("IP") + "', 1, #" + get_MMDDYYYY_datetime() + "#)"

Session("IP") = String(Request.ServerVariables("REMOTE_ADDR"))

var log = Server.CreateObject("ADODB.Command");
log.ActiveConnection = Application("connStr");
log.CommandText = logIP;
log.Execute();

function get_MMDD_date(dat) {
var month = "0" + (dat.getMonth() + 1)
month = month.substr(month.length-2)
var day = "0" + dat.getDate()
day = day.substr(day.length-2)
return (month + day)
}

function get_MMDDYYYY_datetime(){
var Today = new Date()
return get_MMDDYYYY_date(Today) + " " + get_HHMMSSTT_time(Today)
}

function get_HHMMSSTT_time(dat) {
var vMinutes = "0" + dat.getMinutes()
vMinutes = vMinutes.substr(vMinutes.length-2)
var vSeconds = "0" + dat.getSeconds()
vSeconds = vSeconds.substr(vSeconds.length-2)
var vHours = dat.getHours()
if (vHours > 11) {
vHours = vHours - 12
vHours==0?vHours=12:vHours=vHours
return (vHours + ":" + vMinutes + ":" + vSeconds + " PM")
}
else {
vHours==0?vHours=12:vHours=vHours
return (vHours + ":" + vMinutes + ":" + vSeconds + " AM")
}
}更多精彩文章及讨论，请光临枫下论坛 rolia.net

(#572023@0)
Last Updated: 2002-6-12
This post has been archived. It cannot be replied.

Report

Replies, comments and Discussions:

工作学习 / IT技术讨论 / web page 高手帮我看看，我的code 有什么问题，多多谢了。 -waokool(waokool); 2002-6-12 {904} (#571981@0)
IE 显示如下信息：
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access 驱动程序] 参数不足，期待是 3。 /myweb/mgpr.asp, line 19
另外，我对INSERT INTO 的语法不太清楚。
非常感谢您的帮助。

<%
'get the form variables
productid=TRIM (Request ("product id"))
productname=TRIM (Request ("product name"))
productnumber=TRIM (Request ("product number"))

'open database connection
Set Con=Server.CreateObject("ADODB.Connection")
Con.Open "molDSN"
%>

<html>
<body>
<%
'add new product
if productname<> "" then
sqlString=" INSERT INTO module1 (product_id,product_name, product_number)" &_
" VALUES( productid,productname,prouctnumber) "
Con.Execute sqlString
%>
<table>
<tr><td><%=productname%> was added to the database</td></tr></table>
<%
end if
%>
<a href="addpr.asp">Add product</a>

</body>

</html>

I don't think you can use connection to execute statement, can you? -jeffrey815(Smartiecat); 2002-6-12 (#571986@0)

Exactly, So what;s the problem? Thanks a lot. -waokool(waokool); 2002-6-12 (#571997@0)

An error: -jeffrey815(Smartiecat); 2002-6-12 {238} (#571996@0)
sqlString=" INSERT INTO module1 (product_id,product_name, product_number)" &_
" VALUES( productid,productname,prouctnumber) "

This sentense is definately wrong. You put productid, productname, productnumber inside the quot....

Thanks, So how to change it. As i said, I am not familiar with this Command, and especially about the useage of quotation marks.Could you please show me how to correct it ?Thanks a lot. -waokool(waokool); 2002-6-12 (#572004@0)

Sorry. I program with JScript. I can't write out VBScript with correct syntax without testing it. But you can look at my JScript exampe for inserting. -jeffrey815(Smartiecat); 2002-6-12 {1292} (#572023@0)
本文发表在 rolia.net 枫下论坛Application("connStr") = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=e:\\MP3DB.mdb"

var logIP = "INSERT INTO IPLOG VALUES ('" + Session("IP") + "', 1, #" + get_MMDDYYYY_datetime() + "#)"

Session("IP") = String(Request.ServerVariables("REMOTE_ADDR"))

var log = Server.CreateObject("ADODB.Command");
log.ActiveConnection = Application("connStr");
log.CommandText = logIP;
log.Execute();

function get_MMDD_date(dat) {
var month = "0" + (dat.getMonth() + 1)
month = month.substr(month.length-2)
var day = "0" + dat.getDate()
day = day.substr(day.length-2)
return (month + day)
}

function get_MMDDYYYY_datetime(){
var Today = new Date()
return get_MMDDYYYY_date(Today) + " " + get_HHMMSSTT_time(Today)
}

function get_HHMMSSTT_time(dat) {
var vMinutes = "0" + dat.getMinutes()
vMinutes = vMinutes.substr(vMinutes.length-2)
var vSeconds = "0" + dat.getSeconds()
vSeconds = vSeconds.substr(vSeconds.length-2)
var vHours = dat.getHours()
if (vHours > 11) {
vHours = vHours - 12
vHours==0?vHours=12:vHours=vHours
return (vHours + ":" + vMinutes + ":" + vSeconds + " PM")
}
else {
vHours==0?vHours=12:vHours=vHours
return (vHours + ":" + vMinutes + ":" + vSeconds + " AM")
}
}更多精彩文章及讨论，请光临枫下论坛 rolia.net

Thanks a lot, my friend. -waokool(waokool); 2002-6-12 (#572029@0)

好象是 -rootbear(啤酒); 2002-6-12 {110} (#572072@0)
字符型的VALUE要用单引号，另外如果其中一个值没有PASS过来也会出错，最简单的办法show一下你的sql，马上可以发现错误

Thanks. But what you mean showing my SQL? I use ACCESS -waokool(waokool); 2002-6-12 {228} (#572090@0)
I use ACCESS to bulid a database table.I don't know how to show it. I am sure the problem occurs in INSERT INTO syntax, but I can't figure out what error occurs. Maybe that 's what we called " blind point". tHANK YOU AGIAN.

try -rootbear(啤酒); 2002-6-12 {346} (#572313@0)
sqlString=" INSERT INTO module1 (product_id,product_name, product_number)" &_
" VALUES( productid,productname,prouctnumber) "
'---------------------------------------------------------------------
respose.write sqlString '<------------here
'---------------------------------------------------------------------
Con.Execute sqlString

SQL statment error, the right should be : sqlString=" INSERT INTO module1 (product_id,product_name, product_number)" &_ " VALUES( ' "& productid &" ', ' " &productname &" ', ' " & prouctnumber & " ' ) " -xiaodongxi(xiaodongxi); 2002-6-12 {192} (#572395@0)
if your productid is number, you needn't ' for that one.

one suggestion:
you write: TRIM (Request ("product name"))
in Form, don't use space for the name of item, use _ is better
my answer... -gamma(gamma); 2002-6-12 {625} (#572624@0)
the database connection should be
dim Con
Set Con=Server.CreateObject("ADODB.Connection")
objConn.Provider = "Microsoft.Jet.OLEDB.4.0"
objConn.Open "path\database.mdb"

or

dim Con, strC
Set Con = Server.CreateObject("ADODB.Connection")
strC = "Data Source = datasourcename;User ID=userid;Password=password;"
objConn.Open strC

the insert sql statement should be
sqlString= "INSERT INTO module1 (product_id,product_name, product_number)VALUES("'" & productid & "','" & productname & "','" & prouctnumber & "')"

read some online document for vbscript before your began to program.

waokool是在ODBC里设置了数据源. 我也喜欢用ODBC, 在CODE里不用写一大堆的东西. 从他的错误来看,数据库已经连上了,只是没有参数传上去. 但是waokool 你要注意, 用ACCESS数据库, 不要把MDB文件放在WEB FOLDER里面, -xiaodongxi(xiaodongxi); 2002-6-12 {53} (#572791@0)
不然会给人DOWNLOAD下来的. 你用ODBC, 你想放哪里都可以.

Thank you all.Reply for all friends. the code still doesn't work.IE show some information. -waokool(waokool); 2002-6-12 {502} (#573892@0)
Hi, my friends. I agree with the INSERT INTO syntax suggested by xiaodongxi and Gamma, I can find a similar example on book, But it looks sth. wrong wrong with "Con.Execute sqlString". After I modified the INSERT INTO , the IE show "
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
[Microsoft][ODBC Microsoft Access 驱动程序] 标准表达式中数据类型不匹配。
/myweb/mgpr.asp, line 20 "
The line 20 is "Con.Execute sqlString"
So what's the problem. Give me a hand. Thank you all.

For example, if you are passing string into a field that's defined as type "number". Then you will get that error. -jeffrey815(Smartiecat); 2002-6-12 (#573928@0)

Nice to see you again. I've checked the database table. Nothing wrong with data type.As for your second suggestion, to be honest, I am not clear. I am just beginner. -waokool(waokool); 2002-6-12 (#573963@0)

If you don't use ODBC, you can put it anywhere as well... Use ODBC is slower, by the way. OLEDB connection is the fastest. -jeffrey815(Smartiecat); 2002-6-12 (#573922@0)

More Topics

现在社区游泳池招救生员巡逻，过一会还要不停的点人头，这工作是否很快就被AI代替了，装一个摄像头后面是AI处理系统，这样只招一个等着救人就行了，人头沉下水一定时间立马强光照射，还可以分析水下人的状况来判断是否溺水等

新冠疫苗引发心肌炎? 最新研究这样看

这道几何题有解吗?

如何在 AWS EC2 实例上构建 WordPress 应用程序?

枫下论坛主坛 / 工作学习 / IT技术讨论