搜索列表
-
多域名一网站时如果返回最原来的域名
【ASP编程】<% host=lcase(request.servervariables("HTTP_HOST")) SELECT CASE host Just change the CASE to your domains CASE "www.designbliss.com.au" Below is the redirect&...
多域名一网站时如果返回最原来的域名 -
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代码语法加亮显示的类 -
如何做一个只搜索本网站的引擎？
【编程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问】第一种办法：<% 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 ...
|如何|何判|判断|断电|电子|子邮|邮件|件的|的地|地址|址格|格式|式是|是否|否正|正确|确？|？| -
如何判断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格|格式|式是|是否|否符|符合|合规|规范|范？|？| -
如何把中文转换为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？|？| -
如何把URL和邮件地址转换为超级链接？
【编程10000问】Function InsertHyperlinks(inText)Dim objRegExp, strBufDim objMatches, objMatchDim Value, ReplaceValue, iStart, iEnd strBuf = "" iStart = 1 iEnd = 1 Set objRegExp = New RegExp objRegExp.Pattern = "\b(www|http|\S+@)\S+\b" ' 判...
|如何|何把|把U|UR|RL|L和|和邮|邮件|件地|地址|址转|转换|换为|为超|超级|级链|链接|接？|？| -
网上考试设计思路是怎样的？
【编程10000问】global.asa < script LANGUAGE=VBScript RUNAT=Server >Sub Application_OnStart dbPath = "DBQ=" & Server.Mappath("onlinetest.mdb") dbConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; " & dbPath ...
|网上|上考|考试|试设|设计|计思|思路|路是|是怎|怎样|样的|的？|？| -
如何判断电子邮件的地址格式是否正确？
【编程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 ...
|如何|何判|判断|断电|电子|子邮|邮件|件的|的地|地址|址格|格式|式是|是否|否正|正确|确？|？| -
如何判断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格|格式|式是|是否|否符|符合|合规|规范|范？|？|
