仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 1015|回复: 18
打印 上一主题 下一主题

[学习教程] ASP编程:生成一个asx,或m3u 文件

[复制链接]
变相怪杰 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-2-3 23:30:53 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了     用多了有成绩,本人改吧。以后目次有可写权限!!!
<%@LANGUAGE="VBSCRIPT"%>

<%
if Request.Form("loadno")="yes" then                    '判嗍欠癖翁峤

set myfileobject=server.createobject("scripting.filesystemobject")
       ' myfilepath=server.mappath("vod.asx")             'O文件路c文件名
myfilepath=server.mappath("vod.asx")
set mytextfile=myfileobject.createtextfile(myfilepath)

    ''''''''''''''''''''''''''''''''''''''      _始文件
     a="<asx version = " & chr(34) & "3.0" & chr(34) & ">"
    mytextfile.writeline(a)
    mytextfile.writeline(" <title>阅读器</title>")
dim x
   x=1
        dim y
        y=Request.Form("upcount")+1
        do while x < y                                             '轮回播放文件
       if Request.Form("file" & x)<>"" then
        mytextfile.writeline("<entry>")
        b="<ref href = " & chr(34) & Request.Form("file" & x) & chr(34) & "/>"
        mytextfile.writeline(b)
        mytextfile.writeline("</entry>")
      end if
     x=x+1                                                     '轮回播放文件Y束
     loop

   mytextfile.writeline("</asx>")
'''''''''''''''''''''''''''''''''''''''''''''''''文件Y束
mytextfile.close
'set myfileobject=nothing
msg="添加胜利!"
end if
%>
<body bgcolor="#FFFFFF" text="#000000" background="../1_2.gif">
<script language="javascript">
  function setid()
  {
  str='<br>';
  if(!window.form1.upcount.value || window.form1.upcount.value < 1)
   window.form1.upcount.value=1;
    for(i=1;i<=window.form1.upcount.value;i++)
     str+='文件'+i+':<input type="file" name="file'+i+'" style="width:400"><br><br>';
  window.upid.innerHTML=str+'<br>';
  }
  </script>
<form name="form1" method="post" action="">
  <table width="1%" border="1" align="center">
    <tr>
      <td width="91%">
        <div align="center"><b>网页片头播放文件设置</b></div>
      </td>
    </tr>
    <tr>
      <td width="91%">
        <input type="text" name="upcount" value="5" maxlength="3">
        <input type="button" name="Button"  value="设定文件数">
      </td>
    </tr>
    <tr>
      <td height="2" id="upid" width="91%" >1.
        <input type="file" name="file1" value="">
      </td>
    </tr>
    <tr>
      <td width="91%">
        <div align="center">
          <input type="submit" name="Submit" value="--肯定--">
          <input type="hidden" name="loadno" value="yes">
          <%=msg%> </div>
      </td>
    </tr>
  </table>
  </form>
<p> </p>
<script language="javascript">

setid();
</script>
/////////////////////////////////////////////////////////////////
input.asp输出音乐文件途径
<form action="create_file.asp" method="post">
mp3途径:<input type="text" name="file_src">
<input type="submit">
</form>

create_file.asp生成播放列表
<%
  file_src=trim(request.form("file_src"))
  if file_src="" or isempty(file_src) then
%>
请填写MP3文件途径
<%else
  strTmp=replace(replace(replace(now,":","")," ",""),"-","")
  set objFso=Server.CreateObject("Scripting.FileSystemObject")
  set txtFso=objFso.CreateTextFile(server.mappath(strTmp&".m3u"),true)
txtFso.writeline file_src
  set txtFso=nothing
  set objFso=nothing
%>
生成的m3u文件为:<a href="<%=strTmp%>.m3u"><%=strTmp%>.m3u</a>
<%
  end if
%>
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.
分手快乐 该用户已被删除
沙发
发表于 2015-2-4 00:11:21 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
若天明 该用户已被删除
板凳
发表于 2015-2-10 04:21:33 | 只看该作者
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
柔情似水 该用户已被删除
地板
发表于 2015-2-22 08:55:08 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
admin 该用户已被删除
5#
发表于 2015-2-26 09:54:24 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
小女巫 该用户已被删除
6#
发表于 2015-2-27 22:49:49 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
爱飞 该用户已被删除
7#
发表于 2015-3-9 14:57:20 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
灵魂腐蚀 该用户已被删除
8#
发表于 2015-3-16 23:57:07 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
若相依 该用户已被删除
9#
发表于 2015-3-17 02:11:37 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
山那边是海 该用户已被删除
10#
发表于 2015-3-17 07:09:32 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
不帅 该用户已被删除
11#
发表于 2015-3-22 23:11:24 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
变相怪杰 该用户已被删除
12#
 楼主| 发表于 2015-3-27 12:09:45 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
透明 该用户已被删除
13#
发表于 2015-4-7 19:53:20 | 只看该作者
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
第二个灵魂 该用户已被删除
14#
发表于 2015-4-12 21:16:48 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
精灵巫婆 该用户已被删除
15#
发表于 2015-4-16 08:10:55 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
小妖女 该用户已被删除
16#
发表于 2015-4-28 02:04:35 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
再见西城 该用户已被删除
17#
发表于 2015-4-28 12:26:44 | 只看该作者
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
老尸 该用户已被删除
18#
发表于 2015-5-1 04:11:35 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
兰色精灵 该用户已被删除
19#
发表于 2015-5-3 20:57:22 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-5-5 21:20

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表