Question

一个VB初学者的问题

这个是用来统计WORD字数的，可是统计出的是所有字符，怎么才能只统计中文呢~~应该是只修改其中的几个东西就可以了
谢了~~

Dim oStory As Object, WordCount, WordChar As Long
Dim dhk As Dialog '定义对话框变量
Dim MainNumWords As Long ' 文档主体的字数
Dim MainNumChars As Long ' 文档主体的字符数
Application.ScreenUpdating = False '关闭屏幕刷新提高统计速度
For Each oStory In ActiveDocument.StoryRanges '遍历文档字符
WordCount = WordCount + oStory.ComputeStatistics(wdStatisticWords) '文档全部字数（含文本框中的）
WordChar = WordChar + oStory.ComputeStatistics(wdStatisticCharacters) '文档全部字符数（含文本框中的）
Do While Not (oStory.NextStoryRange Is Nothing) '同一组合内的下一个对象不空则继续统计
Set oStory = oStory.NextStoryRange
WordCount = WordCount + oStory.ComputeStatistics(wdStatisticWords) '累加上同一组合内字数
WordChar = WordChar + oStory.ComputeStatistics(wdStatisticCharacters) '累加上同一组合内字符数
Loop
Next oStory
Selection.HomeKey Unit:=wdStory '将所选内容移至文档开头
Set dhk = Dialogs(wdDialogToolsWordCount) '将dhk设置为"字数统计"对话框
dhk.Update
dhk.Execute
MainNumWords = dhk.Words '获得文档主体的字数
MainNumChars = dhk.Characters '获得文档主体的字符数

Answer 1

description The server encountered an internal error () that prevented it from fulfilling this request.

exception

org.apache.jasper.JasperException: Exception in JSP: /admin/questionmanager.jsp:143

140: </tr>
141: <%
142: sqlt2=conn.createStatement(); //---------
143: rsTmp = sqlt2.executeQuery("select count(*) as mycount from test_question_lib");
144: rsTmp.next();
145: int totalrecord = rsTmp.getInt("mycount");
146: if(totalrecord % PageSize == 0)

Stacktrace:
org.apache.jasper.servlet.JspServletWrapper.handleJspException(JspServletWrapper.java:504)
org.apache.jasper.servlet.JspServletWrapper.service(JspServletWrapper.java:375)
org.apache.jasper.servlet.JspServlet.serviceJspFile(JspServlet.java:314)
org.apache.jasper.servlet.JspServlet.service(JspServlet.java:264)
javax.servlet.http.HttpServlet.service(HttpServlet.java:802)

root cause

javax.servlet.ServletException: [Microsoft][ODBC SQL Server Driver]连接占线导致另一个 hstmt
org.apache.jasper.runtime.PageContextImpl.doHandlePageException(PageContextImpl.java:858)
org.apache.jasper.runtime.PageContextImpl.handlePageException(PageContextImpl.java:791)
org.apache.jsp.admin.questionmanager_jsp._jspService(questionmanager_jsp.java:323)
org.apache.jasper.runtime.HttpJspBase.service(HttpJspBase.java:97)
javax.servlet.http.HttpServlet.service(HttpServlet.java:802)
org.apache.jasper.servlet.JspServletWrapper.service(JspServletWrapper.java:332)
org.apache.jasper.servlet.JspServlet.serviceJspFile(JspServlet.java:314)
org.apache.jasper.servlet.JspServlet.service(JspServlet.java:264)
javax.servlet.http.HttpServlet.service(HttpServlet.java:802)

root cause

java.sql.SQLException: [Microsoft][ODBC SQL Server Driver]连接占线导致另一个 hstmt
sun.jdbc.odbc.JdbcOdbc.createSQLException(JdbcOdbc.java:6958)
sun.jdbc.odbc.JdbcOdbc.standardError(JdbcOdbc.java:7115)
sun.jdbc.odbc.JdbcOdbc.SQLExecDirect(JdbcOdbc.java:3111)
sun.jdbc.odbc.JdbcOdbcStatement.execute(JdbcOdbcStatement.java:338)
sun.jdbc.odbc.JdbcOdbcStatement.executeQuery(JdbcOdbcStatement.java:253)
org.apache.jsp.admin.questionmanager_jsp._jspService(questionmanager_jsp.java:249)
org.apache.jasper.runtime.HttpJspBase.service(HttpJspBase.java:97)
javax.servlet.http.HttpServlet.service(HttpServlet.java:802)
org.apache.jasper.servlet.JspServletWrapper.service(JspServletWrapper.java:332)
org.apache.jasper.servlet.JspServlet.serviceJspFile(JspServlet.java:314)
org.apache.jasper.servlet.JspServlet.service(JspServlet.java:264)
javax.servlet.http.HttpServlet.service(HttpServlet.java:802)
问题补充：我的代码：
<%
Connection conn = dataBean.getConn();
Statement sqlt1;
Statement sqlt2;
if(conn!=null){
sqlt1=conn.createStatement();
try{
rs = sqlt1.executeQuery("select * from test_classinfo");
}catch(Exception e){
out.println("访问课程信息数据出错！");
return;
}
if(!rs.next())
{
out.println("系统数据库中无课程信息数据！");
return;
}
do{
ht.put(rs.getString("classid"),rs.getString("classname"));
}while(rs.next());
try{
rs = sqlt1.executeQuery("select * from test_question_lib order by questionid");
}catch(Exception e){
out.println("访问题库信息出错！");
return;
}
%>
<%
sqlt2=conn.createStatement();
rsTmp = sqlt2.executeQuery("select count(*) as mycount from test_question_lib");
rsTmp.next();
……
rsTmp.close();
……