📄 text.asp

📁 一套asp办公小软件

💻 ASP

字号:

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<object RUNAT="Server" ID="Conn" PROGID="ADODB.Connection">
</object>
<object RUNAT="Server" ID="Connn" PROGID="ADODB.Recordset">
</object>
<%    Dim objFSO1
      DelPicName="winter.jpg"
		Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject")
 aa=Server.mappath("/bangong/wj/xiangmwj/text")
 aa1="d:\wjfj\test"
response.write(aa)
'response.end
if objFSO1.FolderExists(aa) then
'response.write("olk")
else

'objFSO1.CreateFolder(aa)
end if

		'set  fd= objFSO1.getfolder("d:\wjfj\xiangmwj")
	' response.end
	
        'For Each thing in fd.Files
       ' response.write(len(thing))
        'response.write(len(fd))
       ' response.write(right(thing,(len(thing)-len(fd)-1))&"<p>")
      '   Response.Write("<p>"&thing)
        ' Next

      '  response.write(fd)
      '  response.end
		
		If objFSO1.FileExists(Server.MapPath("\wjfj\"&DelPicName)) Then

			'objFSO1.DeleteFile Server.MapPath("/sj/"&DelPicName),True
			response.write("ok")

		ELSE
            response.write(Server.MapPath("\wjfj\"&DelPicName))
			Response.Write DelPicName & "文件不存在"

		END IF
       ' objFSO1.DeleteFolder Server.MapPath("/sj/text1"),True

		Set objFSO1 = Nothing
	   
%>
<p>
<img border="0" src="wjfj/xiangmwj/xiangmwj/xiangmwjp1.jpg" width="130" height="90"></p>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -