song5_asp.asp

一个可以自主上网点播的点播文件

<p align="center"><font color="#FF0000">谢谢你的大力支持,看看统计结果吧.</font> 
<%
DBPath=Server.MapPath ("song.mdb")           
  Set conn=Server.CreateObject ("ADODB.Connection")           
  conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &_           
  DBPath  
if request("C1")="ON" then
sql="update song5 set 统计=统计+1 where 歌曲名="&"'"&"CAPPUCCINO"&"'"
conn.execute(sql)
end if
if request("C2")="ON" then
sql="update song5 set 统计=统计+1 where 歌曲名="&"'"&"甩啦甩啦"&"'"
conn.execute(sql)
end if
if request("C3")="ON" then
sql="update song5 set 统计=统计+1 where 歌曲名="&"'"&"最熟悉的人最陌生"&"'"
conn.execute(sql)
end if
if request("C4")="ON" then
sql="update song5 set 统计=统计+1 where 歌曲名="&"'"&"一个人的精彩"&"'"
conn.execute(sql)
end if
if request("C5")="ON" then
sql="update song5 set 统计=统计+1 where 歌曲名="&"'"&"没有人"&"'"
conn.execute(sql)
end if
if request("C6")="ON" then
sql="update song5 set 统计=统计+1 where 歌曲名="&"'"&"其他"&"'"
conn.execute(sql)
end if
sql="select * from song5 "
set rs=conn.execute(sql)
Response.Write "<center><Table BORDER=1>"
  Response.Write "<TR BGCOLOR=#00ffff>"
for i=0 to rs.Fields.count-1
     Response.Write "<td>" & rs.Fields(i).Name & "</td>"
  Next
while not rs.eof
response.write"<tr>"
for i=0 to rs.fields.count-1
response.write"<td ><font color=#0000FF>" & rs.fields(i).value & "</td>"
next
response.write"</td>"
rs.movenext
wend
%>