粗体部分是错误,它在IE中有效,但是通过crome和mozila中的错误 [英] In the bold part is error it works in IE but through error in crome and mozila
问题描述
I have a MS Access database named result.mdb
My code in VBScript is here :
粗体部分是错误部分,但在IE中可以正常工作,但通过crome,mozila ect中的错误可以解决"
<%
opt_b = request("batch")
Dim con,rec,path,sql,vpath,cons,reca
设置con = Server.CreateObject("ADODB.Connection")
路径="re_result.mdb"
vpath = Server.MapPath(path)
cons ="PROVIDER = MICROSOFT.JET.OLEDB.4.0; DATA SOURCE ="&虚拟路径"
con.open缺点
设置rec_name = Server.CreateObject("ADODB.Recordset")
"In the bold part is error part but it works fine in IE but through error in crome, mozila ect"
<%
opt_b = request("batch")
Dim con,rec,path,sql,vpath,cons,reca
Set con = Server.CreateObject("ADODB.Connection")
path = "re_result.mdb"
vpath = Server.MapPath( path )
cons = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & vpath & ""
con.open cons
Set rec_name = Server.CreateObject("ADODB.Recordset")
if(opt_b = "") then
'response.write("No batch available for this course")
else
sql_tbl_n = "select table_name from Master_Record where course='"& opt_c &"' and batch_code='"& opt_b &"'"
rec_tbl_n.Open sql_tbl_n,con
if rec_tbl_n.bof or rec_tbl_n.eof then
response.write "no records."
else
rec_tbl_n.movefirst
tbl_name = rec_tbl_n(0)
'response.write(tbl_name & "<br>")
end if
sql_name =从选择名称,Roll_No"& tbl_name& "按名称分组,Roll_No" rec_name.打开sql_name,con
如果是rec_name.bof或rec_name.eof,则
n_flag = 0
其他
n_flag = 1
rec_name.movefirst
如果
结束
%>
sql_name = "select Name, Roll_No from " & tbl_name & " group by Name, Roll_No "rec_name.Open sql_name,con
if rec_name.bof or rec_name.eof then
n_flag = 0
else
n_flag = 1
rec_name.movefirst
end if
%>
推荐答案
您正在使用的VBScript仅受IE支持.没有其他浏览器支持VBScript.
You are using VBScript which is supported only by IE. No other browser supports VBScript.
这篇关于粗体部分是错误,它在IE中有效,但是通过crome和mozila中的错误的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!