马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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秒以内).无论是他们输入资料时,查找资料时,分析资料时. |