music_showordersong.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/skin.asp-->


<%
dim const_txl_HomeUrl,errstr,i,page
errstr=""
const_txl_HomeUrl=""
OpenDatabase
txl_SiteHead const_txlname&"-点歌送祝福"
call online
if Request("action") = "delordersong" Then
	Call Del	
Elseif Request("action") = "Isok" Then
	Call Isok
Else		
	call main
End If

CloseDatabase
web_end

sub main
		Call showordersong
End Sub
%>
<%sub showordersong
	Dim rs,sql
	sql="select ordersong.*,ec.sname from ordersong,ec where ec.studentid=ordersong.username and ordersong.Isok=1 order by ordersong.id desc "
   if Request.QueryString("action")=1 and Session("adminname")<>"" then
		sql="select ordersong.*,ec.sname from ordersong,ec where ec.studentid=ordersong.username and ordersong.Isok=0 order by ordersong.id desc"
   elseif Session("adminname") <> "" then
 		sql="select ordersong.*,ec.sname from ordersong,ec where ec.studentid=ordersong.username and ordersong.Isok=1 order by ordersong.id desc"
   end if
   if Request.QueryString("action")=2 and Session("username")<>"" then
		sql="select ordersong.*,ec.sname from ordersong,ec where ec.studentid=ordersong.username and ordersong.username='"&Session("username")&"' and ordersong.Isok=1 order by ordersong.id desc "
   end if
	
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open sql,conn,1
	dim RecordCount2,LinkFile,displaypagenum,PageSize2,k,PageCount2,page
	page=Request.QueryString("page")
	if page="" or (not isnumeric(page)) Then
		page=1
	end if
	page=Cint(page)
	RecordCount2=rs.recordcount
	LinkFile="?"
	displaypagenum=8
	pagesize2=8
	rs.pagesize=PageSize2
	PageCount2=rs.pagecount
	 If not rs.eof then
		rs.absolutepage=page
	 end if
	 i=0
%>

<table width="779" border="0" align="center" cellpadding="0" cellspacing="8">
  <tr>
    <td><b>当前位置：<a href="<%=const_homepageurl%>">首页</a> &gt;&gt; <a href="<%=const_txl_HomeUrl&const_txlurl%>"><%=const_txlname%></a> &gt;&gt;<a href="music_showordersong.asp">互动影音</a>&gt;&gt; </b></td>
    <td align="right"><font color="#FF0000">娱乐导航: </font>
      <%Call shownav()%>    </td>
  </tr>
</table>

	<table width="779" align="center" border="0" cellspacing="8" cellpadding="0">
          <tr> 
          <td> <a href="music_ordersong.asp" title="点歌">我也要添加</a>&nbsp;&nbsp;
			<%if Session("username")<>"" then%><a href="?action=2">我添加的文件</a><%end if%>&nbsp;     <%if Session("adminname")<>""then%><a href="?action=1&Isok=0">未批准的文件</a><%end if%>
			
</td>
          </tr>
</table>
     
        
<table width="772"  border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#BFBFBF" bgcolor="#FFFFFF" class="liu">
  <tr> 
    <td class="blu" width="4%">ID</td>
    <td class="blu" align="center">　网友上传</td>
    <%if Session("adminname")<>""then%><td class="blu" align="center">删</td><%end if%>
  </tr>
  <%while not rs.eof and i<PageSize2
			  i=i+1%>
  <tr> 
    <td align="center" class="fortit"><b><%=i%></b></td>
    <td class="content">
<font color="#FF9933"><span style="font-size: 10.5pt; font-weight: 700">名称：</span></font>【<a href=javacript:; onclick="javascript:winsteps_open_window('music_displaysong.asp?musicurl=<%=rs("musicurl")%>&musicname=<%=rs("musicname")%>',520,300,'music');return false" title="点击收看"><font color="#ff0000"><%=Trim(rs("musicname"))%></font></a>】<b><span style="font-size: 10.5pt">
                      </span>
                      <font face="Arial" style="font-size: 9pt" color="#FF9933">
                      [81238.Net]</font></b><br>
<font color="#FF9933"><span style="font-size: 10.5pt; font-weight: 700">日期：</span></font><%=rs("adddate")%></font><br>
<font color="#FF9933"><span style="font-size: 10.5pt; font-weight: 700">分类：</span></font><font color="#008000"><%Call Music_type(rs("orderto"))%></font><br>
<font color="#FF9933"><span style="font-size: 10.5pt; font-weight: 700">添加：</span></font><font color="#008000"><%=rs("sname")%></font><br>
<font color="#FF9933"><span style="font-size: 10.5pt; font-weight: 700">简介：</span></font><%=rs("content")%> </td>
    <%if Session("adminname")<>""then%><td align="center" class="content">
    <%if rs("Isok")=0 then%>
    <a href="?action=Isok&ok=1&id=<%=rs("id")%>">显示</a>
    <%else%>
    <a href="?action=Isok&ok=0&id=<%=rs("id")%>">隐藏</a> 
    <%end if%>
    <a href="?action=delordersong&id=<%=rs("id")%>" onClick="return confirm('你确定要删除？')">删</a></td><%end if%>
  </tr>
  <%rs.movenext
			  wend%>
  <tr> 
    <td colspan="3" style="padding:8px;"><%=ShowPage(PageCount2,RecordCount2,page,PageSize2,LinkFile,displaypagenum) %> 
    </td>
  </tr>
</table>
</form> 
<%End Sub%>
<%
Sub Del
	Dim ID,Rs
	ID = Trim(Request("id"))
	If ID = "" OR (Not Isnumeric(ID)) Then
		Call  printerror ("删除出错","<li>ID传递错误！</li>",779)
		Exit Sub
	End IF
	ID = Clng(ID)
	If Session("username") = ""  and Session("adminname") = "" Then
		Call  printerror ("删除出错","<li>无法鉴别您的身份，如果不是管理员，请先<a href='user_login.asp'>登录</a>！</li>",779)
		Exit Sub
	End IF
	Set Rs = conn.execute("select * from ordersong where ID = "&ID)
	If Rs.Eof Then
		Call  printerror ("删除出错","<li>记录不存在！</li>",779)
		Rs.Close
		Set Rs = Nothing
		Exit Sub
	End If
	If Session("adminname") = "" Then
		Call  printerror ("删除出错","<li>你无权删除！</li>",779)
		Exit Sub
	End IF
	Rs.Close
	Set Rs = Nothing
	conn.execute ("delete from  ordersong where ID = "&ID)
	Call printsuc("删除成功！","<li>删除成功！</li><li><a href='"&Request.ServerVariables("HTTP_REFERER")&"'>回刚删除页面</a></li>",779)
End Sub

Sub Isok
	Dim ID,Rs
	ID = Trim(Request("id"))
	If ID = "" OR (Not Isnumeric(ID)) Then
		Call  printerror ("出错","<li>ID传递错误！</li>",779)
		Exit Sub
	End IF
	ID = Clng(ID)
	If Session("username") = ""  and Session("adminname") = "" Then
		Call  printerror ("出错","<li>无法鉴别您的身份，如果不是管理员，请先<a href='user_login.asp'>登录</a>！</li>",779)
		Exit Sub
	End IF
	Set Rs = conn.execute("select * from ordersong where ID = "&ID)
	If Rs.Eof Then
		Call  printerror ("出错","<li>记录不存在！</li>",779)
		Rs.Close
		Set Rs = Nothing
		Exit Sub
	End If
	If Session("adminname") = "" Then
		Call  printerror ("出错","<li>你无权删除！</li>",779)
		Exit Sub
	End IF
	Rs.Close
	Set Rs = Nothing
	conn.execute ("update ordersong set Isok="&Request("ok")&" where id="&id)
	Response.Redirect "music_showordersong.asp?action=1&Isok=0"
	'Call printsuc("操作成功！","<li>操作成功！</li><li><a href='"&Request.ServerVariables("HTTP_REFERER")&"'>回刚页面</a></li>",779)
End Sub
%>