📄 diaocrs0.asp
字号:
<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="../ADOVBS.INc" -->
<!--#include file="onepage.asp"-->
<%
'######################
'BuildTime:2000/5/17
'Author:Gxx
'ModifyTime:2000/5/19
'#####################
%>
<%
id1=request("id1")
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString")
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic
sqlstr="select top 10 * from diaoc1 where id='" & Cint(id1) & "' order by tm desc"
rs.open sqlstr,conn,adOpenkeyset,adlockoptimistic,adcmdtext
total=rs("db01")+rs("db02")+rs("db03")+rs("db04")
if total=0 then
response.write "为最新信息,请您给予评判..."
response.write "<a href=""vbscript:history.back(-1)"">返回</a>"
response.end
end if
%>
<html>
<head>
<title>asp</title>
</head>
<body >
<h2 align=center>调查结果显示</h2><hr>
<table>
<tr >
<td>总票数(<%=total%>)</td>
</tr>
</table>
<table >
<tr>
<td nowrap colspan="30" ><%=rs("db1")%> </td>
<td width=<%=(300*rs("db01")/total)%> height=18 bgcolor=red rowspan="8"></td>
<td nowrap><font size="4"><%=FormatPercent(rs("db01")/total)%></font></td>
<td></td>
<td> 票数(<%=rs("db01")%>)</td>
</tr>
</table>
<table>
<tr>
<td nowrap colspan="30" ><%=rs("db2")%></td>
<td width=<%=(300*rs("db02")/total)%> height=18 bgcolor=blue rowspan="8"></td>
<td nowrap><%=FormatPercent(rs("db02")/total)%></td>
<td></td>
<td>票数(<%=rs("db02")%>)</td>
</tr>
</table>
<table>
<tr>
<td nowrap colspan="30" ><%=rs("db3")%></td>
<td width=<%=(300*rs("db03")/total)%> height=18 bgcolor=green rowspan="8"></td>
<td nowrap><%=FormatPercent(rs("db03")/total)%></td>
<td></td>
<td>票数(<%=rs("db03")%>)</td>
</tr>
</table>
<table>
<tr>
<td nowrap colspan="30" ><%=rs("db4")%></td>
<td width=<%=(300*rs("db04")/total)%> height=18 bgcolor=yellow rowspan="8"></td>
<td nowrap><%=FormatPercent(rs("db04")/total)%></td>
<td></td>
<td>票数(<%=rs("db04")%>)</td>
</tr>
</table><br>
<%'##################################################################################%>
<%
'set conn=server.createobject("adodb.connection")
'conn.open Application("DBCon_ConnectionString")
set rs=server.createobject("adodb.recordset")
sqlstr1="select yj as 意见 from diaoc2 where id='"&Cint(id1)&"' and yj<>'"&""&"'"
rs.open sqlstr1,conn,adOpenStatic
if rs.eof then
response.write "意见为空"
else
response.write "意见如下:<br>"
rs.pagesize=2
page=Clng(request("page"))
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
showonepage rs,page
'response.write page
if page<>1 then
response.write "<a href=""diaocrs0.asp?id1="&id1&"&page=1"" >第一页 </a>"
response.write "<a href=""diaocrs0.asp?id1="&id1&"&page="&(page-1)&" "">上一页 </a>"
end if
if page<>rs.pagecount then
response.write "<a href=""diaocrs0.asp?id1="&id1&"&page="&(page+1)&" "">下一页 </a>"
response.write "<a href=""diaocrs0.asp?id1="&id1&"&page="&(rs.pagecount)&" "">最后一页</a>"
end if
end if
%>
<table><div>
<tr>
<td></td>
<td></td>
<td><%response.write "<a href=index.asp>返回</a>"%></td>
</tr></div>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -