搜索列表
-
google sitemap.asp
【ASP编程】用于生成sitemap.xml文件的东西，利于google等搜索引擎的抓取。复制代码 代码如下:<% Server.ScriptTimeout=50000 ' sitemap_gen.asp ' A simple script to automatically produce sitemaps for a webserver, in the G...
googlesitemap.asp -
解决ASP（图像）上传漏洞的方法
【ASP编程】经常听说的ASP上传漏洞，即是将一些木马文件修改后缀名（修改为图像文件后缀），进行上传。 针对此情况使用下列函数进行辨别：复制代码 代码如下:<% '****************************************************************** 'CheckFileType 函数用来检查文件是否为图片文件 '参数filename是本地文件的路径 '如...
解决ASP（图像）上传漏洞的方法 -
在asp中通过getrows实现数据库记录分页的一段代码
【ASP编程】复制代码 代码如下:<%@ Language = VBSCRIPT %> <% Option Explicit %> <% rem 在asp中通过getrows实现数据库记录分页的一段代码 Dim iStart, iOffset &nbs...
在asp中通过getrows实现数据库记录分页的一段代码 -
如何获取文件的名称和扩展名？
【编程10000问】 <%Function getFilename(text)text = Left(text,inStrRev(fl,".")-1)getFilename = text End Function Function getExtn(text)text = Left(text,inStr(text,".")-1)getExtn = textEnd Function%>[1]
|如何|何获|获取|取文|文件|件的|的名|名称|称和|和扩|扩展|展名|名？|？| -
如何读取文本文件的内容？
【编程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问】<%@ Language = VBScript%><%Response.Expires = 0p = "abcdefg"Set TestPWD = New CPassWordTestPWD.EnPWD pTestPWD.UnPWD TestPWD.ShowPWD(True)k = TestPWD.ShowPWD(True)l = TestPWD.ShowPWD(False)Set TestPWD = NothingWith Resp...
|怎样|样给|给文|文件|件加|加密|密最|最安|安全|全？|？| -
如何把一长串数字分位显示？
【编程10000问】<%Function Comma(str)If Not(IsNumeric(str)) Or str = 0 Then Result = 0ElseIf Len(Fix(str)) < 4 Then Result = strElse Pos = Instr(1,str,".") If Pos > 0 Then Dec = Mid(str,Pos) End if Res = StrReverse(Fix(str)) ...
|如何|何把|把一|一长|长串|串数|数字|字分|分位|位显|显示|示？|？| -
如何做一个文本搜索？
【编程10000问】<%head = "搜索"SearchString = Request("SearchString")count=0Function UnMapPath( Path ) UnMapPath = Replace(Mid(Path, Len(Server.MapPath("/")) + 1), "\", "/")' 把当前目录的实际路径转换为虚拟路径.End FunctionFunction SearchFile( f, s, title ) Set fo = f...
|如何|何做|做一|一个|个文|文本|本搜|搜索|索？|？| -
如何判断电子邮件的地址格式是否正确？
【编程10000问】第一种办法：<% Function IsValidEmail(Email) ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr ...
|如何|何判|判断|断电|电子|子邮|邮件|件的|的地|地址|址格|格式|式是|是否|否正|正确|确？|？| -
如何把一个Excel文件放到ASP页面中去？
【编程10000问】<%set xlApp = Server.CreateObject("Excel.Application")xlApp.Visible = false' 使服务端不出现Excel窗口.set myWorkbook = xlApp.Workbooks.Add' 建立一个worksheet.set myWorksheet = myWorkbook.Worksheets(1)myWorksheet.Range("A1").Value = '精彩春风通讯录'myWorksheet.Range("A1")...
|如何|何把|把一|一个|个E|Ex|xc|ce|el|l文|文件|件放|放到|到A|AS|SP|P页|页面|面中|中去|去？|？| -
如何判断电子邮件的地址格式是否正确？
【编程10000问】第一种办法：<% Function IsValidEmail(Email) ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr ...
|如何|何判|判断|断电|电子|子邮|邮件|件的|的地|地址|址格|格式|式是|是否|否正|正确|确？|？| -
Window Media Player 播放器
【网页播放器】比较吃力的地方是drop到播放列表，查MSDN查了n久，还有Window Media Player 6.x插件的play有些奇怪，所以我的代码也有些奇怪........ 拜托各位多测测，有Bug您说话，看我做的也挺不容易的，觉得好的您也多捧捧场。 My HTML Player body { overflow:auto; font-size:12px; cursor:default; } ...
WindowMediaPlayer播放器
