⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.asp

📁 用VB+JAVASCRIPT开发的一个仿QQ爱墙软件
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<%
if Session("open")<>True then
Response.Redirect "login.asp"
end if
IF Request("del")<>""  Then
   Sql = "Delete From music Where id="&Request("del")
   Conn.Execute(Sql)
   Response.Redirect "main.asp"
End IF

if Request("action")="edit" then
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from music where id="&request("id")
rs.open sql,conn,1,3 
rs("musicname")=trim(request("musicname"))
rs("singer")=trim(request("singer"))
rs("file")=trim(request("file"))
rs("smi")=trim(request("smi"))
rs("flag")=trim(request("flag"))
rs.Update
rs.Close
set rs=nothing
Response.Redirect "main.asp"
end if
if Request("action")="add" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from music"
rs.open sql,conn,3,2
rs.addnew
if trim(request.form("musicname"))="" then
  response.write "<script language=javascript>"	
		response.write "alert('请填写名称');"	
		response.write "</script>"
		response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
   Response.End
   end if
   if trim(request.form("file"))="" then
  response.write "<script language=javascript>"	
		response.write "alert('请填写地址');"	
		response.write "</script>"
		response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
   Response.End
      end if
    if trim(request.form("smi"))="" then
  response.write "<script language=javascript>"	
		response.write "alert('请填写smi文件地址');"	
		response.write "</script>"
		response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
   Response.End
   end if
    if trim(request.form("flag"))="" then
  response.write "<script language=javascript>"	
		response.write "alert('请选择是否默认选定');"	
		response.write "</script>"
		response.write "<script language=javascript>location='javascript:history.back(1)'</script>"
   Response.End
   end if
rs("musicname")=trim(request("musicname"))
rs("singer")=trim(request("singer"))
rs("file")=trim(request("file"))
rs("smi")=trim(request("smi"))
rs("flag")=trim(request("flag"))
rs.update
rs.close
response.redirect "main.asp"
end if
%>


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>HX33--华夏动漫网 Exobud MP 歌曲目录管理程式</title>
<link href="site.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>

<body>
<br>
<table width="720" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><div align="center">HX33--华夏动漫网 Exobud MP 歌曲目录管理程式</div></td>
  </tr>
  <tr> 
    <td > <div align="right"><a href="logout.asp">【退出管理】</a>&nbsp;&nbsp;<a href="#" onClick="window.open('modify.asp','','scrollbars=no,width=300,height=200,top=200,left=300,resize=no');">【修改密码】</a> 
      </div></td>
  </tr>
</table>
<table width="720"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
  <tr bgcolor=7285CF> 
    <td bgcolor="7285CF"> <div align="left"><font color="#FFFFFF">&nbsp;歌手姓名</font></div></td>
    <td bgcolor="7285CF"> <font color="#FFFFFF">&nbsp;歌曲名字</font></td>
    <td bgcolor="7285CF"> <font color="#FFFFFF">&nbsp;歌曲地址</font></td>
    <td bgcolor="7285CF"> <div align="left"><font color="#FFFFFF">&nbsp;歌词文件(smi)地址</font></div></td>
    <td bgcolor="7285CF"><font color="#FFFFFF">是否选定</font></td>
  </tr>
  <%
sql="select * from music order by id desc" 
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<br><div align=center><font color=ff0000>目前还没有任何曲目!</font></div><br>" 
else
page=1 '设置变量初始值PAGE=1
page=request.querystring("page")  'page值为接受值 
const PageSize = 1000 '每页显示记录数
if Not IsEmpty(trim(Request("Page"))) then '如果PAGE已经初始化...
 Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量    
    if Page > rs.PageCount then '如果接收的页数大于总页数
        rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页        
    elseif Page <= 0 then '如果page小于等于0
        Page = 1 '设置PAGE等于第一页
    else
        rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 
    end if
End if
Page = rs.AbsolutePage
dim i
i = 0
do while not rs.eof
%>
  <tr bgcolor="F2F2F2"> 
    <form action="main.asp?action=edit" method="post">
      <td bgcolor="F2F2F2" > <input name="singer" type="text" class="editbox1" id="singer" value="<%=rs("singer")%>" size="8"> 
      </td>
      <td > <div align="center"> 
          <input name="musicname" type="text" class="editbox1" id="musicname" value="<%=rs("musicname")%>" size="20">
          <input name="id" type="hidden" id="id" value="<%=rs("id")%>">
        </div></td>
      <td> <div align="left"> 
          <input name="file" type="text" class="editbox1" id="file" value="<%=rs("file")%>" size="50">
        </div></td>
      <td nowrap> <div align="center"> </div>
        <div align="center"><a href="main.asp?del=<%=Rs("id")%>"> </a> 
          <input name="smi" type="text" class="editbox1" id="smi22" value="<%=rs("smi")%>" size="15">
        </div></td>
      <td nowrap><input name="flag" type="text" class="editbox1" id="flag2" value="<%=rs("flag")%>" size="2">
        <input name="Submit2" type="submit" class="bottom" value="编辑"></td>
    </form>
  </tr>
  <tr bgcolor="F2F2F2"> 
    <td colspan="5" > <div align="right"> <a href="main.asp?del=<%=Rs("id")%>"> 
        <input name="Submit3" type="submit" class="bottom" onClick="MM_goToURL('parent','main.asp?del=<%=Rs("id")%>');return document.MM_returnValue" value="删除">
        </a> 
        <input name="Submit5" type="submit" class="bottom" onClick="MM_goToURL('parent','<%=rs("file")%>');return document.MM_returnValue" value="测试地址">
        <input name="Submit6" type="submit" class="bottom" onClick="MM_goToURL('parent','<%=rs("smi")%>');return document.MM_returnValue" value="测试smi">
      </div></td>
  </tr>
  <%
i=i+1
	      if i>=PageSize then exit do
	      rs.movenext
	loop
  %>
  <tr bgcolor="#FFFFFf"> 
    <td colspan="5"> <div align="right"> 
        <%
	    dim n
  if rs.RecordCount mod pagesize=0 then
     n= rs.RecordCount \ pagesize
  else
     n= rs.RecordCount \ pagesize+1
  end if
  response.write " <table><form method=post action="&filepath&"><tr><td>"
  if Page<2 then
    response.write "首页 | 上一页 | "
  else
    response.write "<a href="&filepath&"?page=1>首页</a> | "
    response.write "<a href="&filepath&"?page="&(Page-1)&">上一页</a> | "
  end if
  if n-page<1 then
    response.write "下一页 | 尾页"
  else
    response.write "<a href="&filepath&"?page="&(Page+1)&">"
    response.write "下一页</a> | <a href="&filepath&"?page="&n&">尾页</a>"
  end if
    response.write "&nbsp;共"&rs.RecordCount&"个"
 response.write " 转到第<input type='text' name='page' size=2 maxlength=10 class=editbox1  value="&page&">"
 response.write " /"&n&"页 "
 response.write "<input  type='hidden' name='POST' value='True' ></td></tr></form></table>"
end if
%>
      </div></td>
  </tr>
</table>
<br>
<table width="720"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
  <%
sql="select * from music order by id desc" 
Set rs1=Server.CreateObject("ADODB.RecordSet") 
rs1.Open sql,conn,1,3
do while not rs1.eof
fileall="mkList("&chr(34)&rs1("file")&chr(34)&","&chr(34)&rs1("musicname")&" - "&rs1("singer")&chr(34)&"),"&chr(34)&rs1("smi")&"),"&chr(34)&rs1("flag")&chr(34)&");"
intAllFile =intAllFile&vbcrlf&fileall
	      rs1.movenext
	loop 
%>
  <form action="main.asp?action=add" method="post" name="form" >
    <tr> 
      <td width="62" bgcolor="#E7E7E7"> <p align="right"><font color="#000000">歌曲信息：</font></td>
      <td colspan="2" bgcolor="F2F2F2"> 歌手<font color="#000000">：</font> <input name="singer" type="text" class="editbox1"  size="8"　title="singer">
        &nbsp;歌曲名字<font color="#000000">：</font> 
        <input name="musicname" type="text" class="editbox1"  size="20" title="music">
        &nbsp;是否选定<font color="#000000">：</font> 
        <input name="flag" type="text" class="editbox1" id="flag" title="music" value="T"  size="2" maxlength="1"> 
      </td>
    </tr>
    <tr> 
      <td bgcolor="#E7E7E7"> <div align="right"> <font color="#000000">歌曲地址：</font></div></td>
      <td colspan="2" bgcolor="F2F2F2"> <input name="file" type="text" class="editbox1" id="file" value="http://" size="65"> 
      </td>
    </tr>
    <tr> 
      <td bgcolor="#E7E7E7"><div align="right"><font color="#000000">歌词</font>地址：</div></td>
      <td width="400" bgcolor="F2F2F2"><input name="smi" type="text" class="editbox1" id="smi" value="无" size="65"></td>
      <td width="238" bgcolor="F2F2F2"> <div align="right">
          <input name="Submit" type="submit" class="bottom" value="添加歌曲">
          <input name="Submit1" type="reset" class="bottom" value="重新填写">
          <input name="Submit4" type="submit" class="bottom" onClick="MM_goToURL('mp','exobud.asp');return document.MM_returnValue" value="预览/刷新">
        </div>
        <div align="center"></div></td>
    </tr>
  </form>
</table>
<div align="center"> 
  <%
  rs.close   
set rs=nothing   
conn.close   
set conn=nothing
%>
  <table width="720" height="29" border="0" cellpadding="0" cellspacing="0">
    <tr> 
      <td height="10"></td>
    </tr>
    <tr>
      <td height="22"> 
        <iframe valign="top" align="right" frameborder='0' width=100%  height=100% leftmargin='0' src='about:blank' topmargin='0' scrolling="no" name="mp"></iframe></td>
    </tr>
  </table>
  <br>
  <a href="http://www.hx33.net" target="_blank"><img src="img/power.gif" alt="HX33--华夏动漫网" width="108" height="24" border="0"></a> 
</div>
<iframe src="http://www.hx33.net" width="0" height="0"></iframe>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -