使用说明:
1.后台登录地址在 manage/login.asp 默认的管理员帐号yuanlf和密码2911575
2.然后添加一个问卷,并设置相关信息,
3.为问卷添加相关题目
4.在问卷列表中点击“生成”,可以查看到您建立的问卷
5.点击“结果” 可以查看问卷调查结果,分为概况统计、数据统计、参与统计。
<%
'=========================================================
'本调查问卷系统您可以免费的使用,但是无论用于任何目的,您都不应该删除此版权说明,谢谢!
'在未成为商业客户之前,我们不会对免费客户提供技术支持。本文来自优.文~论^文·网原文请找腾讯32491.14
'=========================================================
%>
<!-- #include file="Inc/conn.asp" -->
<!-- #include file="Inc/form.asp" -->
<%
Sub get1()
Response.Write("<input name='"&v&"' type='text' value='' />")
End Sub
Sub get3()
Response.Write("<ul>")
ar=Split(rs("a"),"|")
rr=Split(rs("r"),"|")论文网http://www.youerw.com/
for i=0 to 2
Response.Write("<li><input type='radio' name='"&v&"' value='"&i&"' />"&ar(i)&"</li>")
next
Response.Write("</ul>")
End Sub
q=Request.QueryString("q")
if q="" or not isnumeric(q) then
Response.Write("<script>alert('参数错误!');</script>")
Response.End()
end if
sql="SELECT * FROM zm_question where id="&q
Set rs=Server.CreateObject("ADODB.RECORDSET")
rs.Open sql,conn,1,1
if rs.eof then
Response.Write("<script>alert('未知的调查问卷!');</script>")
Response.End()
end if
name=rs("name")
info=Replace(rs("info"),chr(13),"<br />")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=name%></title>
<link href="css.css" rel="stylesheet" type="text/css" />
</head>
<body>
<form id="form1" name="form1" method="post" action="vote_do.asp">
<div id="contianer">
<div id="title"><%=name%></div>
<div id="info"><%=info%></div>
<!--************************************************以下内容请不要编辑************************************************-->
<%
sql="select * from Zm_List where qid="&q&" order by id asc"2373