fm_include.asp

燃点真情的WAP整站程序,WAP建站系统,,更多WAP源码再登陆http://xywap.cn

<%
Sub EditDb
On error resume next
  If fs.FileExists(server.mappath(dbfile)) Then
	  Response.Write "创建成功"
  Else
	  Response.Write "No database found" &vbCrLf
	End If
End Sub

Sub CreateNewFolder
On error resume next
%>
<b>创建文件夹</b><br/>
当前文件夹: <%=spath%><br/>
<input name='logo<%=minute(now)%><%=second(now)%>' title='文件夹名' value='<%=ubb(rs("logo"))%>'/><br/>
<anchor>[在当前文件夹创建]<go href='<%=scriptname%>?action=newfolder&amp;path=<%=sPath%>&amp;sid=<%=sid%>' method='post' accept-charset='utf-8'>
<postfield name='folder' value='$(logo<%=minute(now)%><%=second(now)%>)'/>
</go></anchor>
<%

End Sub

Sub EditFile
On error resume next
'文件内容查看组件测试通过
  Session("lastpage") = Request.ServerVariables("HTTP_REFERER")
  Set ReadStream = fs.OpenTextFile(server.mappath(sFile))
  filename=request.querystring("file")
  response.write ("<br/>")  
  Response.write "查看当前文件: "
  response.write "文件名:<b>"&filename&"</b>"
  response.write "<br/>"
  Response.Write "文件内容<input name='newfilestuff"&minute(now)&second(now)&"' value='" & ubb(ReadStream.ReadAll) & "'/>"

Response.Write "<br/><anchor>[编辑文件]<go href='?action=savefile&amp;path=" & sPath & "&amp;file=" & Request.Querystring("File") & "&amp;overwrite=yes&amp;sid="&sid&"' method='post' accept-charset='utf-8'><postfield name='filestuff' value='$(newfilestuff"&minute(now)&second(now)&")'/><postfield name='reset' value='$(reset"&minute(now)&")'/></go></anchor><br/>"
End Sub


Sub UploadFiles
On error resume next
%>
<br/>当前文件夹:<b> <%=spath%></b><br/>
<input type="file" name="FILE1<%=minute(now)%><%=second(now)%>" size="16"/><br/>
<input type="file" name="FILE2<%=minute(now)%><%=second(now)%>" size="16"/><br/>
<input type="file" name="FILE3<%=minute(now)%><%=second(now)%>" size="16"/><br/>
<input type="file" name="FILE4<%=minute(now)%><%=second(now)%>" size="16"/><br/>
<input type="file" name="FILE5<%=minute(now)%><%=second(now)%>" size="16"/><br/>
<input type="file" name="FILE6<%=minute(now)%><%=second(now)%>" size="16"/><br/>
<input type="file" name="FILE7<%=minute(now)%><%=second(now)%>" size="16"/><br/>
<input type="file" name="FILE8<%=minute(now)%><%=second(now)%>" size="16"/><br/>
<input type="file" name="FILE9<%=minute(now)%><%=second(now)%>" size="16"/><br/>
<input type="file" name="FILE10<%=minute(now)%><%=second(now)%>" size="16"/><br/>
<anchor>[往当前文件夹上传资料]<go href='upload.asp?sid=<%=sid%>' method='post' accept-charset='utf-8'>
<postfield name='FILE1' value='$(FILE1<%=minute(now)%><%=second(now)%>)'/>
<postfield name='FILE2' value='$(FILE2<%=minute(now)%><%=second(now)%>)'/>
<postfield name='FILE3' value='$(FILE3<%=minute(now)%><%=second(now)%>)'/>
<postfield name='FILE4' value='$(FILE4<%=minute(now)%><%=second(now)%>)'/>
<postfield name='FILE5' value='$(FILE5<%=minute(now)%><%=second(now)%>)'/>
<postfield name='FILE6' value='$(FILE6<%=minute(now)%><%=second(now)%>)'/>
<postfield name='FILE7' value='$(FILE7<%=minute(now)%><%=second(now)%>)'/>
<postfield name='FILE8' value='$(FILE8<%=minute(now)%><%=second(now)%>)'/>
<postfield name='FILE9' value='$(FILE9<%=minute(now)%><%=second(now)%>)'/>
<postfield name='FILE10' value='$(FILE10<%=minute(now)%><%=second(now)%>)'/>
</go></anchor><br/>
<%
End Sub



Sub CreateFile
On error resume next
response.write "需要完整的WML代码，否则会出错！<br/><b>创建新文件[wml]</b><br/>"
Session("lastpage") = Request.ServerVariables("HTTP_REFERER") 
Response.Write "<input name='file"&minute(now)&"' value=''/>给文件取名（.wml前的名称）<br/>"
Response.Write "文件内容<br/><input name='newfilestuff"&minute(now)&"' value=''/>"
Response.Write "<br/><anchor>[创建文件]<go href='" & scriptname & "?action=savefile&amp;path=" & sPath & "&amp;sid="&sid&"' method='post' accept-charset='utf-8'><postfield name='file' value='$(file"&minute(now)&")'/><postfield name='newfilestuff' value='$(newfilestuff"&minute(now)&")'/></go></anchor><br/>建议使用源码查看器复制代码"

End Sub

Sub SaveFile
On error resume next
  '' the save as a new file routine
  if request.form("NewFileName")<>"" then
  NewFileName=request.form("NewFileName")
  spath=request("path")
    if spath="/" then slashvalue="" else slashvalue="/" end if
  filestuff=request.form("filestuff")
  NewPathFileName= spath&slashvalue&newfilename''creating the right path and filename
    Set fso = CreateObject("Scripting.FileSystemObject")
	Set textStreamObject = fso.CreateTextFile(server.mappath(NewPathFileName),true,false)
	textStreamObject.write filestuff
  Response.write "建立文件成功1"
  else
  If Request.Querystring("overwrite") = "yes" Then
    set fs=Server.CreateObject("Scripting.FileSystemObject")
	Set WriteFile = fs.CreateTextFile(server.mappath(sFile), true)
	WriteFile.Write Request.Form("filestuff")''filestuff''Session("filestuff")
    WriteFile.Close
  Response.write "编辑文件成功"
	
  Else
	Session("lastpage") = Request.ServerVariables("HTTP_Referer")
    If fs.FileExists(server.mappath(sFile)) Then
      Session("sFile") = sFile
	  spath=request.querystring("path")
      Session("newfilestuff") = Request.Form("newfilestuff")
      Response.Write "<br/>Filename already exists:  <b>" & sFile & "</b> "
      Response.Write "<a href=""" & scriptname & "?action=savenewfile&amp;overwrite=yes"">Replace existing file?</a>"
      ' We don't want to lose the information that the typed in the previous form if they decide NOT to overwrite the existing file,
	  ' so we provide a javascript link back that works exactly the same as the browser's back button.
Response.Write "<a href=""javascript:history.back()"">Back to the previous page</a>"
      Response.Write ""
    Else 
      Set WriteFile = fs.CreateTextFile(server.mappath(sFile), false)
      WriteFile.Write Request.Form("newfilestuff")
      WriteFile.Close
  Response.write "建立文件成功"
    End If
  End If
  end if
End Sub

Sub CreateFolder
On error resume next
 
 Session("lastpage") = request.querystring("path")
 If fs.FolderExists(server.mappath(sFolder)) Then 
   response.write "A folder with the name <b>" & sFolder & "</b> already exists<br/>"  
 Else
   fs.CreateFolder(server.mappath(sFolder))
response.redirect("fileman?action=viewfolder&amp;path="&session("lastpage")&"&amp;sid="&sid&"")


 End If
End Sub

Sub DeleteFile
On error resume next
	response.write"<br/>"
  If Request.Querystring("commit") <> "yes" Then
    Session("lastpage") = Request.ServerVariables("HTTP_REFERER")
    Session("sFile") = sFile
    Response.Write "你即将删除的文件是:  " & sFile & ". " 
    If sFileType = "jpg" OR sFileType = "gif" Then
      Response.Write "<img src=""http://" & Request.ServerVariables("HTTP_HOST") & sfile & """/>"
    End If
    Response.Write "<br/><b>注意：删除后将不可恢复！</b><br/>"
    Response.Write "<a href=""" & scriptname & "?action=deletefile&amp;sid="&sid&"&amp;path=" & sPath & "&amp;file=" & sFile & "&amp;commit=yes"">确认</a>"
    Response.Write "|<a href='fileman.asp?action=viewfolder&amp;path="&request.querystring("path")&"&amp;sid="&sid&"'>停止</a>"
  Else
    fs.DeleteFile(server.mappath(Session("sFile")))
    Response.Redirect("" & Session("lastpage") & "")
    Response.Write "删除成功"
  End If
End Sub

Sub DeleteFolder
On error resume next
	response.write"<br/>"
  If Request.Querystring("commit") <> "yes" Then 
    Session("lastpage") = Request.ServerVariables("HTTP_REFERER")
    Session("sFolder") = sFolder
    Response.Write "文件夹: " & sFolder & ". " 
    Response.Write "<br/><b>删除后不可以恢复!</b>"
    Response.Write "<br/><a href=""" & scriptname & "?action=deletefolder&amp;path=" & sPath & "&amp;sid="&sid&"&amp;folder=" & sFolder &  "&amp;commit=yes"">确认</a>|"
    Response.Write "停止"
  Else
    Response.Write sPath & "<br/>"
    Response.Write sFile & "<br/>"
    Response.Write "删除成功!"
    fs.DeleteFolder(server.mappath(Session("sFolder")))
    Response.Redirect("" & Session("lastpage") & "")
  End If
End Sub

Sub RenameFolder

On error resume next
	response.write"<br/>"