搜索列表
-
如何实现非大小写的替换？
【编程10000问】如何实现非大小写的替换？Function ReplaceNoIgnoreCase(str,replStr) If len(replStr)<1 or str="" Then ReplaceTest=str Exit function End If ...
|如何|何实|实现|现非|非大|大小|小写|写的|的替|替换|换？|？| -
如何编写一个加法器？
【编程10000问】如何编写一个加法器？<form action="./calculation.asp"><input type="text" size="1" name="op1 value=<%Response.Write Request("op1")%>><input type="submit" name="operation value="plus"><input type="text" size="1" name="op2 value=<%Response.Write Request(...
|如何|何编|编写|写一|一个|个加|加法|法器|器？|？| -
如何编写一个创建FTP站点的函数？
【编程10000问】如何编写一个创建FTP站点的函数？Function ASTCreateFtpSite(IPAddress, RootDirectory, ServerComment, HostName, PortNum, Computer, Start,LogFileDirectory) Dim MSFTPSVC, FtpServer, ...
|如何|何编|编写|写一|一个|个创|创建|建F|FT|TP|P站|站点|点的|的函|函数|数？|？| -
如何编写一个过滤掉HTML代码的函数？
【编程10000问】如何编写一个过滤掉HTML代码的函数？<%Function Filterhtml(strToFilter) Dim strTemp strTemp = strToFilter While Instr(1,strTemp,"<") AND Instr(1, strTemp, ">") strTemp = Left(strTemp, Instr(1, strTemp, "<")-1) & Rig...
|如何|何编|编写|写一|一个|个过|过滤|滤掉|掉H|HT|TM|ML|L代|代码|码的|的函|函数|数？|？| -
如何实现歌曲在线点播？
【编程10000问】<%dim choose,path,mydb,myset,SQL,fs,mp3' 获得用户提交表单(list.htm)选中的曲目对应的id号,并将其赋给字串变量choose. choose=“("for i=3 to request.form.countchoose=choose＋request.form(i)＋“,"nextchoose=left(choose,len(choose)－1)＋“)"if choose=“()" thenresponse.redirect(“list.htm")resp...
|如何|何实|实现|现歌|歌曲|曲在|在线|线点|点播|播？|？| -
如何做一个只搜索本网站的引擎？
【编程10000问】searchfiles.html <html><head><title>撼雪喷云之本网搜索引擎</title></head><body><form method="POST" action="cgi-bin/searchfiles.asp"> <table border="0" cellpadding="5" bgcolor="#C2E7E3"> <tr&...
|如何|何做|做一|一个|个只|只搜|搜索|索本|本网|网站|站的|的引|引擎|擎？|？| -
如何做一个文本搜索？
【编程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...
|如何|何做|做一|一个|个文|文本|本搜|搜索|索？|？| -
如何用FileSystemObject组件来做一个站内搜索？
【编程10000问】searchpage.htm' 搜索页面.<html><head> <title>千花飞舞之站内搜索引擎</title> </head> <body> <CENTER> &...
|如何|何用|用F|Fi|il|le|eS|Sy|ys|st|te|em|mO|Ob|bj|je|ec|ct|t组|组件|件来|来做|做一|一个|个站|站内|内 -
如何分页显示数据库查询结果？
【编程10000问】<% if Request.QueryString("PageNumber").count > 0 then ' 指定页号的参数PageNumber.如果指定页号,则以指定页号为依据. PageNumber = Request.QueryString("PageNumber")(1)elsePageNumber = 1' 如没指定页号,缺省为1.end ifRecordNumberPerPage = 10 ' 每页显示10条记录. set AR...
|如何|何分|分页|页显|显示|示数|数据|据库|库查|查询|询结|结果|果？|？| -
如何实现全文检索？
【编程10000问】<%@ LANGUAGE="VBscript" %> <html> <head> <meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0"> <meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312-80"> <title>星河影动之全文检索...
|如何|何实|实现|现全|全文|文检|检索|索？|？| -
如何编写翻页函数？
【编程10000问】page.inc<% Sub ShowPageBar(TotalPage,CurPage,strUrl) ' 参数TotalPage:全部页数;CurPage:当前页数;strUrl:翻页使用的连接地址. DIM strPage CurPage=GetValidPageNO(TotalPage,CurPage) Response.Write "<TABLE WIDTH=''100%''>" Response.Write "<tr><...
|如何|何编|编写|写翻|翻页|页函|函数|数？|？| -
如何用组件实现自动发送电子邮件？
【编程10000问】如何用组件实现自动发送电子邮件？JMailUploadAutoForm.asp<html><body><font face="verdana, arial" size="2"><b><form method="post" action="JmailUploadAutoFormProcess.asp" ENCTYPE="multipart/form-data"><p>撼雪喷云之动发送电子邮件</p...
|如何|何用|用组|组件|件实|实现|现自|自动|动发|发送|送电|电子|子邮|邮件|件？|？|
