仓酷云

标题: ASP网站制作之ASP之在服务器端创立快速体例例子之微软... [打印本页]

作者: 只想知道 时间: 2015-1-16 22:45
标题: ASP网站制作之ASP之在服务器端创立快速体例例子之微软...
使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。创立|服务器|快速体例|微软微软给了我们一个创立快速体例的例子，但假如间接用在ASP中会提醒存在一个毛病。
例子原码以下（VBscript格局）：
WindowsScriptHostSampleScript

------------------------------------------------------------------------
Copyright(C)1996-1997MicrosoftCorporation

Youhavearoyalty-freerighttouse,modify,reproduceanddistribute
theSampleApplicationFiles(and/oranymodifiedversion)inanyway
youfinduseful,providedthatyouagreethatMicrosofthasnowarranty,
obligationsorliabilityforanySampleApplicationFiles.
------------------------------------------------------------------------

ThissampledemonstrateshowtousetheWSHShellobjecttocreateashortcut
onthedesktop.

L_Welcome_MsgBox_Message_Text="此剧本将在您的桌面上创立Notepad的快速体例。"
L_Welcome_MsgBox_Title_Text="WindowsScriptingHost典范"
CallWelcome()

********************************************************************************
*
*Shortcutrelatedmethods.
*

DimWSHShell
SetWSHShell=WScript.CreateObject("WScript.Shell")

注重下面这一句，不知是写错了仍是微软能使其运转，归正我一运转就提醒没有工具。我将之改成了:SetWSHShell=server.CreateObject("WScript.Shell")

DimMyShortcut,MyDesktop,DesktopPath

ReaddesktoppathusingWshSpecialFoldersobject
DesktopPath=WSHShell.SpecialFolders("Desktop")

Createashortcutobjectonthedesktop
SetMyShortcut=WSHShell.CreateShortcut(DesktopPath&"
otepad的快速体例.lnk")

Setshortcutobjectpropertiesandsaveit
MyShortcut.TargetPath=WSHShell.ExpandEnvironmentStrings("%windir%
otepad.exe")
MyShortcut.WorkingDirectory=WSHShell.ExpandEnvironmentStrings("%windir%")
MyShortcut.WindowStyle=4
MyShortcut.IconLocation=WSHShell.ExpandEnvironmentStrings("%windir%
otepad.exe,0")
MyShortcut.Save

WScript.Echo"在桌面上已存在Notepad的快速体例。"

********************************************************************************
*
*Welcome
*
SubWelcome()
DimintDoIt

intDoIt=MsgBox(L_Welcome_MsgBox_Message_Text,_
vbOKCancel+vbInformation,_
L_Welcome_MsgBox_Title_Text)
IfintDoIt=vbCancelThen
WScript.Quit
EndIf
EndSub

上面是我改革后用在ASP中的。
<%L_Welcome_MsgBox_Message_Text="此剧本将在您的桌面上创立Notepad的快速体例。"
L_Welcome_MsgBox_Title_Text="WindowsScriptingHost典范"
response.writeL_Welcome_MsgBox_Message_Text
DimWSHShell
SetWSHShell=server.CreateObject("WScript.Shell")
DimMyShortcut,MyDesktop,DesktopPath
DesktopPath=WSHShell.SpecialFolders("Desktop")
SetMyShortcut=WSHShell.CreateShortcut(DesktopPath&"
otepad的快速体例.lnk")
MyShortcut.TargetPath=WSHShell.ExpandEnvironmentStrings("%windir%
otepad.exe")
MyShortcut.WorkingDirectory=WSHShell.ExpandEnvironmentStrings("%windir%")
MyShortcut.WindowStyle=4
MyShortcut.IconLocation=WSHShell.ExpandEnvironmentStrings("%windir%
otepad.exe,0")
MyShortcut.Save
response.write"<BR>快速体例创立终了！"
%>

已在我的NT4上测试经由过程。
</p>ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。

作者: 精灵巫婆 时间: 2015-1-19 23:03
学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

作者: 兰色精灵 时间: 2015-1-25 19:46
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

作者: 飘飘悠悠 时间: 2015-2-3 18:47
完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

作者: 不帅 时间: 2015-2-9 04:25
以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

作者: 谁可相欹 时间: 2015-2-26 22:13
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作者: 金色的骷髅 时间: 2015-3-8 18:17
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 小妖女 时间: 2015-3-16 10:32
代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

作者: admin 时间: 2015-3-22 22:10
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

欢迎光临仓酷云 (http://ckuyun.com/)