<% dbname="CbaoMusicstation0948.mdb" strcon = "provider =microsoft.jet.oledb.4.0;" & _ "data source=" & server.mappath(dbname) set rs = server.CreateObject("adodb.recordset") set rs_sum_people = server.CreateObject("adodb.recordset") set rs_sum_male = server.CreateObject("adodb.recordset") set rs_sum_female = server.CreateObject("adodb.recordset") set rs_max_vote = server.CreateObject("adodb.recordset") if Request("search")="" or (Request("occupation") = "" and Request("name") = "" and Request("age") = "") then strsql = "select * from register order by id desc" else if Request("name") = "" then song = "" else song = " name like '%" & Request("name") & "%' " end if if Request("occupation") = "" then occupation = "" else if Request("name") = "" then occupation = " occupation like '%" & Request("occupation") & "%' " else occupation = " and occupation like '%" & Request("occupation") & "%' " end if end if if Request("age") = "" then age = "" else if Request("name") = "" and Request("occupation") = "" then age = " age like '%" & Request("age") & "%' " else age =" and age like '%" & Request("age") & "%' " end if end if strsql = "select * from register where " & song & occupation & age & " order by id desc" end if 'response.Write "" & strsql & "" rs.CursorLocation = 3 rs.Open strsql,strcon set rs.ActiveConnection = Nothing Pagesize = 60 if Request("page") = "" then iPage = 0 else iPage = cInt(Request ("page")) end if if rs.EOF then iFound = False iPage = 0 else iFound = True rs.PageSize = Pagesize if iPage <= 0 then iPage = 1 end if if iPage >= rs.PageCount then iPage = rs.PageCount end if rs.AbsolutePage = iPage end if %>
кŧ
ŧ/ͧ : "> ŻԹ : ѡɳмŧҹ :
<% strsql = "select count(userName) as sum_people from register " rs_sum_people.Open strsql,strcon strsql = "select count(userName) as sum_male from register where sex = '" & "male" & "' " rs_sum_male.Open strsql,strcon strsql = "select count(userName) as sum_female from register where sex = '" & "female" & "' " rs_sum_female.Open strsql,strcon strsql = "select top 4 id, name from register order by viewer desc ,id desc" rs_max_vote.Open strsql,strcon %> ӹǹŧҺǷѹ <%=rs_sum_people("sum_people")%> ŧ   ŧ١Դѧҡش 3 ѹѺá | <%do while not rs_max_vote.eof %> <%j=j+1%> <%if j= 4 then%> <%exit do%> <% end if%> &topview=topview" target="_blank" onClick="ShowSpec=open('musicPlay.asp?id=<%=rs_max_vote("id")%>&topview=topview','showDetails','width=400,height=560,statusbar=no,toolbar=no,locationbar=no,scrollbars=yes,resizable=no');return false; "> <%=rs_max_vote("name")%><%'=j%> | <%rs_max_vote.movenext%> <%loop%>

<% if iFound = false then Response.Write ("") Response.End end if %> <%for i = 1 to pagesize%> <%rs.MoveNext if rs.EOF then exit for Next %>

辺ŷҹ
ӴѺ ŧ ŻԹ ź ѡɳмŧҹ ١Դѧ
Cms<%=right("0000" & rs("id"),4)%>. " target="_blank" onClick="ShowSpec=open('musicPlay.asp?id=<%=rs("id")%>','showDetails','width=400,height=500,statusbar=no,toolbar=no,locationbar=no,scrollbars=yes,resizable=no');return false; "><%=rs("Name")%> : <%=rs("occupation")%> <%=rs("nickname")%> <%=rs("age")%> <%=rs("viewer")%>
 

<%if iFound = true and rs.pagesize > 1 then%> <%if iPage = 1 then %> |< ˹á |<< ˹ҷ <%else%> |<˹á | <<˹ҷ | <%end if%>        : size="3"> of <% if iFound then Response.Write rs.PageCount else Response.Write "0" end if %>        <%if iPage = rs.pagecount then%> ˹ҶѴ >>| ˹ش>| <%else%> ˹ҶѴ >> | ˹ش >| <%end if%> <%end if%>