<% Response.Write("<head<style<!--span{ font-size: 9pt }--</style</head") On Error Resume Next Dim thisurl,thistext thisurl=Request("thisurl") '定义文件地址(非Html格式文档)! if thisurl="" then Response.Write("<span请先输入文件地址!</span") Response.End End if Function objx...[ 查看全文 ]
<% '原创作者:小艺 QQ:52093 时间:2005.6.30 Response.Write("<head<style<!--span{ font-size: 9pt }--</style</head") On Error Resume Next Dim thisurl,thistext thisurl=Request("thisurl") '定义文件地址(非Html格式文档)! if thisurl="" then Response.Write("<span请先...[ 查看全文 ]
一、通过FileExists判断文件是否存在 Dim MyFile As Object Set MyFile = CreateObject("Scripting.FileSystemObject") If MyFile.FileExists("E:dzwebsPiclogo.gif" ) = True Then MsgBox "文件存在" Else MsgBox "文件不存在" End If 以上代码在VBA环境下使用。或者将其制作成为宏也可以。"E:dzwebsPiclogo.gif"为文件路径及文件名称,可自行修...[ 查看全文 ]