[IEDOS]Asp写的Dos命令解释器。。。

作者在 2007-04-12 16:52:00 发布以下内容

部分代码摘录：完整代码可以在这里下载。。。

点击下载源代码 : UploadFiles/2007-4/412883060.rar

====================================================

运行的效果图如下：

======================================================

<% REM 这段脚本属于 IE DOS 项目 %>

<% REM 所有支持的命令都以函数的形式定义在 allcmd.asp 中 %>
<%
REM 由于本人对DOS念念不忘,所以希望在技术日新月异的网络世界中
REM 也能见到DOS的身影,于是这个小东东就诞生了.
REM 这是我用宿舍的机器做的,那台机器很有年头了,
REM 是奔腾166MHZ的,但我非常珍惜它,因为它是我到大学以后,
REM 我的恩师送给我学习汇编语言用的,我为它安装了
REM DOS和WINME两个系统,我用它,学习C++ , BASIC 和网络编程,
REM 我会珍惜从这台机器上诞生的每一句代码,
REM 不管是BASIC , C++ , 还是其它脚本 ......
%>
<%
dim curpath
dim usercmd ,cmdparame
dim finalresult
dim index

curpath = trim(Request.Form.Item("currentpath"))
usercmd = LCase( trim(Request.Form.Item("CMD")))
if (curpath = "") then
  usercmd = ""
else
  index = instr(1 ,usercmd ," ")
  if (index > 0 )then
   cmdparame = trim(right(usercmd ,len(usercmd) - (index - 1)))
   usercmd = left(usercmd , index - 1)
  else
   cmdparame = curpath
  end if
end if

select case (usercmd)
  case "":
   curpath = trim(server.MapPath("./"))
   finalresult = "Use the command < HELP > to get more infomation about this system ..." REM 可以考虑把这个作成一个关于这些命令的帮助哈
   finalresult ="<table bgcolor=#1968ef border=0 width=100% CELLSPACING=0 CELLPADDING=0 >" & _
       "<tr height=10></tr>" & _
       "<tr border=0><td bgcolor=#1968ef><FONT face=System color=#ffd700>" & _
       finalresult & _
       "</font></td></tr><tr height=10></tr></table>"

  case "help":
   finalresult = help_CMD()

  case "dir":
   finalresult = cd_CMD (curpath, cmdparame)
   finalresult = dir_CMD(finalresult)

  case "cd":
   finalresult = cd_CMD(curpath , cmdparame)
   if (finalresult <> "") then
    curpath = finalresult
    finalresult = "Command Successful ！！！<br>Current path is ：" & curpath
   else
    finalresult = "Command Failed ！！！<br>The destined path is not incorrect ！！！"
   end if

   finalresult = "<table width=100% bgcolor=#1968ef><tr height=10></tr>" & _
       "<tr><td><FONT face=System color=#ffd700>" & finalresult & "</font></td></tr>" & _
       "<tr height=10></tr></table>"

  case "type":
   'finalresult = server.MapPath("..\test.asp")
   finalresult = type_CMD(curpath , cmdparame)

  case else:
   finalresult = "目前还不支持这个命令！！！<br>" & _
    &n

[IEDOS]Asp写的Dos命令解释器 。。。