搜索列表
-
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问】forget.asp' 申请.<html><head><title>闪亮日子之用户密码核实</title></head><div align="center"><center><table border="0" cellspacing="0" width="600" height="158" > <tr> <td height="67"><p alig...
|如何|何取|取回|回已|已忘|忘记|记的|的密|密码|码？|？| -
如何利用当前时间生成随机函数？
【编程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问】<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library"--><% Dim objStream Set objStream = Server.CreateObject("ADODB.Stream") ' 创建一个Stre...
|如何|何实|实现|现无|无组|组件|件上|上传|传二|二进|进制|制文|文件|件？|？| -
如何实现文件上传并自动归类功能？
【编程10000问】upload.asp <form action=http://<％= Request. ServerVariables(SERVER_NAME)>/wdread.asp method=post> <p>主题: <input type=text name=subject><br> 作者:<input name=author type=text><br> ...
|如何|何实|实现|现文|文件|件上|上传|传并|并自|自动|动归|归类|类功|功能|能？|？| -
如何制作一个文本文件编辑器？
【编程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问】<%@ LANGUAGE="VBScript" %><% 'Set file i/o constants. Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 filename = "test.txt" path = Server.MapPath("data") & "\" & filename ' 映射...
|如何|何对|对文|文件|件进|进行|行操|操作|作？|？| -
如何显示一个文本文件？
【编程10000问】 Write（StrING） WriteLine（StrING） WriteBlankLines（LINES） 〈html〉 〈head〉 〈http-equiv="Content-Type" content="text/html; charset=gb2312"〉 〈title〉春风精彩之文本文件显示〈/title〉 〈/head〉 〈body〉 <%...
|如何|何显|显示|示一|一个|个文|文本|本文|文件|件？|？| -
如何读取文本文件的内容？
【编程10000问】<%Dim writeDim fileSysObj, tf, readread = "intels.txt"' 读取intels.txt. read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath(Request.ServerVariables("PATH_INFO")), "\")) & read' 检索要读的文件的完整路径.Set fileSysOb...
|如何|何读|读取|取文|文本|本文|文件|件的|的内|内容|容？|？| -
如何一行行地读取文件？
【编程10000问】dim input(30) ' 定义一个数组,大小可随时更改.这里为了显示方便.file_path=Server.Mappath("index.html")Set fs=Server.CreateObject("Scripting.FileSystemObject")Set file_open=fs.OpenTextFile(file_path)n=0Do While Not file_open.AtEndOfStreamn=n+1fileline=file_open.readlineinput(i)=file...
|如何|何一|一行|行行|行地|地读|读取|取文|文件|件？|？| -
如何用下拉列表显示数据库里的内容？
【编程10000问】<%Dim objDC, objRSSet objDC = Server.CreateObject("ADODB.Connection")objDC.ConnectionTimeout = 15objDC.CommandTimeout = 30' 创建数据库连接objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverI...
|如何|何用|用下|下拉|拉列|列表|表显|显示|示数|数据|据库|库里|里的|的内|内容|容？|？|
