宿远
宿远

本人写的整套创建静态文件类

  2. <%
  3. '-------------------------------------------------------
  4. ' ☆☆ 2006-9-12 ☆☆
  5. ' ☆☆ 全国版中要使用的创建静态页面函数类 ☆☆
  6. ' ☆☆ 宿远 ☆☆
  7. '---------------------------------------------------------
  8. '
  9.     Class clsCreateFile
  11.         Private strUrl
  12.         Private strAddress
  13.         Private strTarget
  14.         Private strAddressUrl
  16.         Private CreateFile
  17.         Private CreateFolder
  19.         Public SourceUrl                '要抓取的来源页面的链接地址实例
  20.         Public TargetAddress            '要将文件创建到的目标地址实例
  21.         Public Directory                '要将文件创建到的目标地址的目录实例
  23.         Private Sub Class_Initialize()    '类初始化
  24.             Set SourceUrl = New clsSourceUrl
  25.             Set TargetAddress = New clsTargetAddress
  26.             Set Directory = New clsDirectory
  27.         End Sub
  29.         Private Sub Class_Terminate()        '类关闭
  30.             Set SourceUrl = Nothing
  31.             Set TargetAddress = Nothing
  32.             Set Directory = Nothing
  33.         End Sub
  35.         Public Property Let Url(Value)
  36.             strUrl = Value
  37.         End Property
  39.         Public Property Get Url()
  40.             Url = strUrl
  41.         End Property
  43.         Public Property Let Address(Value)
  44.             strAddress = Value
  45.         End Property
  47.         Public Property Get Address()
  48.             Address = strAddress
  49.         End Property
  51.         Public Property Let Target(Value)
  52.             strTarget = Value
  53.         End Property
  55.         Public Property Get Target()
  56.             Target = strTarget
  57.         End Property
  59.         Public Property Let AddressURL(Value)
  60.             strAddressURL = Value
  61.         End Property
  63.         Public Property Get AddressURL()
  64.             AddressURL = strAddressURL
  65.         End Property
  67.         Public Sub Open(intCreateFile,intCreateFolder)
  68.             CreateFile = intCreateFile
  69.             CreateFolder = intCreateFolder
  70.             SourceUrl.FileUrl = strUrl
  71.             SourceUrl.FileAddress = strAddress
  72.             SourceUrl.Visit()
  74.             TargetAddress.Address = strTarget
  75.             TargetAddress.AddressURL = strAddressUrl & TargetAddress.Name()
  76.             Directory.Address = Replace(TargetAddress.Address,TargetAddress.Name,"")
  77.         End Sub
  80.         Public Function Err()
  81.             Dim Discover
  82.             IF cBool(SourceUrl.ExistsFiles()) = False Then
  83.                 strErr = "源文件不存在"
  84.                 Err = strErr
  85.                 Exit Function
  86.                 'strErrDepict = strErrDepict & IIF(strErrDepict = "","","
    ") & strErr
  87.             End IF
  88.             IF cBool(SourceUrl.CanVisit) = False Then
  89.                 strErr = "源文件访问出错"
  90.                 Err = strErr
  91.                 Exit Function
  92.                 'strErrDepict = strErrDepict & IIF(strErrDepict = "","","
    ") & strErr
  93.             End IF
  94.             IF cBool(CreateFolder) = False Then
  95.                 IF cBool(Directory.ExistsFolder()) = False Then
  96.                     strErr = "写入目录不存在"
  97.                     Err = strErr
  98.                     Exit Function
  99.                     'strErrDepict = strErrDepict & IIF(strErrDepict = "","","
    ") & strErr
  100.                 End IF
  101.             End IF
  102.             IF cBool(CreateFile) = False Then
  103.                 IF cBool(TargetAddress.ExistsFiles()) = True Then
  104.                     strErr = "目标文件已存在"
  105.                     Err = strErr
  106.                     Exit Function
  107.                     'strErrDepict = strErrDepict & IIF(strErrDepict = "","","
    ") & strErr
  108.                 End IF
  109.             End IF
  110.         End Function
  112.         Public Sub Create()
  113.             IF Err = "" Then
  114.                 IF cBool(CreateFolder)     = True Then
  115.                     Directory.CreateFolder()
  116.                 End IF
  117.                 IF cBool(CreateFile) = True Then
  118.                     TargetAddress.CreateFile SourceUrl.responseBody
  119.                 End IF
  120.             End IF
  121.         End Sub
  123.     End Class
  125.     Class clsSourceUrl
  126.         Private strUrl
  127.         Private strAddress
  128.         Private FileService
  130.         Public CanVisit
  131.         Public ReadyState
  132.         Public Status
  133.         Public responseBody
  135.         Private Sub Class_Initialize()    '类初始化
  136.             CanVisit = False
  137.             Set FileService = New clsFileService
  138.         End Sub
  140.         Private Sub Class_Terminate()        '类关闭
  141.             Set FileService = Nothing
  142.         End Sub
  144.         Public Property Let FileUrl(Value)
  145.             strUrl = Value
  146.         End Property
  148.         Public Property Get FileUrl
  149.             FileUrl = strUrl
  150.         End Property
  152.         Public Property Let FileAddress(Value)
  153.             strAddress = Value
  154.         End Property
  156.         Public Property Get FileAddress
  157.             FileAddress = strAddress
  158.         End Property
  160.         Public Function Name()
  161.             Name = FileService.FileName(strAddress,1)
  162.         End Function
  164.         Public Function ExistsFiles()
  165.             Response.Write(strAddress & "
    "    )
  166.             ExistsFiles = FileService.ExistsFiles(strAddress)
  167.         End Function
  169.         Public Sub Visit()
  170.             FileService.VisitUrl strUrl,0
  171.             ReadyState         = FileService.ReadyState
  172.             Status             = FileService.Status
  173.             responseBody     = FileService.responseBody
  174.             IF ReadyState = 4 Then
  175.                 IF Status = 200 And Lenb(responseBody)>0 Then CanVisit = True
  176.             End IF
  177.         End Sub
  179.         Public Function FileText()
  180.             FileText = FileService.FileText(strAddress)
  181.         End Function
  183.     End Class
  185.     Class clsTargetAddress
  187.         Private strAddress
  188.         Private strAddressUrl
  189.         Private FileService
  191.         Private Sub Class_Initialize()    '类初始化
  192.             Set FileService = New clsFileService
  193.         End Sub
  195.         Private Sub Class_Terminate()        '类关闭
  196.             Set FileService = Nothing
  197.         End Sub
  199.         Public Property Let Address(Value)
  200.             strAddress = Value
  201.         End Property
  203.         Public Property Get Address()
  204.             Address = strAddress
  205.         End Property
  207.         Public Property Let AddressURL(Value)
  208.             strAddressUrl = Value
  209.         End Property
  211.         Public Property Get AddressURL()
  212.             AddressURL = strAddressUrl
  213.         End Property
  215.         Public Function Name()
  216.             Name = FileService.FileName(strAddress,1)
  217.         End Function
  219.         Public Function ExistsFiles()
  220.             ExistsFiles = FileService.ExistsFiles(strAddress)
  221.         End Function
  223.         Public Sub CreateFile(htmlBody)
  224.             FileService.CreateHtml htmlBody,Address
  225.         End Sub
  227.     End Class
  229.     Class clsDirectory
  230.         Private strAddress
  232.         Private FileService
  234.         Private Sub Class_Initialize()    '类初始化
  235.             Set FileService = New clsFileService
  236.         End Sub
  238.         Private Sub Class_Terminate()        '类关闭
  239.             Set FileService = Nothing
  240.         End Sub
  242.         Public Property Let Address(Value)
  243.             strAddress = Value
  244.         End Property
  246.         Public Property Get Address()
  247.             Address = strAddress
  248.         End Property
  250.         Public Function ExistsFolder()
  251.             ExistsFolder = FileService.ExistsFolder(strAddress)
  252.         End Function
  254.         Public Function LostFolder()
  255.             LostFolder = FileService.LostFolder(strAddress,0)
  256.         End Function
  258.         Public Sub CreateFolder()
  259.             FileService.LostFolder strAddress,1
  260.         End Sub
  262.     End Class
  264.     Class clsFileService
  265.         Private objFso
  266.         Private objXml
  268.         Public Status
  269.         Public responseBody
  270.         Public ReadyState
  271.         Public responseText
  273.         Public Sub Class_Initialize()
  274.             Set objFso = Server.CreateObject(OBJFSOID)
  275.             Set objXml = Server.CreateObject("MSXML2.XMLHTTP.3.0")
  276.         End Sub
  278.         Public Sub Class_Terminate()
  279.             Set objFso = Nothing
  280.             Set objXml = Nothing
  281.         End Sub
  283.         Public Function FileName(strAddress,intPlace)        '通过链接地址或目标地址查询文件名
  284.             IF strAddress <> "" Or Not isNULL(strAddress) Then
  285.                 strAddress = Replace(strAddress,"/","/")
  286.                 IF InStr(strAddress, "/") Then
  287.                     arrAddress = Split(strAddress,"/")
  288.                     FileName = arrAddress(UBound(arrAddress))
  289.                     IF cBool(intPlace) = False Then FileName = Replace(strAddress,FileName,"")
  290.                 Else
  291.                     FileName = strAddress
  292.                     IF cBool(intPlace) = False Then FileName = ""
  293.                 End IF
  294.             Else
  295.                 FileName = ""
  296.             End IF
  297.         End Function
  299.         Public Function ExistsFiles(strPath)
  300.             IF strPath <> "" Then
  301.                 IF objFso.FileExists(strPath) Then
  302.                     ExistsFiles = True
  303.                 Else
  304.                     ExistsFiles = False
  305.                 End IF
  306.             Else
  307.                  ExistsFiles = False
  308.             End IF
  309.         End Function
  311.         Public Function ExistsFolder(strPath)
  312.             IF strPath <> "" Then
  313.                 IF objFso.FolderExists(strPath) Then
  314.                     ExistsFolder = True
  315.                 Else
  316.                     ExistsFolder = False
  317.                 End IF
  318.             Else
  319.                  ExistsFolder = False
  320.             End IF
  321.         End Function
  323.         Public Function LostFolder(strAddress,intCreateFolder)
  324.             Dim arrAddress,strTmp
  325.             IF strAddress <> "" Then
  326.                 strTmp = Replace(Replace(strAddress,SITEMAP,""),"/","/")
  327.                 arrAddress = Split(strTmp,"/")
  328.                 For i = 0 To UBound(arrAddress) - 1
  329.                     strTmpPath = strTmpPath & arrAddress(i) & "/"
  330.                     strPathTmp    = SITEMAP & strTmpPath
  331.                     IF Not objFso.FolderExists(strPathTmp) Then
  332.                         LostFolder = arrAddress(i)
  333.                         IF cBool(intCreateFolder) = False Then
  334.                             Exit Function
  335.                         Else
  336.                             objFso.CreateFolder(strPathTmp) ' 创建
  337.                         End IF
  338.                     End If
  339.                 Next
  340.             Else
  341.                 LostFolder = ""
  342.             End IF
  343.         End Function
  345.         Public Function bytes2BSTR(vIn)
  346.             Dim strReturn
  347.             Dim i,ThisCharCode,NextCharCode
  348.             strReturn = ""
  349.             For i = 1 To LenB(vIn)
  350.                 ThisCharCode = AscB(MidB(vIn,i,1))
  351.                 IF ThisCharCode < &H80 Then
  352.                     strReturn = strReturn & Chr(ThisCharCode)
  353.                 Else
  354.                     NextCharCode = AscB(MidB(vIn,i + 1,1))
  355.                     strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
  356.                     i = i + 1
  357.                 End IF
  358.             Next
  359.             bytes2BSTR = strReturn
  360.         End Function
  362.         Public Sub VisitUrl(strUrl,intResType)
  363.             Dim oUrl,tmpPara
  364.             tmpPara = "&m="
  365.             IF InStr(strUrl,"?") = 0 Then tmpPara = "?m="
  366.             Randomize()
  367.             oUrl = strUrl & tmpPara & Rnd()
  368.             objXml.Open "Get", oUrl ,False
  369.             objXml.Send
  370.             ReadyState = objXml.ReadyState
  371.             Status = objXml.Status
  372.             Select Case intResType
  373.                 case 0
  374.                     responseBody = objXml.responseBody
  375.                 case 1
  376.                     responseBody = objXml.responseText
  377.                 case 2
  378.                     responseBody = objXml.responseXML
  379.                 case 3
  380.                     responseBody = objXml.responseStream
  381.             End Select
  382.         End Sub
  384.         Public Sub CreateHtml(xmlBody,FilePath)
  385.             Dim objStream
  386.             Set objStream = Server.CreateObject("Adodb.Stream")
  387.             objStream.Type = 1
  388.             objStream.Mode = 3
  389.             objStream.Open()
  390.             objStream.Write xmlBody
  391.             objStream.Position = 0
  392.             objStream.Type = 2
  393.             objStream.Charset = "GB2312"
  394.             objStream.SaveToFile FilePath,2
  395.             objStream.Close()
  396.             Set objStream = Nothing
  397.         End Sub
  399.         Public Function FileText(FilePath)
  400.             IF ExistsFiles(FilePath) Then
  401.                 Set objFileOpen = objFso.OpenTextFile(FilePath,1)
  402.                 FileText = objFileOpen.ReadAll
  403.                 Set objFileOpen = Nothing
  404.             Else
  405.                 FileText = ""
  406.             End IF
  407.         End Function
  409.     End Class
  411.     Dim objCreateFile
  412.     Set objCreateFile = New clsCreateFile
  413.         objCreateFile.Url         = "http://sh.studyget.com/Template/Column_List/GRE_Datum_1.asp?ThirdID=1281&TopNum=2"
  414.         objCreateFile.Address     = "//192.168.1.254/www.studyget.com/Garrison/201226/Template/Column_List/GRE_Datum_1.asp"
  415.         objCreateFile.Target     = "//192.168.1.254/www.studyget.com/00/01/00.html"
  416.         objCreateFile.AddressUrl = "http://www.studyget.com/00/01/"
  417.         objCreateFile.Open 1,1
  418.             Response.Write("

    <------------------------------------------------------------>
    "    )
  419.             Response.Write("
    SourceUrl.FileUrl: "     & objCreateFile.SourceUrl.FileUrl)
  420.             Response.Write("
    SourceUrl.FileAddress: "     & objCreateFile.SourceUrl.FileAddress)
  421.             Response.Write("
    SourceUrl.Name(): "     & objCreateFile.SourceUrl.Name())
  422.             Response.Write("
    SourceUrl.ExistsFiles(): "     & objCreateFile.SourceUrl.ExistsFiles())
  423.             Response.Write("

    <------------------------------------------------------------>
    "    )
  424.             Response.Write("
    TargetAddress.Address:  "     & objCreateFile.TargetAddress.Address)
  425.             Response.Write("
    TargetAddress.AddressUrl:  "     & objCreateFile.TargetAddress.AddressUrl)
  426.             Response.Write("
    TargetAddress.Name():  "     & objCreateFile.TargetAddress.Name())
  427.             Response.Write("
    TargetAddress.ExistsFiles():  "     & objCreateFile.TargetAddress.ExistsFiles())
  428.             Response.Write("

    <------------------------------------------------------------>
    "    )
  429.             Response.Write("
    Directory.Address: "     & objCreateFile.Directory.Address)
  430.             Response.Write("
    Directory.ExistsFolder: "     & objCreateFile.Directory.ExistsFolder)
  431.             Response.Write("
    Directory.LostFolder: "     & objCreateFile.Directory.LostFolder)
  432.         IF objCreateFile.Err <> "" Then
  433.             Response.Write(objCreateFile.Err)
  434.         Else
  435.             objCreateFile.Create()
  436.         End IF
  437.     Set objCreateFile = Nothing
  438. %>
 

你可能感兴趣的:(Asp,url)

  • Git常用命令－修改远程仓库地址 猿大师 LinuxJavagitjava
    查看远程仓库地址gitremote-v返回结果originhttps://git.coding.net/＊＊＊＊＊.git(fetch)originhttps://git.coding.net/＊＊＊＊＊.git(push)修改远程仓库地址gitremoteset-urloriginhttps://git.coding.net/＊＊＊＊＊.git先删除后增加远程仓库地址gitremotermori
  • webpack图片等资源的处理 dmengmeng
    需要的loaderfile-loader（让我们可以引入这些资源文件）url-loader（其实是file-loader的二次封装）img-loader（处理图片所需要的）在没有使用任何处理图片的loader之前，比如说css中用到了背景图片，那么最后打包会报错的，因为他没办法处理图片。其实你只想能够使用图片的话。只加一个file-loader就可以，打开网页能准确看到图片。{test:/\.(p
  • Some jenkins settings SnC_
    Jenkins连接到特定gitlabproject的特定branch我采用的方法是在pipeline的script中使用git命令来指定branch。如下：stage('Clonerepository'){steps{gitbranch:'develop',credentialsId:'gitlab-credential-id',url:'http://gitlab.com/repo.git'}}
  • 自然语言处理_tf-idf _feivirus_ 算法机器学习和数学自然语言处理tf-idf逆文档频率词频
    importpandasaspdimportmath1.数据预处理docA="Thecatsatonmyface"docB="Thedogsatonmybed"wordsA=docA.split("")wordsB=docB.split("")wordsSet=set(wordsA).union(set(wordsB))print(wordsSet){'on','my','face','sat',
  • K近邻算法_分类鸢尾花数据集 _feivirus_ 算法机器学习和数学分类机器学习K近邻
    importnumpyasnpimportpandasaspdfromsklearn.datasetsimportload_irisfromsklearn.model_selectionimporttrain_test_splitfromsklearn.metricsimportaccuracy_score1.数据预处理iris=load_iris()df=pd.DataFrame(data=ir
  • APQP，ASPICE，敏捷，功能安全，预期安全，这些汽车行业的一堆标准 二大宝贝 安全架构
    前言APQP,ASPICE,敏捷，功能安全，预期安全，PMP，PRICE2汽车行业的有这样一堆标准。我是半路出家来到汽车行业做项目经理的，对几个标准的感觉是，看了文档和各种解析之后还是一头雾水，不知道到底说了个啥，别人问我还是一脸懵逼。APQP（TS16949的最重要工具），ASPICE（软件）这些是质量标准，是优化整个公司体系的，但这套体系对项目管理有要求；敏捷，PMP这些是项目管理的标准；项目
  • leetcode中等.数组(21-40)python 九日火 pythonleetcode
    80.RemoveDuplicatesfromSortedArrayII(m-21)Givenasortedarraynums,removetheduplicatesin-placesuchthatduplicatesappearedatmosttwiceandreturnthenewlength.Donotallocateextraspaceforanotherarray,youmustdoth
  • 前端代码上传文件 余生逆风飞翔 前端javascript开发语言
    点击上传文件import{ElNotification}from'element-plus'import{API_CONFIG}from'../config/index.js'import{UploadFilled}from'@element-plus/icons-vue'import{reactive}from'vue'import{BASE_URL}from'../config/index'i
  • 探索ASPICE V3.1：汽车行业软件开发的中文指南 阮懿同
    探索ASPICEV3.1：汽车行业软件开发的中文指南ASPICE_V3.1中文版.pdf.zip项目地址:https://gitcode.com/open-source-toolkit/422a2在汽车软件工程领域，高质量的标准对于确保行车安全和提升用户体验至关重要。今天，我们为您介绍一个珍贵的开源宝藏——ASPICEV3.1中文版资源。这是一篇专为国内汽车行业开发者、质量管理者准备的深度解读，旨
  • 2021-06-07 Do What You Are Meant To Do 春生阁
    Don’tgiveupontryingtofindbalanceinyourlife.Sticktoyourpriorities.Rememberwhat’smostimportanttoyouanddoeverythingyoucantoputyourselfinapositionwhereyoucanfocusonthosepriorities,ratherthanbeingpulledbyt
  • 使用python抽取post接口数据示例 中台小A pythonpython开发语言
    postman调用接口post接口https://inner-XXXXX.XXXXX.com/wXX/api/XXXXXctoryLake?user_key=XXXXXXXXXXXX，在boday的row里输入Jason格式的{"wasStartDay":"2024-09-03"}importrequestsurl='https://inner-XXXXX.XXXXX.com/wXX/api/XX
  • Nginx从入门到实践(三) 听你讲故事啊
    动静分离动静分离是将网站静态资源（JavaScript，CSS，img等文件）与后台应用分开部署，提高用户访问静态代码的速度，降低对后台应用访问。动静分离的一种做法是将静态资源部署在nginx上，后台项目部署到应用服务器上，根据一定规则静态资源的请求全部请求nginx服务器，达到动静分离的目标。rewrite规则Rewrite规则常见正则表达式Rewrite主要的功能就是实现URL的重写，Ngin
  • 使用input[type=file]遇上的一些问题 刘圣凯
    项目遇到一个需要，如下image.png功能大致就是添加图片，展示出来，然后在用户点击提交的时候把图片传给后台，在和后台交涉之后，决定在用户选择图片之后转成formdata传给后台，后台返回一个url，提交的时候将url返回给后台/**转formdata*/varformdata=newFormData();formdata.append("file1",$("#pic")[0].files[0]
  • 第三十一节:Vue路由:前端路由vs后端路由的了解 曹老师
    1.认识前端路由和后端路由前端路由相对于后端路由而言的,在理解前端路由之前先对于路由有一个基本的了解路由:简而言之,就是把信息从原地址传输到目的地的活动对于我们来说路由就是:根据不同的url地址展示不同的页面内容1.1后端路由以前咱们接触比较多的后端路由,当改变url地址时,浏览器会向服务器发送请求,服务器根据这个url,返回不同的资源内容后端路由的特点就是前端每次跳转到不同url地址,都会重新访
  • python编写直方图和饼图 2301_80421078 python开发语言
    1.直方图#直方图的绘制#语法格式：plt.hist(x,bins),其中x:数据集；bins:统计数据的分布区间importmatplotlib.pyplotaspltimportpandasaspd#导入文件excel=pd.read_excel('成绩.xlsx')#print(excel)#避免乱码plt.rcParams['font.sans-serif']=['SimHei']x=ex
  • python字符串相等怎么表示_python怎样判断字符串相等 weixin_39993989 python字符串相等怎么表示
    python字符串如何判断相等1.is来判断groupName=params['groupName']##groupName的值是'url'reqBody['dim']=groupNameprint("reqBody_dim-SummaryListHandler",reqBody['dim'])##('reqBody_dim-SummaryListHandler',u'url')print("re
  • pythonpandas函数详解_Python pandas常用函数详解 Senvn
    本文研究的主要是pandas常用函数，具体介绍如下。1import语句importpandasaspdimportnumpyasnpimportmatplotlib.pyplotaspltimportdatetimeimportre2文件读取df=pd.read_csv(path='file.csv')参数：header=None用默认列名，0，1，2，3...names=['A','B','C'
  • SPI机制 我们仍未知道那天所看见的猫的名
    1、SPI机制：ServiceProviderInterface：服务提供发现机制，类型IOCJavaSPI实现：ServiceLoader定义接口A；实现接口A的实现类，B和C；在/META-INF/services/下创建文件，文件名为A类的全名称，内容为B和C的类全名调用：ServiceLoaderload=ServiceLoader.load(A.class);Interatori=loa
  • python画出分子化学空间分布（UMAP） Sakaiay python
    利用umap画出分子化学空间分布图安装pipinstallumap-learn下面是用一个数据集举的例子importtorchimportumapimportpandasaspdimportnumpyasnpimportmatplotlib.pyplotaspltimportseabornassnsfromsklearn.manifoldimportTSNEfromrdkit.Chemimport
  • 了解 UNPKG：前端开发者的包管理利器 小于负无穷 前端javascripttypescriptcsshtml5node.js
    在现代前端开发中，JavaScript包管理和模块化是至关重要的，而npm则是最流行的JavaScript包管理器之一。不过，随着前端项目复杂性的增加，有时候我们希望快速引入外部依赖，而无需本地安装和构建。此时，CDN（内容分发网络）成为了一种方便快捷的解决方案，而UNPKG就是这种方式中的佼佼者。什么是UNPKG？UNPKG是一个基于npm的内容分发网络（CDN），它允许开发者直接通过URL从n
  • 若依后端正常启动但是uniapp移动端提示后端接口异常 大可大可抖 uni-app
    pc端能用模拟器也能正常连接接口，手机端真机调试连不上接口解决：1.先看config.js的填自己的ip地址module.exports={//baseUrl:'https://vue.ruoyi.vip/prod-api',baseUrl:"http://192.168.101.5:8080",}2.网络环境问题（防火墙）点击属性然后选择专用
  • Linux使用mjpg-streamer进行图像传输 —你的鼬先生 Linux驱动linux树莓派图像传输
    图像传输是一项在Linux操作系统中比较常见的一个操作，在视频图传时，一般是采用MJPG-streamer来进行图像传输，本文就以树莓派为例子，来示范一个图像传输。1.树莓派的摄像头激活首先更新树莓派sudoapt-getupdatesudoapt-getupgrade随后打开树莓派的配置界面，选择InterfaceOptionsudoraspi-config在InterfaceOption选择C
  • 分享一个基于python的电子书数据采集与可视化分析 hadoop电子书数据分析与推荐系统 spark大数据毕设项目（源码、调试、LW、开题、PPT) 计算机源码社 Python项目大数据大数据pythonhadoop计算机毕业设计选题计算机毕业设计源码数据分析spark毕设
    作者：计算机源码社个人简介：本人八年开发经验，擅长Java、Python、PHP、.NET、Node.js、Android、微信小程序、爬虫、大数据、机器学习等，大家有这一块的问题可以一起交流！学习资料、程序开发、技术解答、文档报告如需要源码，可以扫取文章下方二维码联系咨询Java项目微信小程序项目Android项目Python项目PHP项目ASP.NET项目Node.js项目选题推荐项目实战|p
  • python绘制等高线和等值面初步 bcbobo21cn 图形学和3Dpython开发语言MatplotlibNumPy等高线
    importmatplotlib.pyplotaspltimportnumpyasnpx=np.linspace(-5,6,210)y=np.linspace(-5,6,210)x,y=np.meshgrid(x,y)z=(1-x/2+x**5+y**4)*np.exp(-x**2-y**2)plt.contour(x,y,z,levels=9,colors='black')plt.show()i
  • MacOS Catalina 从源码构建Qt6.2开发库之01: 编译Qt6.2源代码 捕鲸叉 QTmacosc++QT
    安装xcode，cmake，ninjabrewinstallnodemac下安装OpenGL库并使之对各项目可见在macOS上安装OpenGL通常涉及到安装一些依赖库，如MGL、GLUT或者是GLEW等，同时确保LLVM的OpenGL框架和相关工具链的兼容性。以下是一个基本的安装步骤，你可以在终端中执行：安装Homebrew（如果还没有安装的话）：/bin/bash-c"$(curl-fsSLht
  • ComfyUI中的sam模型国内下载方法 jayli517 ComfyUIpythonstablediffusion
    was-node-suite-comfyui这个节点安装的时候，有它内部的config配置文件，里面其实给了一些下载地址，配置文件里是这么写的："sam_model_vith_url":"https://dl.fbaipublicfiles.com/segment_anything/sam_vit_h_4b8939.pth","sam_model_vitl_url":"https://dl.fba
  • python读写CSV文件 bcbobo21cn .Netpython开发语言机器学习CSV
    做数据分析，有时候要分析的数据在CSV文件里；先看一下python读写CSV文件；importpandasaspddf=pd.read_csv('test1.csv')print(df)print('')print(df.head(2))companyname=["A1","B2","E3","F4"]legperson=["lier","yanqi","wangwu","zhangsan"]le
  • python抓取网页内容401应该用哪个库_python3使用requests模块爬取页面内容入门 坂田月半
    python的爬虫相关模块有很多，除了requests模块，再如urllib和pycurl以及tornado等。相比而言，requests模块是相对简单易上手的。通过文本，大家可以迅速学会使用python的requests模块爬取页码内容。1.Requests唯一的一个非转基因的PythonHTTP库，人类可以安全享用。官网：http://cn.python-requests.org/zh_CN/
  • python的request请求401_Python模拟HTTPS请求返回HTTP 401 unauthorized错误 weixin_39599372
    Python模拟HTTPS请求返回HTTP401unauthorized错误开始是使用的httplib模块，代码如下：header={"Content-type":"application/json","Accept":"*/*"}params={‘source‘:‘en‘,‘target‘:‘es‘,‘text‘:match.group(1)}data=urllib.urlencode(para
  • 安装 `privoxy` 将 Socks5 转换为 HTTP 代理 MonkeyKing.sun 网络
    (base)shgbitai@shgbitai-C9X299-PGF:~/tools$curl-xhttp://127.0.0.1:1080https://registry-1.docker.io/v2/curl:(56)ProxyCONNECTaborted(base)shgbitai@shgbitai-C9X299-PGF:~/tools$curl-xhttps://127.0.0.1:108
  • js动画html标签（持续更新中） 843977358 htmljs动画mediaopacity
    1.jQuery 效果 - animate() 方法    改变 "div" 元素的高度：    $(".btn1").click(function(){      $("#box").animate({height:"300px
  • springMVC学习笔记 caoyong springMVC
    1、搭建开发环境    a>、添加jar文件，在ioc所需jar包的基础上添加spring-web.jar,spring-webmvc.jar    b>、在web.xml中配置前端控制器       <servlet>     &nbs
  • POI中设置Excel单元格格式 107x poistyle列宽合并单元格自动换行
    引用：http://apps.hi.baidu.com/share/detail/17249059 POI中可能会用到一些需要设置EXCEL单元格格式的操作小结： 先获取工作薄对象: HSSFWorkbook wb = new HSSFWorkbook(); HSSFSheet sheet = wb.createSheet(); HSSFCellStyle setBorder = wb.
  • jquery 获取A href 触发js方法的this参数 无效的情况 一炮送你回车库 jquery
    html如下：  <td class=\"bord-r-n bord-l-n c-333\"> <a class=\"table-icon edit\" onclick=\"editTrValues(this);\">修改</a> </td>"   j
  • md5 3213213333332132 MD5
    import java.security.MessageDigest; import java.security.NoSuchAlgorithmException; public class MDFive { public static void main(String[] args) { String md5Str = "cq
  • 完全卸载干净Oracle11g sophia天雪 orale数据库卸载干净清理注册表
    完全卸载干净Oracle11g A、存在OUI卸载工具的情况下：     第一步：停用所有Oracle相关的已启动的服务；     第二步：找到OUI卸载工具：在“开始”菜单中找到“oracle_OraDb11g_home”文件夹中         &
  • apache 的access.log 日志文件太大如何解决 darkranger apache
    CustomLog logs/access.log common  此写法导致日志数据一致自增变大。 直接注释上面的语法 #CustomLog logs/access.log common 增加： CustomLog "|bin/rotatelogs.exe -l logs/access-%Y-%m-d.log 
  • Hadoop单机模式环境搭建关键步骤 aijuans 分布式
            Hadoop环境需要sshd服务一直开启，故，在服务器上需要按照ssh服务，以Ubuntu Linux为例，按照ssh服务如下： sudo apt-get install ssh sudo apt-get install rsync 编辑HADOOP_HOME/conf/hadoop-env.sh文件，将JAVA_HOME设置为Java
  • PL/SQL DEVELOPER 使用的一些技巧 atongyeye javasql
    1 记住密码 这是个有争议的功能，因为记住密码会给带来数据安全的问题。 但假如是开发用的库，密码甚至可以和用户名相同，每次输入密码实在没什么意义，可以考虑让PLSQL Developer记住密码。 位置：Tools菜单－－Preferences－－Oracle－－Logon HIstory－－Store with password 2 特殊Copy 在SQL Window
  • PHP：在对象上动态添加一个新的方法 bardo 方法动态添加闭包
    有关在一个对象上动态添加方法，如果你来自Ruby语言或您熟悉这门语言，你已经知道它是什么...... Ruby提供给你一种方式来获得一个instancied对象，并给这个对象添加一个额外的方法。   好！不说Ruby了，让我们来谈谈PHP   PHP未提供一个“标准的方式”做这样的事情，这也是没有核心的一部分...   但无论如何，它并没有说我们不能做这样
  • ThreadLocal与线程安全 bijian1013 javajava多线程threadLocal
    首先来看一下线程安全问题产生的两个前提条件：  1.数据共享，多个线程访问同样的数据。  2.共享数据是可变的，多个线程对访问的共享数据作出了修改。    实例：         定义一个共享数据： public static int a = 0;        
  • Tomcat 架包冲突解决 征客丶 tomcatWeb
    环境： Tomcat 7.0.6 win7 x64 错误表象：【我的冲突的架包是：catalina.jar 与 tomcat-catalina-7.0.61.jar 冲突，不知道其他架包冲突时是不是也报这个错误】 严重: End event threw exception java.lang.NoSuchMethodException: org.apache.catalina.dep
  • 【Scala三】分析Spark源代码总结的Scala语法一 bit1129 scala
    Scala语法 1. classOf运算符 Scala中的classOf[T]是一个class对象，等价于Java的T.class,比如classOf[TextInputFormat]等价于TextInputFormat.class    2. 方法默认值 defaultMinPartitions就是一个默认值，类似C++的方法默认值    
  • java 线程池管理机制 BlueSkator java线程池管理机制
    编辑 Add Tools   jdk线程池   一、引言 第一：降低资源消耗。通过重复利用已创建的线程降低线程创建和销毁造成的消耗。第二：提高响应速度。当任务到达时，任务可以不需要等到线程创建就能立即执行。第三：提高线程的可管理性。线程是稀缺资源，如果无限制的创建，不仅会消耗系统资源，还会降低系统的稳定性，使用线程池可以进行统一的分配，调优和监控。  
  • 关于hql中使用本地sql函数的问题（问-答） BreakingBad HQL存储函数
    转自于：http://www.iteye.com/problems/23775 问： 我在开发过程中，使用hql进行查询（mysql5）使用到了mysql自带的函数find_in_set()这个函数作为匹配字符串的来讲效率非常好，但是我直接把它写在hql语句里面（from ForumMemberInfo fm,ForumArea fa where find_in_set(fm.userId,f
  • 读《研磨设计模式》-代码笔记-迭代器模式-Iterator bylijinnan java设计模式
    声明： 本文只为方便我个人查阅和理解，详细的分析以及源代码请移步 原作者的博客http://chjavach.iteye.com/ import java.util.Arrays; import java.util.List; /** * Iterator模式提供一种方法顺序访问一个聚合对象中各个元素，而又不暴露该对象内部表示 * * 个人觉得，为了不暴露该
  • 常用SQL chenjunt3 oraclesqlC++cC#
    --NC建库 CREATE TABLESPACE NNC_DATA01 DATAFILE 'E:\oracle\product\10.2.0\oradata\orcl\nnc_data01.dbf' SIZE 500M AUTOEXTEND ON NEXT 50M EXTENT MANAGEMENT LOCAL UNIFORM SIZE 256K ; CREATE TABLESPA
  • 数学是科学技术的语言 comsci 工作活动领域模型
      从小学到大学都在学习数学，从小学开始了解数字的概念和背诵九九表到大学学习复变函数和离散数学，看起来好像掌握了这些数学知识，但是在工作中却很少真正用到这些知识，为什么？    最近在研究一种开源软件-CARROT2的源代码的时候，又一次感觉到数学在计算机技术中的不可动摇的基础作用，CARROT2是一种用于自动语言分类（聚类）的工具性软件，用JAVA语言编写，它
  • Linux系统手动安装rzsz 软件包 daizj linuxszrz
    1、下载软件 rzsz-3.34.tar.gz。登录linux，用命令 wget http://freeware.sgi.com/source/rzsz/rzsz-3.48.tar.gz下载。 2、解压 tar zxvf  rzsz-3.34.tar.gz 3、安装  cd rzsz-3.34 ; make posix 。注意：这个软件安装与常规的GNU软件不
  • 读源码之:ArrayBlockingQueue dieslrae java
        ArrayBlockingQueue是concurrent包提供的一个线程安全的队列,由一个数组来保存队列元素.通过 takeIndex和 putIndex来分别记录出队列和入队列的下标,以保证在出队列时 不进行元素移动. //在出队列或者入队列的时候对takeIndex或者putIndex进行累加,如果已经到了数组末尾就又从0开始,保证数
  • C语言学习九枚举的定义和应用 dcj3sjt126com c
    枚举的定义 # include <stdio.h> enum WeekDay { MonDay, TuesDay, WednesDay, ThursDay, FriDay, SaturDay, SunDay }; int main(void) { //int day; //day定义成int类型不合适 enum WeekDay day = Wedne
  • Vagrant 三种网络配置详解 dcj3sjt126com vagrant
    Forwarded port Private network Public network Vagrant 中一共有三种网络配置，下面我们将会详解三种网络配置各自优缺点。 端口映射(Forwarded port)，顾名思义是指把宿主计算机的端口映射到虚拟机的某一个端口上，访问宿主计算机端口时，请求实际是被转发到虚拟机上指定端口的。Vagrantfile中设定语法为： c
  • 16.性能优化-完结 frank1234 性能优化
    性能调优是一个宏大的工程，需要从宏观架构(比如拆分，冗余，读写分离，集群，缓存等)， 软件设计（比如多线程并行化，选择合适的数据结构）， 数据库设计层面（合理的表设计，汇总表，索引，分区，拆分，冗余等） 以及微观（软件的配置，SQL语句的编写，操作系统配置等）根据软件的应用场景做综合的考虑和权衡，并经验实际测试验证才能达到最优。 性能水很深， 笔者经验尚浅 ，赶脚也就了解了点皮毛而已，我觉得
  • Word Search hcx2013 search
    Given a 2D board and a word, find if the word exists in the grid. The word can be constructed from letters of sequentially adjacent cell, where "adjacent" cells are those horizontally or ve
  • Spring4新特性——Web开发的增强 jinnianshilongnian springspring mvcspring4
    Spring4新特性——泛型限定式依赖注入 Spring4新特性——核心容器的其他改进 Spring4新特性——Web开发的增强 Spring4新特性——集成Bean Validation 1.1(JSR-349)到SpringMVC  Spring4新特性——Groovy Bean定义DSL Spring4新特性——更好的Java泛型操作API  Spring4新
  • CentOS安装配置tengine并设置开机启动 liuxingguome centos
    yum install gcc-c++  yum install pcre pcre-devel  yum install zlib zlib-devel  yum install openssl openssl-devel Ubuntu上可以这样安装 sudo aptitude install libdmalloc-dev libcurl4-opens
  • 第14章 工具函数（上） onestopweb 函数
    index.html <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/
  • Xelsius 2008 and SAP BW at a glance blueoxygen BOXelsius
    Xelsius提供了丰富多样的数据连接方式，其中为SAP BW专属提供的是BICS。那么Xelsius的各种连接的优缺点比较以及Xelsius是如何直接连接到BEx Query的呢？ 以下Wiki文章应该提供了全面的概览。   http://wiki.sdn.sap.com/wiki/display/BOBJ/Xcelsius+2008+and+SAP+NetWeaver+BW+Co
  • oracle表空间相关 tongsh6 oracle
    在oracle数据库中，一个用户对应一个表空间，当表空间不足时，可以采用增加表空间的数据文件容量，也可以增加数据文件，方法有如下几种： 1.给表空间增加数据文件    ALTER TABLESPACE "表空间的名字" ADD DATAFILE    '表空间的数据文件路径' SIZE 50M;   &nb
  • .Net framework4.0安装失败 yangjuanjava .netwindows
    上午的.net framework 4.0，各种失败，查了好多答案，各种不靠谱，最后终于找到答案了 和Windows Update有关系，给目录名重命名一下再次安装，即安装成功了！ 下载地址：http://www.microsoft.com/en-us/download/details.aspx?id=17113 方法： 1.运行cmd，输入net stop WuAuServ 2.点击开
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他