62,046
社区成员
发帖
与我相关
我的任务
分享请大侠帮忙
<%
server.ScriptTimeOut=1200
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "dsn=vf;uid=;pwd="
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open session("dsn")
conn1.commandtimeout=0
'if request("x")<>"" then
jx=request("jx")
q="C:\\input\\" & request("in01") & ".dbf"
response.write q
if (File.Exists(q))
sql = " select bj,zjx,bl,xh,cc,q2,q3,q4,q5,q6,q9 from " & request("in01")
'response.write Sql
set vv=conn.execute(sql)
conn1.close
set conn1=nothing
response.write "<body bgcolor="&"#006699"&">"
response.write "<br><h2><font color=yellow>已完成。<h2>"
else
response.write "<body bgcolor="&"#006699"&">"
response.write "<br><h2><font color=yellow>库文件不存在。<h2>"
end if
%>
执行时出错
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F9)
/gl/drfgb02.asp, 第 12 行, 第 19 列
if (File.Exists(q))
------------------^
q=C:\\input\\ffgb.dbf
server.ScriptTimeOut=1200
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "dsn=vf;uid=;pwd="
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open session("dsn")
conn1.commandtimeout=0
'if request("x")<>"" then
jx=request("jx")
q="C:\\input\\" & request("in01") & ".dbf"
response.write q
if (File.Exists(q))
sql = " select bj,zjx,bl,xh,cc,q2,q3,q4,q5,q6,q9 from " & request("in01")
'response.write Sql
set vv=conn.execute(sql)
conn1.close
set conn1=nothing
response.write "<body bgcolor="&"#006699"&">"
response.write "<br><h2><font color=yellow>已完成。<h2>"
else
response.write "<body bgcolor="&"#006699"&">"
response.write "<br><h2><font color=yellow>库文件不存在。<h2>"
end if
%>
执行时出错
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F9)
/gl/drfgb02.asp, 第 12 行, 第 19 列
if (File.Exists(q))
------------------^
q=C:\\input\\ffgb.dbf
...全文
请发表友善的回复…
发表回复
