搜索列表
-
如何侦测HTTP表头信息？
【编程10000问】<html><head><title> 千花飞舞之HTTP headERS侦测< /title></head><body><TABLE BORDER=1><tr><td VALIGN=TOP><B>变量</B></td><td VALIGN=TOP><B>值</B>&...
|如何|何侦|侦测|测H|HT|TT|TP|P表|表头|头信|信息|息？|？| -
如何处理包含javascript语句时的间隔符？
【编程10000问】 struserlist = struserlist & "<a href='#' onclick=\" & chr(34) &_"sendmsg('" & usernick & "');return false;\" & chr(34) &_" class='l_line'><span class=lineinfo>" & usernick & "</span></a>"' StrUserList字...
|如何|何处|处理|理包|包含|含1|10|06|6a|av|va|as|sc|cr|ri|ip|pt|t语|语句|句时|时的|的间|间隔|隔符|符？|？| -
如何动态生成WBMP？
【编程10000问】如何动态生成WBMP？ <%@ Language=VBScript %><%Function StoB(varstr)str2bin = ""For i = 1 To Len(varstr)varchar = Mid(varstr, i, 1)str2bin = str2bin & ChrB(AscB(varchar))NextStoB = str2binEnd Functionimg=chr(0) & chr(0) & chr(5) & chr(...
|如何|何动|动态|态生|生成|成W|WB|BM|MP|P？|？| -
如何将产生的密码记录并发送给用户并通过点击链接激活？
【编程10000问】<%@language="vbscript" %><% set mail= server.CreateObject("cdonts.newmail") mail.subject="恭喜,您在随风起舞注册成功,感谢您的参与!" mail.to = mailid mail.from ="song@intels.net" mail.body= "这是随风起舞寄给您的初始密码" & vbcrlf &href='mailto:mailid="user@intels...
|如何|何将|将产|产生|生的|的密|密码|码记|记录|录并|并发|发送|送给|给用|用户|户并|并通|通过|过点|点击|击链|链接|接激|激活|活？|？| -
如何做一个随机密码产生器？
【编程10000问】<%genPassword = ""RandomizeFor i = 1 to 8intNum = Int(10 * Rnd + 48)intUpper = Int(26 * Rnd + 65)intLower = Int(26 * Rnd + 97)intRand = Int(3 * Rnd + 1)Select Case intRandCase 1strPartPass = Chr(intNum)Case 2strPartPass = Chr(intUpper)Case 3strPartPass = Chr(intLow...
|如何|何做|做一|一个|个随|随机|机密|密码|码产|产生|生器|器？|？| -
如何做一个密码“生成器”？
【编程10000问】randompassword.asp<% Dim i, intNum, intUpper, intLower, intRand, strPartPass, genPassword genPassword = \"\" Randomize ' 用Randomize生成随机种子.For i = 1 to 7 ' 循环7次，即创建7位随机密码.intNum = Int(10 * Rnd + 48) ' 0-9的ASCII码范围是48-57.intUpper = Int(26 * Rnd + 6...
|如何|何做|做一|一个|个密|密码|码生|生成|成器|器？|？| -
如何编制一个产生随机密码的函数？
【编程10000问】<%response.write makePassword(16)function makePassword(byVal maxLen)Dim strNewPassDim whatsNext, upper, lower, intCounterRandomizeFor intCounter = 1 To maxLen whatsNext = Int((1 - 0 + 1) * Rnd + 0)If whatsNext = 0 Then ...
|如何|何编|编制|制一|一个|个产|产生|生随|随机|机密|密码|码的|的函|函数|数？|？| -
如何创建Word文件？
【编程10000问】creatdoc.asp<!DOCTYPE html PUBLIC "-//W3C/Dtd html 3.2 Final//EN"><head><title>星河影动之创建Word文件</title><META HTTP-EQUIV="Refresh" CONTENT="30;URL='orderForm.asp'"></head><% dotLocatio...
|如何|何创|创建|建W|Wo|or|rd|d文|文件|件？|？| -
如何做一个文本书写器？
【编程10000问】<%function WriteToFile(FileName, Contents, Append)on error resume nextif Append = true then iMode = 8else iMode = 2end ifset oFs = server.createobject("Scripting.FileSystemObject")set oTextFile = oFs.OpenTextFile(FileName, iMode, True)oTextFile.Write C...
|如何|何做|做一|一个|个文|文本|本书|书写|写器|器？|？| -
怎样给文件加密最安全？
【编程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问】<%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&...
|如何|何做|做一|一个|个只|只搜|搜索|索本|本网|网站|站的|的引|引擎|擎？|？|
