📄 diaocha2.asp
字号:
<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="../ADOVBS.INc" -->
<%
id=request("id")
if (len(request("yj"))<>0 and len(request("yj"))>150) then
response.write "对不起,您输入的内容太长!"
end if
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString")
set rs1=server.createobject("adodb.recordset")
rs1.LockType=adLockOptimistic
sqlstr="select * from diaoc1 where id='"& id &"'order by tm desc "
rs1.open sqlstr,conn
if (not rs1.eof) then
select case request("slt")
case "db1"
sqlup="update diaoc1 set db01=db01+1 where id='"& id&"'"
case "db2"
sqlup="update diaoc1 set db02=db02+1 where id='"& id&"'"
case "db3"
sqlup="update diaoc1 set db03=db03+1 where id='"& id&"'"
case "db4"
sqlup="update diaoc1 set db04=db04+1 where id='"& id&"'"
end select
conn.execute sqlup
total=rs1("db01")+rs1("db02")+rs1("db03")+rs1("db04")
yj=request("yj")
if yj<>"" then
sqlstr2="insert into diaoc2 (id,yj,riqi) values ('"&id&"','"&yj&"',getdate())"
conn.execute sqlstr2
set conn=nothing
end if
end if
%>
<HTML>
<HEAD>
<TITLE>Zhao1Zhao网上调查</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" href="3508.css">
<style type="text/css">
<!--
.red { color: #FF0000}
-->
</style>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
<tr>
<td width="192" height="39" align="center" valign="bottom"><img src="../images/newzhao1zhao.gif" width="140" height="50"></td>
<td colspan="2" align="right" height="39" valign="bottom">
<table width="480" border="1" bordercolordark="#FFFFFF" bordercolorlight="#FFFFFF" bgcolor="#CCCCFF" cellpadding="0" cellspacing="0" height="22">
<tr align="center">
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../html/navigator.asp" class="black">本站导航</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18">
<a href="../sh/search.asp" class="black">二手市场</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../chat/default.asp" class="black">供求信息</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../news/index.asp" class="black">精品生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18">
<a href="../lovelife/default.asp" class="black">我爱生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../xhtj/index.asp" class="black">笑话天地</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="diaocha1.asp" class="black">调查生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../club/Default.asp" class="black">生活社区</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="3" height="1" bgcolor="006600"></td>
</tr>
</table>
<table align=center border=0 cellpadding=0
cellspacing=0 width=740 bgcolor="#FFFFCC">
<tbody>
<tr>
<td colspan="2" height="18"> 【本站导航】<a href="../default.asp">首页</a> >>
<a href="diaocha1.asp">调查生活</a> >> 查看结果</td>
</tr>
</tbody>
</table>
<FORM name=form1>
<TABLE border=0 cellPadding=0 cellSpacing=0 class=normal width="600" align="center">
<TR valign="bottom">
<TD height="36"> 【调查结果】</TD>
</TR>
<TR>
<TD>
<TABLE border=1 cellPadding=0 cellSpacing=0 width="580" bordercolorlight="#FF66CC" bordercolordark="#FFFFFF" align="center">
<TBODY>
<TR>
<TD colSpan=3> ★★★★★<span class="red"><%=rs1("sb")%>？</span>★★★★★</TD>
</TR>
<TR>
<TD class=normal><%=rs1("db1")%></TD>
<TD class=normal><%=rs1("db01")%></TD>
<TD class=normal><%=FormatPercent(rs1("db01")/total)%></TD>
</TR>
<TR>
<TD class=normal bgcolor="#ffffff"><%=rs1("db2")%></TD>
<TD class=normal bgcolor="#ffffff"><%=rs1("db02")%></TD>
<TD class=normal bgcolor="#ffffff"><%=FormatPercent(rs1("db02")/total)%></TD>
</TR>
<TR>
<TD class=normal><%=rs1("db3")%></TD>
<TD class=normal><%=rs1("db03")%></TD>
<TD class=normal><%=FormatPercent(rs1("db03")/total)%></TD>
</TR>
<TR>
<TD class=normal bgcolor="#ffffff"><%=rs1("db4")%></TD>
<TD class=normal bgcolor="#ffffff"><%=rs1("db04")%></TD>
<TD class=normal bgcolor="#ffffff"><%=FormatPercent(rs1("db04")/total)%></TD>
</TR>
<TR>
<TD class=normal colSpan=3 bgcolor="#ffffff" align="center">投票总人数：<%=total%>人</TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr align="right">
<td> </td>
</tr>
<tr align="right">
<td><A class=blue9
href="diaocha1.asp">更多调查>></A></td>
</tr>
<tr>
<td bgcolor="ff0000" height="1"></td>
</tr>
<tr>
<td width="95%"> </td>
</tr>
<%
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString")
set rs=server.createobject("adodb.recordset")
'rs.LockType=adLockOptimistic
sqlstr="select top 10 yj from diaoc2 where id='"&id&"'"
rs.open sqlstr,conn,1,1
num=rs.recordCount
if not rs.eof then
for i=1 to num
%>
<tr>
<td width="95%"> ◆<%=rs("yj")%></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
</table>
<%
end if
set conn=nothing
%>
</TD>
</TR>
</TABLE>
</FORM>
<!-- #include file="../include/end.htm" -->
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -