song2_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 song2 set 统计=统计+1 where 歌曲名="&"'"&"伤痕"&"'"
conn.execute(sql)
end if
if request("C2")="ON" then
sql="update song2 set 统计=统计+1 where 歌曲名="&"'"&"夜太黑"&"'"
conn.execute(sql)
end if
if request("C3")="ON" then
sql="update song2 set 统计=统计+1 where 歌曲名="&"'"&"不必在乎我是谁"&"'"
conn.execute(sql)
end if
if request("C4")="ON" then
sql="update song2 set 统计=统计+1 where 歌曲名="&"'"&"爱上一个不回家的人"&"'"
conn.execute(sql)
end if
if request("C5")="ON" then
sql="update song2 set 统计=统计+1 where 歌曲名="&"'"&"为你我受冷风吹"&"'"
conn.execute(sql)
end if
if request("C6")="ON" then
sql="update song2 set 统计=统计+1 where 歌曲名="&"'"&"没有人抽烟"&"'"
conn.execute(sql)
end if
if request("C7")="ON" then
sql="update song2 set 统计=统计+1 where 歌曲名="&"'"&"至少还有你"&"'"
conn.execute(sql)
end if
if request("C8")="ON" then
sql="update song2 set 统计=统计+1 where 歌曲名="&"'"&"当爱已成往事"&"'"
conn.execute(sql)
end if
if request("C9")="ON" then
sql="update song2 set 统计=统计+1 where 歌曲名="&"'"&"其他"&"'"
conn.execute(sql)
end if
sql="select * from song2 "
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
%>