繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个检查E文拼写错误的Code
- ASP
- 无刷新随时取得用户当前活动信息
- 编写一个asp代码执行器
- 利用XSL和ASP在线编辑XML文档
- ASP应用:用stream读文件
- 如何用Asp动态生成xml文件
- 实例演练ASP+XML编程(1)
- 实例演练ASP+XML编程(2)
- 实例演练ASP+XML编程(3)
- 实例演练ASP+XML编程(4)
- 用文件写入建立简单的网上调查
- 轻松打造ASP计数器
- 用纯ASP代码实现图片上传
- “在线访客”的制作方法
- 如何开发基于ASP的FLASH MX在线图象浏览器
- ASP图形计数器设计详解
- ASP+VML+DB实现投票统计项目
- ASP中DLL的调试环境配置全攻略
- 一个实用的FSO-实时统计在线人数
- ASP实现语音分时问候
- 利用ASP打造网站论坛DIY
ASP 中的 一个检查E文拼写错误的Code
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 91 ::
收藏到网摘: n/a
如果Microsoft在中关村我想它对中文肯定是可以的。
<HTML>
<HEAD>
<TITLE> Spell checker</TITLE>
<SCRIPT LANGUAGE=vbscript>
<!--
Function SpellChecker(TextValue)
Dim objWordobject
Dim objDocobject
Set objWordobject = CreateObject("word.Application")
objWordobject.WindowState = 2
objWordobject.Visible = True
Set objDocobject = objWordobject.Documents.Add( , , 1, True)
objDocobject.Content=TextValue
objDocobject.CheckSpelling
SpellChecker = objDocobject.Content
objDocobject.Close false
Set objDocobject = Nothing
objWordobject.Application.Quit True
Set objWordobject= Nothing
End Function
Sub cmdOk_onclick()
Dim strValue
strValue = frmDemo.txtEditor.value
frmDemo.txtEditor.value = SpellChecker(strValue)
Msgbox "原文是 :" & strValue
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<FORM action="" method=post id=frmDemo name=frmDemo>
<P><TEXTAREA id=txtEditor style="WIDTH: 665px; HEIGHT: 217px" name=txtEditor rows=11 cols=73></TEXTAREA>
</P>
<input name=cmdOk value=Ok onclick="cmdOk_onclick" type=button>
</Form>
</Body>
</HTML>
评论 (0) All
