搜索列表
-
如何实现无组件上传二进制文件？
【编程10000问】<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library"--><% Dim objStream Set objStream = Server.CreateObject("ADODB.Stream") ' 创建一个Stre...
|如何|何实|实现|现无|无组|组件|件上|上传|传二|二进|进制|制文|文件|件？|？| -
如何简单地上传文件？
【编程10000问】<html><script language="VB" runat="server"> Sub UploadBtn_Click(Sender as Object, E as EventArgs) UploadFile.PostedFile.SaveAs(Server.MapPath("chunfeng.jpg")) &nb...
|如何|何简|简单|单地|地上|上传|传文|文件|件？|？| -
如何获知并显示文件的大小？
【编程10000问】<%Set MyFileSize = Server.CreateObject ("Scripting.FileSystemObject")MyPath = Server.MapPath("/somedirectory")Set MyFolder = MyFileSize.GetFolder(MyPath)%><p><% =MyPath %> is <% =MyFolder.Size %> bytes</p> ...
|如何|何获|获知|知并|并显|显示|示文|文件|件的|的大|大小|小？|？| -
如何对一个文件夹进行创建和删除？
【编程10000问】如何对一个文件夹进行创建和删除？<% set fs=createobject("scripting.filesystemobject") %><% MyFolder=server.mappath("/chunfeng/happy/") %><%If NOT fs.folderexists(MyFolder) then fs.createfolder(MyFolder)End If%> <%If fs.folde...
|如何|何对|对一|一个|个文|文件|件夹|夹进|进行|行创|创建|建和|和删|删除|除？|？| -
如何读取文本文件的内容？
【编程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...
|如何|何读|读取|取文|文本|本文|文件|件的|的内|内容|容？|？| -
怎样使用Cookie跟踪来访者？
【编程10000问】<%Dim NumVisit' 声明变量.NumVisit = Request.Cookies("chunfeng")("totalvisit")' 检查用户来访问过多少次.If NumVisit = "" ThenNumVisit = 0End If' 如果是第一次来访,NumVisit 应为空,所以我们将NumVisit设为0.'*** Display how many times they have'*** visited your web page.Respo...
|怎样|样使|使用|用C|Co|oo|ok|ki|ie|e跟|跟踪|踪来|来访|访者|者？|？| -
如何在ASP中恰当地运用Cookies？
【编程10000问】remberme.asp' 用户提交个人信息.<％response.Cookies("information")("姓名")=request.form("name")response.Cookies("information")("顾客号")=request.form("id")response.Cookies("information")("来自")=request.form("from")……' 定义一个名为information的Cookies字典，你可以定义更多，如果你需要....
|如何|何在|在A|AS|SP|P中|中恰|恰当|当地|地运|运用|用C|Co|oo|ok|ki|ie|es|s？|？| -
如何让用户再次访问我的网站时不需再提交相关信息？
【编程10000问】< %@ LANGUAGE="VBscript" % >< % Chunfeng=Request.Cookies("Chunfeng")' 初始设置页面,读取名字为Chunfeng的Cookie值.If Chunfeng ="" then' 判断是否已经存在Cookie值. Response.Cookies("Chunfeng")="x" Response.Cookies("Chunfeng").Expires=#January 01...
|如何|何让|让用|用户|户再|再次|次访|访问|问我|我的|的网|网站|站时|时不|不需|需再|再提|提交|交相|相关|关信|信息|息？|？| -
为什么用磁盘序列号加密过的代码不能被复制安装？
【编程10000问】default.asp＜html＞＜head＞＜title＞星河影动之磁盘序列号加密代码存取管理＜/title＞＜/head＞＜% dim conn,fs,fSet conn = Server.CreateObject("ADODB.Connection")conn.open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=3302;dbq="&server.mappath("id.mdb")set fs=server.createObj...
|为什|什么|么用|用磁|磁盘|盘序|序列|列号|号加|加密|密过|过的|的代|代码|码不|不能|能被|被复|复制|制安|安装|装？|？| -
如何用Access加密页面？
【编程10000问】<%userid = Request("userid")userpass = Request("userpass")Set conn = Server.CreateObject("ADODB.Connection")DBPath = Server.MapPath("userinfo.mdb")conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPathuserid=trim(userid)userpass=trim(userpass)sql="sele...
|如何|何用|用A|Ac|cc|ce|es|ss|s加|加密|密页|页面|面？|？| -
如何编写一个创建FTP站点的函数？
【编程10000问】如何编写一个创建FTP站点的函数？Function ASTCreateFtpSite(IPAddress, RootDirectory, ServerComment, HostName, PortNum, Computer, Start,LogFileDirectory) Dim MSFTPSVC, FtpServer, ...
|如何|何编|编写|写一|一个|个创|创建|建F|FT|TP|P站|站点|点的|的函|函数|数？|？| -
如何分页显示数据库查询结果？
【编程10000问】<% if Request.QueryString("PageNumber").count > 0 then ' 指定页号的参数PageNumber.如果指定页号,则以指定页号为依据. PageNumber = Request.QueryString("PageNumber")(1)elsePageNumber = 1' 如没指定页号,缺省为1.end ifRecordNumberPerPage = 10 ' 每页显示10条记录. set AR...
|如何|何分|分页|页显|显示|示数|数据|据库|库查|查询|询结|结果|果？|？|
