' 从数据库读取数组内容
  　objRS.Open "Select * FROM " & SName & " ORDER BY ID", objConn
  　Do While Not objRS.EOF
  　 ' 转换问题与回答字符串以允许使用所有字符
  　 stemStr = Escape(objRS("Stem"))
  　 Response.Write("""" & objRS("ID") & objRS("IType") & _
  　 Left(objRS("NoOpinion"),1) & stemStr & """")
  　 objRS.MoveNext
  　 If Not objRS.EOF Then
  　 Response.Write(",")
  　 End If
  　Loop
  　objRS.Close
  　%>
  　);
  　var ansArray = new Array(
  　< %
  　' 从数据库读取数组内容
  　objRS.Open "Select * FROM " & AName & " ORDER BY ID, ALabel", objConn
  　Do While Not objRS.EOF
  　 ansStr = Escape(objRS("Answer"))
  　 Response.Write("""" & objRS("ID") & objRS("ALabel") & ansStr & """")
  　 objRS.MoveNext
  　 If Not objRS.EOF Then
  　 Response.Write(",")
  　 End If
  　Loop
  　objRS.Close
  　objConn.Close
  　%>
  　);
  　
  　// 初始化 
  　function initPoll() {
  　 writeMsgFrame('< HTML>< BODY BGCOLOR="#c0c0c0">' +
  　 '< CENTER>已经读取或创建调查项目"< %=PollName%>"' +
  　 '< /CENTER>< /BODY>< /HTML>');
  　 if (stemArray.length > 0) INumber = stemArray[0].substr(0,3);
  　 for (i=0; i< stemArray.length; i++) stemArray[i] = unescape(stemArray[i]);
  　 for (i=0; i< ansArray.length; i++) ansArray[i] = unescape(ansArray[i]);
  　 doNav("< "); // 显示第1个问题
  　} // initPoll() 
  

(编辑:aniston)