请大侠帮忙

zhouts 2003-07-18 12:07:10
<%
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

...全文
23 3 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zhouts 2003-07-18
  • 打赏
  • 举报
回复
如何给你加分?
zhouts 2003-07-18
  • 打赏
  • 举报
回复
谢谢
panyee 2003-07-18
  • 打赏
  • 举报
回复
你写的asp不支持File.Exists(q)这个方法

你用 Dim fso
set fso = server.createobject("Scripting.FileSystemObject")
if fso.FileExists(1) then
.....
end if
发帖
.NET社区

6.1w+

社区成员

.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
帖子事件
创建了帖子
2003-07-18 12:07
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。