1.å¦ä½ä¸ä¼ å¾ç
2.网站源代码怎么用?网页文件易语言 游戏源码
å¦ä½ä¸ä¼ å¾ç
<!--#include file="upload.asp"-->
<%
const upload_type=0 'ä¸ä¼ æ¹æ³ï¼0=æ æ§æ ç»ä»¶ä¸ä¼ ç±»ï¼1=FSOä¸ä¼ 2=lyfuploadï¼3=aspuploadï¼4=chinaaspupload
dim upload,file,formName,SavePath,filename,fileExt
dim upNum
dim EnableUpload
dim Forumupload
dim ranNum
dim uploadfiletype
dim msg,founderr
msg=""
founderr=false
EnableUpload=false
SavePath = "../DateBasc/" 'åæ¾ä¸ä¼ æ件çç®å½
if right(SavePath,1)<>"/" then SavePath=SavePath&"/" 'å¨ç®å½åå (/)
%>
<html>
<head>
<meta .com
'ç½ç«:.com
'åä½è :稻é¦èå
'åä½è ç½ç«:
'声æ:æ¤ä¸ä¼ ç±»æ¯å¨åå¢ç¼ç¨çåå¸çæ ç»ä»¶ä¸ä¼ ç±»çåºç¡ä¸ä¿®æ¹ç.
'å¨ä¸åå¢ç¼ç¨çæ ç»ä»¶ä¸ä¼ ç±»ç¸æ¯,é度快äºå°è¿å,å½ä¸ä¼ 4M大å°çæ件æ¶
'æå¡å¨åªéè¦ç§å°±å¯ä»¥å¤çå®,æ¯ç®åæå¿«çæ ç»ä»¶ä¸ä¼ ç¨åº,å½åçæ¬ä¸º0.
'æºä»£ç å ¬å¼,å 费使ç¨,对äºåä¸ç¨é,请ä¸ä½è èç³»
'æ件å±æ§ï¼ä¾å¦ä¸ä¼ æ件为c:\myfile\doc.txt
'FileName æ件å å符串 "doc.txt"
'FileSize æä»¶å¤§å° æ°å¼
'FileType æ件类å å符串 "text/plain"
'FileExt æ件æ©å±å å符串 "txt"
'FilePath æ件åè·¯å¾ å符串 "c:\myfile"
'使ç¨æ¶æ³¨æäºé¡¹:
'ç±äºScripting.Dictionaryåºå大å°å,æ以å¨ç½é¡µåASP页ç项ç®åé½è¦ç¸åç大å°
'å,å¦æäººä¹ æ¯ç¨å¤§åæå°å,为äºé²æ¢åºéçè¯,å¯ä»¥æ
'sFormName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
'æ¹ä¸º
'(å°åè )sFormName = LCase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
'(大åè )sFormName = UCase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
'