📄 wenjuan.asp
字号:
<!--#include file="tools.asp"-->
<HTML><HEAD><TITLE>网上问卷</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="images/zzz.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript>
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</SCRIPT>
<META content="MSHTML 6.00.2462.0" name=GENERATOR></HEAD>
<BODY text=#000000 background=images/bg3.gif>
<%
if trim(Request.Form("b1"))="送 出" then
vid=trim(Request.form("vid"))
r1=trim(Request.form("r1"))
strsql="select * from tblvotes where vid=" & vid & " and vtitle=" & sqlstr(r1)
set rsd=server.CreateObject("adodb.recordset")
rsd.Open strsql,conn
if rsd.EOF and rsd.BOF then
strsql="insert tblvotes (vid,vtitle) values (" & vid & "," & sqlstr(r1) & ")"
conn.execute(strsql)
else
strsql="update tblvotes set vnum=vnum+1 where vid=" & vid & " and vtitle=" & sqlstr(r1)
conn.execute(strsql)
end if
end if
%>
<FORM name=form2 action="#" method=post>
<TABLE class=zzz cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD colSpan=4>我们的网站刚刚成立，您认为在以下哪些方面我们需要更加努力：</TD></TR>
<TR>
<TD align=right width="10%"><INPUT type=radio CHECKED value="行业新闻" name=r1> </TD>
<TD width="40%">行业新闻</TD>
<TD align=right width="10%"><INPUT type=radio value="房源信息" name=r1> </TD>
<TD width="40%">房源信息</TD></TR>
<TR>
<TD align=right width="10%"><INPUT type=radio value="房屋中介" name=r1> </TD>
<TD width="40%">房屋中介</TD>
<TD align=right width="10%"><INPUT type=radio value="行业政策" name=r1> </TD>
<TD width="40%">行业政策</TD></TR>
<TR>
<TD align=right width="10%"><INPUT type=radio value="家居装潢" name=r1> </TD>
<TD width="40%">家居装潢</TD>
<TD align=right width="10%"></TD>
<TD width="40%"></TD></TR>
<TR align=middle>
<input type="hidden" name="vtitle" value="我们的网站刚刚成立，您认为在以下哪些方面我们需要更加努力：">
<input type="hidden" name="vid" value="1">
<TD colSpan=4><INPUT class=box1 type=submit value="送 出" name=b1 onClick="window.open('viewvote.asp?vid=1&vtitle=我们的网站刚刚成立，您认为在以下哪些方面我们需要更加努力','','resizable=1,scrollbars=yes,width=480,height=250');">
<INPUT class=box1 onClick="window.open('viewvote.asp?vid=1&vtitle=我们的网站刚刚成立，您认为在以下哪些方面我们需要更加努力','','resizable=1,scrollbars=yes,width=480,height=250');" type=button value=查看结果 name=b2>
</TD></TR></TBODY></TABLE></FORM></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -