搜索列表
-
如何做一个文本搜索？
【编程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问】<%@ 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><...
|如何|何编|编写|写翻|翻页|页函|函数|数？|？| -
如何用POP3接收电子邮件？
【编程10000问】<% Set pop3 = Server.CreateObject( "JMail.POP3" ) pop3.Connect "username", "password", "pop3mail.intels.net" ' POP3的连接用户名,密码,POP3地址. Response.Write( "你现在有" & pop3.count & " 封邮件。<br><br>" ) if pop3....
|如何|何用|用P|PO|OP|P3|3接|接收|收电|电子|子邮|邮件|件？|？| -
如何判断电子邮件的地址格式是否正确？
【编程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 ...
|如何|何判|判断|断电|电子|子邮|邮件|件的|的地|地址|址格|格式|式是|是否|否正|正确|确？|？| -
如何获知页面上的图象的实际尺寸？
【编程10000问】如何获知页面上的图象的实际尺寸？<!--#include virtual="/intels/chunfeng/graphicdetect.asp"--><html><head><title>千花飞舞之获知图像尺寸</title></head><body><% graphic="images/intels.gif" HW = ReadImg(graphic) Response...
|如何|何获|获知|知页|页面|面上|上的|的图|图象|象的|的实|实际|际尺|尺寸|寸？|？| -
如何用数据库制作一个多用户版的计数器？
【编程10000问】count.asp' 计数器的核心程序.<%Set conn = Server.CreateObject("ADODB.Connection")dbpath=server.MapPath("count.mdb")conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&DbPathuser=Request.QueryString("user")sql="update counttable set curvalue=curvalue+1 where user='"...
|如何|何用|用数|数据|据库|库制|制作|作一|一个|个多|多用|用户|户版|版的|的计|计数|数器|器？|？| -
如何随机显示图片计数器？
【编程10000问】count.asp＜ html ＞＜ head ＞＜ meta http-equiv="Content-Type"content="text/html; charset=gb2312" ＞＜title＞随风起舞之千变计数器＜/title＞＜/head＞＜body＞＜p＞＜%dim outcountfile=server.mappath("aspcount.txt")set objfile=server.createobject("scripting.filesystemobject")' 定义一个服务器组件.se...
|如何|何随|随机|机显|显示|示图|图片|片计|计数|数器|器？|？| -
如何制作一个Web日程安排表？
【编程10000问】chunfeng.asp' 该页面可以看到已安排了哪些事情,并在底部链接可按月前后翻动.' 该代码包含获得数据连接的函数,如果数据源一旦有变化,则只有一个位置需要编辑连接信息(服务器、用户和口令). <@ LANGUAGE="VBscript" ENABLESESSIONSTATE = False ％＞ ＜％ ' 表...
|如何|何制|制作|作一|一个|个W|We|eb|b日|日程|程安|安排|排表|表？|？| -
如何判断URL格式是否符合规范？
【编程10000问】<% function checkisUrl(tmpString) dim c,i checkisUrl = true tmpString=Lcase(trim(tmpString)) if left(tmpString,7)<>"http://" then tmpString="http://"&tmpString &n...
|如何|何判|判断|断U|UR|RL|L格|格式|式是|是否|否符|符合|合规|规范|范？|？| -
如何计算下载一个文件需要多长时间？
【编程10000问】<%Function DownloadTime(intFileSize, strModemType)Dim TimeInSeconds, ModemSpeed, strDownloadTime, AppendStringDim intYears, intWeeks, intDaysDim intHours, intMinutes, intSecondsintYears = 0intWeeks = 0intDays = 0intHours = 0intMinutes = 0intSeconds = 0strDow...
|如何|何计|计算|算下|下载|载一|一个|个文|文件|件需|需要|要多|多长|长时|时间|间？|？| -
如何把中文转换为UNICODE？
【编程10000问】<%function unicode(str)dim i,j,c,i1,i2,u,fs,f,punicode=""p=""for i=1 to len(str)c=mid(str,i,1)j=ascw(c)if j<0 thenj=j+65536end ifif j>=0 and j<=128 thenif p="c" thenunicode=" "&unicodep="e"end ifunicode=unicode&celseif p="e" thenunicode=unicode&" "p="c"end ifunicode...
|如何|何把|把中|中文|文转|转换|换为|为U|UN|NI|IC|CO|OD|DE|E？|？|
