<% dim key,na,lry key=request("key") na=request("na") lry=request("lry") if na = "" or key="" Then Response.Write "抱歉,选择的文件无效." Response.End end if %> e时空学习资源
书名:<%=na%>
  • 请点击此链接:
  • <% 'Dim strInceptFile 'strInceptFile = "swf,fla,jpg,jpeg,gif,png,bmp,tif,iff,mp3,wma,rm,wmv,mid,rmi,cda,avi,mpg,mpeg,ra,ram,wov,asf" 'if CheckFileExt(lry) Then 'strPath = Server.MapPath(url) 'strPath = Replace(strPath, "/", "\") 'Call downThisFile(strPath) 'else Response.Write ""&lry&"
  • " 'End If %>
        e时空资源导航提醒您:根据用户的指令,本站搜索引擎系统会以非人工方式自动生成到第三方网页的链接。e时空资源导航自身不存储、控制、编辑或修改被链接的第三方网页的信息。e时空资源导航所列资源高度重视知识产权保护,并制定了旨在保护权利人的合法权益的措施和步骤,当权利人发现在e时空资源导航生成的链接所指向的第三方网页的内容侵犯其著作权时,请权利人向e时空资源导航发出“权利通知”,e时空资源导航将依法采取措施移除相关内容或屏蔽相关链接。
    <% function geturlencodel(byval url)'中文文件名转换 Dim i,code geturlencodel="" if trim(Url)="" then exit function for i=1 to len(Url) code=Asc(mid(Url,i,1)) if code<0 Then code = code + 65536 If code>255 Then geturlencodel=geturlencodel&"%"&Left(Hex(Code),2)&"%"&Right(Hex(Code),2) else 'geturlencodel=geturlencodel&mid(Url,i,1) geturlencodel=geturlencodel&"%"&right(Hex(Code),2) end if next end function Function CheckFileExt(ByVal strFile) Dim ArrInceptFile Dim i, strFileExt On Error Resume Next If Trim(strFile) = "" Or IsEmpty(strFile) Then CheckFileExt = False Exit Function End If strFileExt = GetFileExtName(strFile) strFileExt = LCase(strFileExt) strInceptFile = LCase(strInceptFile) If Len(strInceptFile) = 0 Then CheckFileExt = True Exit Function End If ArrInceptFile = Split(strInceptFile, ",") For i = 0 To UBound(ArrInceptFile) If Trim(strFileExt) = Trim(ArrInceptFile(i)) Then CheckFileExt = True Exit Function Else CheckFileExt = False End If Next CheckFileExt = False End Function Function GetFileExtName(ByVal strFilePath) Dim strExtName strExtName = Mid(strFilePath, InStrRev(strFilePath, ".") + 1) If InStr(strExtName, "?") > 0 Then GetFileExtName = Left(strExtName, InStr(strExtName, "?") - 1) Else GetFileExtName = strExtName End If End Function %>