📄 index_tp.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body bgcolor="#CCFFCC">
<%
dim total
Set objconn = Server.CreateObject("ADODB.Connection")
connstr="Provider=microsoft.jet.oledb.4.0;Data source=" & server.MapPath("toupiaodb.Mdb")
objconn.Open connstr
sqlstr="select * from webt"
set objrs=server.CreateObject("ADODB.Recordset")
objrs.open sqlstr,objconn,1,3
objrs.movefirst
do while not objrs.eof
total=total+objrs("counters")
objrs.movenext
loop
objrs.movefirst
%>
<p align="center"><font color="#CC3333" size="+3">你喜欢旅游吗？</font></p>
<p><font color="#CC33FF" size="+2">我想想哦...</font></p>
<form action="addcounter.asp" method="post" name="form1">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<% do while not objrs.eof %>
<tr>
<td width="9%"><input type="radio" name="radiobutton" value="<%= objrs("name") %>"></td>
<td width="25%"><%= objrs("name") %></td>
<td width="66%"><img src="lineball.gif" width="<%= formatpercent(objrs("counters")/total) %>%" height="5"><%= objrs("counters") %>票(<%= formatpercent(objrs("counters")/total,0) %>)</td>
</tr>
<% objrs.movenext
loop %>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交"></td>
<td> </td>
</tr>
</table>
</form>
<a href="../../default.asp">返回</a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -