song3_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 song3 set 统计=统计+1 where 歌曲名="&"'"&"征服"&"'"
conn.execute(sql)
end if
if request("C2")="ON" then
sql="update song3 set 统计=统计+1 where 歌曲名="&"'"&"雾里看花"&"'"
conn.execute(sql)
end if
if request("C3")="ON" then
sql="update song3 set 统计=统计+1 where 歌曲名="&"'"&"相见不如怀念"&"'"
conn.execute(sql)
end if
if request("C4")="ON" then
sql="update song3 set 统计=统计+1 where 歌曲名="&"'"&"白天不懂夜的黑"&"'"
conn.execute(sql)
end if
if request("C5")="ON" then
sql="update song3 set 统计=统计+1 where 歌曲名="&"'"&"相约1998"&"'"
conn.execute(sql)
end if
if request("C6")="ON" then
sql="update song3 set 统计=统计+1 where 歌曲名="&"'"&"其他"&"'"
conn.execute(sql)
end if
sql="select * from song3 "
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
%>