搜索列表
-
VBS、ASP代码语法加亮显示的类
【ASP编程】复制代码 代码如下:<% Class cBuffer Private objFSO, objFile, objDict Private m_strPathToFile, m_TableBGColor, m_StartTime Private m_EndTime, m_LineCount, m_intKeyMin, m_intKeyMax Private m_C...
VBS、ASP代码语法加亮显示的类 -
解决ASP（图像）上传漏洞的方法
【ASP编程】经常听说的ASP上传漏洞，即是将一些木马文件修改后缀名（修改为图像文件后缀），进行上传。 针对此情况使用下列函数进行辨别：复制代码 代码如下:<% '****************************************************************** 'CheckFileType 函数用来检查文件是否为图片文件 '参数filename是本地文件的路径 '如...
解决ASP（图像）上传漏洞的方法 -
如何将访问者数目周期性地保存？
【编程10000问】如何将访问者数目周期性地保存？<script LANGUAGE="VBScript" RUNAT="Server">SUB Session-OnStart...Application.LockApplication("visitors")=Application("visitors") + 1' 增加访问计数t-visitors = Application("visitors")Application.UnLockSession("VisitorID")=t-visitorsI...
|如何|何将|将访|访问|问者|者数|数目|目周|周期|期性|性地|地保|保存|存？|？| -
如何利用当前时间生成随机函数？
【编程10000问】quote.asp<%Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject")Set MyTextFile = MyFileObj.OpenTextFile("c:\quote.txt")' 设置好路径.IF NOT MyTextFile.AtEndOfStream THENheader = CInt(MyTextFile.ReadLine)' 读表头.END IFRANDOMIZE' 生成...
|如何|何利|利用|用当|当前|前时|时间|间生|生成|成随|随机|机函|函数|数？|？| -
如何制作一个文本文件编辑器？
【编程10000问】newdoc.asp<%@ Language=VBScript %><script id=DebugDirectives runat=server language=javascript>//Set these to true to enable debugging or tracing@set @debug=false@set @trace=false</script><html><head><META name=VI60_defaultClientScr...
|如何|何制|制作|作一|一个|个文|文本|本文|文件|件编|编辑|辑器|器？|？| -
如何在线查询本地机的文件？
【编程10000问】<html><head><title>随风起舞之文件查询</title></head><body><p align="center" > <b><font face="宋体" color="red" size="5"> 星河影动之文件查询系统</font></b></p><hr><form method="PO...
|如何|何在|在线|线查|查询|询本|本地|地机|机的|的文|文件|件？|？| -
如何获知文件被改动的情况？
【编程10000问】Function File_GetLastModified( sFile )Dim objFileObj, objFile Set objFileObj = CreateObject("Scripting.FileSystemObject") If sFile = "" Then sFile = Server.MapPath( Request.ServerVariables("script_NAME") ) End If Set objFile ...
|如何|何获|获知|知文|文件|件被|被改|改动|动的|的情|情况|况？|？| -
如何获知并显示文件的大小？
【编程10000问】<%Set MyFileSize = Server.CreateObject ("Scripting.FileSystemObject")MyPath = Server.MapPath("/somedirectory")Set MyFolder = MyFileSize.GetFolder(MyPath)%><p><% =MyPath %> is <% =MyFolder.Size %> bytes</p> ...
|如何|何获|获知|知并|并显|显示|示文|文件|件的|的大|大小|小？|？| -
如何对一个文件夹进行创建和删除？
【编程10000问】如何对一个文件夹进行创建和删除？<% set fs=createobject("scripting.filesystemobject") %><% MyFolder=server.mappath("/chunfeng/happy/") %><%If NOT fs.folderexists(MyFolder) then fs.createfolder(MyFolder)End If%> <%If fs.folde...
|如何|何对|对一|一个|个文|文件|件夹|夹进|进行|行创|创建|建和|和删|删除|除？|？| -
如何对文件进行操作？
【编程10000问】<%@ LANGUAGE="VBScript" %><% 'Set file i/o constants. Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 filename = "test.txt" path = Server.MapPath("data") & "\" & filename ' 映射...
|如何|何对|对文|文件|件进|进行|行操|操作|作？|？| -
如何创建一个PDF文件？
【编程10000问】 <%Option ExplicitSub CheckXlDriver() On Error Resume Next Dim vConnString Dim oConn, oErr vConnString = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=NUL:" &n...
|如何|何创|创建|建一|一个|个P|PD|DF|F文|文件|件？|？| -
如何用表单在线建立目录？
【编程10000问】creatfolder.htm' 表单文件.<form name="form1" method="post" action="folder.asp">创建一个文件夹: <input type="text" name="name"><input type="submit" name="Submit" value="提交"></form> folder.asp<%@ LANGUAGE = "VBScript" %><% Dim...
|如何|何用|用表|表单|单在|在线|线建|建立|立目|目录|录？|？|
