|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。word|服务器本文会商的成绩与以下方面相干:
MicrosoftWord97forWindows
MicrosoftVisualInterDev,version6.0
MicrosoftInternetInformationServerversion4.0
提要
本文形貌了怎样利用MicrosoftWord在Web页面ASP文件中增加拼写反省功效。
具体的步骤
依照以下步骤创建ASP使用程序:
1、在Web服务器地点呆板上,启动MicrosoftVisualInterdev6.0,选择File/NewProject。
2、在“新工程”对话框的名字编纂域中,输出“WebSpell”,然后双击新Web工程图标。
3、在接着呈现的Web工程导游对话框中,输出大概选择你的Web服务器名字。将事情形式默许为Master,点击Next,再点击
“finish”。
4、在VisualInterDev创立工程完成后,翻开工程菜单,选择“增加WebItemHTML页面”,定名为“CheckSpelling”,
然后点击Open。
5、增加的HTML页面默许形态下以计划视图翻开。在页面上拖出一个HTML文本地区,安排一个HTML提交按钮,依据你的喜好
举行结构,在页面上输出一些笔墨,告知用户在文本域中输出必要举行拼写反省的笔墨。
6、选择页面上的一切工具(CTRL+A),然后从VisualInterDev的HTML菜单当选择Form,将工具包裹在表单中。
7、点击以后窗口底部的源码功效页面,切换到源码显现视图。修正HTML开放<FORM>标志的action属性值为
results.asp。
8、翻开Project菜单,选择“增加WebItemActiveServerPage”,定名为“results”,然后点击“Open”。
9、关于新页面,切换到源码视图,在<BODY>标志之间输出上面的代码:
<!--Pageheader-->
<p><center><fontsize=+4color=red>SpellingResults</font></center><hr>
<!--Showuserthetexttheyentered-->
<p>Thetextyouenteredwas:<p>
<fontcolor=blue><%=Request("TEXTAREA1")%></font><p><hr><p>
<!--Beginserver-sidescripttocheckspellingerrors-->
<%
Dontallowothersessionstore-enter:)
dowhile(Application("WordInUse")=1)
loop
Application("WordInUse")=1
GetWordreferencescreatedinglobal.asa.
dimwdApp
setwdApp=Application("WordApp")
dimwdDoc
setwdDoc=Application("WordDoc")
Clearcurrentcontents.
dimwdRange
setwdRange=wdApp.Selection.Range
wdRange.WholeStory
wdRange.Delete
setwdRange=Nothing
Addthetextthewebuserentered.
dimtxt
txt=Request("TEXTAREA1")
wdApp.Selection.TypeTextCStr(txt)
Checkspellingwithoutprompting.
wdDoc.CheckSpelling,,0
Getspellingerrorscollection.
dimwdErrors
setwdErrors=wdDoc.SpellingErrors
%>
<%Handleno-errorcondition.
ifwdErrors.Count=0then
%>
Therewerenospellingerrors.
<%
Otherwisebuildatableofsuggestions.
else
%>
<!--Buildatabletoshowerrors&suggestions-->
<fontcolor=red>Therewere<%=wdErrors.Count%>spellingerror(s).</font><p>
<TABLEborder=1cellPadding=1cellSpacing=1width=75%>
<TR>
<TD><b><fontsize=+1>Word</font></b></TD>
<TD><b><fontsize=+1>Suggestions</font></b></TD></TR>
<%
foreachwdErrorinwdErrors
Writethewordinquestion.
Response.Write("<TR><TD>")
Response.Write(wdError.Text)
Response.Write("</TD><TD>")
Getspellingsuggestionsforit.
dimwdSuggestions
setwdSuggestions=wdApp.GetSpellingSuggestions(wdError.Text)
ifwdSuggestions.Count0then
acomma-separatedlistofsuggestions.
dimstrSuggestions
strSuggestions=","
foreachwdSuggestioninwdSuggestions
strSuggestions=strSuggestions&wdSuggestion.Name&","
next
Removeextracomma&space.
strSuggestions=Right(strSuggestions,len(strSuggestions)-2)
Writeoutsuggestions.
Response.Write(strSuggestions)
else
Response.Write("None.")
endif
setwdSuggestions=Nothing
Response.Write("</TD></TR>")
</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。 |
|