读书人

asp调用vb dll一小疑点vb里小弟我并

发布时间: 2012-01-07 21:41:55 作者: rapoo

asp调用vb dll一小问题,vb里我并不想把文件存在某个地方,只要显示出来就可以了,但如果我直接把save as这句去掉,执行asp时就会说http
asp调用vb dll一小问题,vb里我并不想把文件存在某个地方,只要显示出来就可以了,但如果我直接把save as这句去掉,执行asp时就会说http 404找不到文件http://localhost/a/csv/2007-3-9-11-36-51.xls,怎么解决
vb
Public str As String
Public Property Let strOutPath(s As Variant)
str = s
Call aspexcel( "select I_OBJECT from T_STOCK_TRACE_TR where 1=2 order by I_UPDATE_DATE desc ")
End Property

Public Property Get getOutPath()
getOutPath = str
End Property

Public Function aspexcel(ByVal SQLStr As String) As Boolean
Set cnn = New ADODB.Connection
cnn.Open = 略
Dim sfilename As String
sfilename = CStr(FormatDateTime(Now, 0))
sfilename = Replace(sfilename, " ", "- ")
str = sfilename
sfilename = App.Path & "\ " & sfilename & ".xls "
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Sheets(1)

cnn.Close
xlBook.SaveAs (sfilename)
Set xlSheet = Nothing
aspexcel = True
Exit Function
End Function

asp
<%set Myobj=server.CreateObject( "projectexcel.classexcel ")
Myobj.strOutPath=Server.Mappath( "csv ")
sfilename=Myobj.getOutPath
sfilename=sfilename& ".xls "
Myobj.aspexcel( "select语句 ")
set Myobj=nothing%>
<html>
<script>
window.location= "http://localhost/a/csv/ <%=sfilename%> ";


</script>

[解决办法]
你这样的肯定要先保存才能显示,否则IE到哪去找文件啊

读书人网 >VB

热点推荐