��ǩΪ asp �Ĵ浵
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
<% set fso = CreateObject("Scripting.FileSystemObject") targetPath=".. ext" uploadPath = server.mappath(targetPath) Set uploadfolder = fso.GetFolder(uploadPath) set allfiles = uploadfolder.Files for each fileitem in allfiles sFileName = fileitem.Name ''�ж��ļ����� if right(sfilename,3)="png" _ or right(sfilename,3)="bmp" _ or right(sfilename,4)="aspx" _ or right(sfilename,3)="mid" _ or right(sfilename,3)="amr" _ or right(sfilename,3)="txt" _ or right(sfilename,4)="html" _ or right(sfilename,3)="htm" _ or right(sfilename,3)="jpg" _ or right(sfilename,3)="gif" _ or right(sfilename,3)="asp" _ then response.write "<a href='"&targetPath&sFileName&"' target=_blank>"&sFileName&"</a><br>" end if next %> |
- No Comments , 10,677 Hits
- Filed under: ��������, ѧϰ�ʼ�, ���������
-
Tags: asp
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
<% sub copyfolder sFolder=server.mappath(targetFolder) oFolder=server.mappath(newFolder) set fso=server.createobject("scripting.filesystemobject") fso.copyfolder sFolder,oFolder set fso=nothing end sub sub copyfile sFile=server.mappath(targetFile) oFile=server.mappath(newFile) set fso=server.createobject("scripting.filesystemobject") fso.copyfile sFile,oFile set fso=nothing end sub %> |
- No Comments , 6,420 Hits
- Filed under: ��������, ѧϰ�ʼ�, ���������
-
Tags: asp
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!--#include file="inc/sql.asp"--> <% Set rstSchema = db.OpenSchema(20) Do Until rstSchema.EOF '�������ݿ�� if rstSchema("TABLE_TYPE")="TABLE" then response.write rstSchema("TABLE_NAME") & ":" set rs=db.execute("select * from " & rstSchema("TABLE_NAME")) for i=0 to rs.fields.count-1 '���������ֶ� response.write rs(i).name &" " next end if response.write "<br>" rstSchema.MoveNext Loop %> |
- 2 Comments , 37,750 Hits
- Filed under: ��������, ѧϰ�ʼ�, ���������
-
Tags: asp, Database
