 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
这个函数可以利用MS Word来检查拼写错误，当然只对E文有效， 假如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> 返回类别: 教程 上一教程: 用ASP+实现一个简朴的计算器(适合入门者) 下一教程: 用ASP学做一个在线调查 您可以阅读与"一个检查E文拼写错误的CODE"相关的教程: · REMOTE SCRIPTING进阶教程-检查错误 · 浅谈ASP编程中的测试打印、有效性检查及错误处理 · 关于ASP访问ACCESS数据的错误的探讨 · 出现404页面错误的自动发送邮件的代码 · 一个检测一个字符串在另一个字符串当中出现几次的函数 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
