SOS~~~~为什么我使用这样的调查代码。文件出不来？

[langya001]

5555555。。我在网上看别人的都可以用呀。为什么我在本机测试却无效~难道这语句有什么要求吗？

[cqq]

vote.asp

是怎么写的？ 应该用document.write输出

document.write("hello");

[班门弄斧]

你改为<!--#include file="vote.asp" -->试试看！

[班门弄斧]

我觉得你的问题应该出在vote.asp文件上，而不是调用的问题！

[langya001]

呀？我在vote.asp是用普通的ASP文件写的普通的html代码。。

[icefire988]

恩，就是vote.asp的问题了

[langya001]

<!--#include file这是在服务端执行吧。不能用

[班门弄斧]

<!--#include file.....>在客户端能用的！

[langya001]

Response.Write "document.write('<form action=save.asp?Sid="&numId&" method=post>');"
Set objQustion=Server.CreateObject("Adodb.Recordset")
objQustion.open "Select * from Vote_Qustion Where Sid Like "&numId&" order by sx",objConn,1,1 '查找调查问卷中问题表中与最大类别相同的所有问题
'循环输出记录集中的问题题目
Do While Not objQustion.Eof
Response.Write "document.write('<table width=95% border=1 align=center cellpadding=0 cellspacing=0 bordercolor=#DDDDDD>');"
Response.Write "document.write('<tr><td><strong>"&objQustion("title")&"</strong></td></tr>');"
Set objResult=Server.CreateObject("Adodb.Recordset")
'查找调查问卷中答案表中与问题表中问题题目ID相同的问题答案
objResult.open "Select * from Vote_Result Where Qid Like "&objQustion("Qid"),objConn,1,1
'开始根据问题类别显示答案
Response.Write "document.write('<tr><td class=formtext>');"
i=1
Do While Not objResult.Eof
Select Case objResult("type")
Case "1"
Response.Write "document.write('<input type=radio name="&objResult("Qid")&" value="&objResult("result")&">"&objResult("Result")&"');"
Case "2"
Response.Write "document.write('<input type=checkbox name="&objResult("Qid")&" value="&objResult("result")&">"&objResult("Result")&"');"
If objResult("result")="其他" Then Response.Write "document.write('<input type=text name="&objResult("Qid")&">');"
Case "3"
Response.Write objQustion("title")&"document.write(':<input type=text name="&objResult("Qid")&">');"
Case "4"
Response.Write objQustion("title")&"document.write(':<textarea name="&objResult("Qid")&"></textarea>');"
End Select

' i=1
' If objQustion("type")=1 Then '进行问题答案类型判断。1单选，2多选，3文本，4多行文本
' Response.Write "<input type='radio' name='"&objQustion("id")&"' value='"&objResult("Result")&"'>"&objResult("Result")&"</td>"
' if (i mod 2)=0 then Response.Write "<br />"
' i=i+1
' End If
objResult.MoveNext
Loop
Response.Write "document.write('</td></tr>');"
objQustion.MoveNext
Loop
Response.Write "document.write('<tr><td><input type=submit value=提 交 /> <input type=reset value=重 填 /></td></tr>');"
Response.Write "document.write('</table>');"
Response.Write "document.write('</form>');"
%>

-----------------------------------------------
上面是我的vote.asp的代码。大家帮忙看看吧