搜索列表
-
如何一行行地读取文件？
【编程10000问】dim input(30) ' 定义一个数组,大小可随时更改.这里为了显示方便.file_path=Server.Mappath("index.html")Set fs=Server.CreateObject("Scripting.FileSystemObject")Set file_open=fs.OpenTextFile(file_path)n=0Do While Not file_open.AtEndOfStreamn=n+1fileline=file_open.readlineinput(i)=file...
|如何|何一|一行|行行|行地|地读|读取|取文|文件|件？|？| -
可以在线创建文件夹吗？
【编程10000问】folder.htm<html><head><title>闪亮日子之在线创建文件夹</title></head><body>春风精彩<br>在线创建文件夹</td> <tr> <td height="28"><form name="form1" method="post" action="creatfolder.asp"&...
|可以|以在|在线|线创|创建|建文|文件|件夹|夹吗|吗？|？| -
如何根据用户银行帐户余额的多少进行显式的提交或终止？
【编程10000问】<%@ transaction = required %><%response.buffer = true' 缓存输出,以显示不同的页面.%><html><body>欢迎使用千花飞舞之在线银行服务.<%set bankaction = server.createobject("myexample.bankcomponent")bankaction.deposit(request("acctnum"))%><p>您的提交的...
|如何|何根|根据|据用|用户|户银|银行|行帐|帐户|户余|余额|额的|的多|多少|少进|进行|行显|显式|式的|的提|提交|交或|或终|终止|止？|？| -
为什么用磁盘序列号加密过的代码不能被复制安装？
【编程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加|加密|密页|页面|面？|？| -
如何用下拉列表显示数据库里的内容？
【编程10000问】<%Dim objDC, objRSSet objDC = Server.CreateObject("ADODB.Connection")objDC.ConnectionTimeout = 15objDC.CommandTimeout = 30' 创建数据库连接objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverI...
|如何|何用|用下|下拉|拉列|列表|表显|显示|示数|数据|据库|库里|里的|的内|内容|容？|？| -
如何利用数据库内容建立一个下拉式列表？
【编程10000问】如何利用数据库内容建立一个下拉式列表？<% myDSN="DSN=xur;uid=xur;pwd=xur"mySQL="select * from authors where AU_ID<100"set conntemp=server.createobject("adodb.connection")conntemp.open myDSNset rstemp=conntemp.execute(mySQL)if rstemp.eof thenresponse.write "噢,数据库...
|如何|何利|利用|用数|数据|据库|库内|内容|容建|建立|立一|一个|个下|下拉|拉式|式列|列表|表？|？| -
如何做一个检索结果带链接的检索？
【编程10000问】如何做一个检索结果带链接的检索？<% data=request.form("search_data") ' 从FORM变量集得到要查询的文件名称所要包含的字符串 p=search_folder(data,"http://jack/cgi-bin","c:\intels\wwwroot\cgi-bin") ' 调用函数查询目标查询目录下的所有子目录(所有子树),方法:search_folder(要查询的字符串,查询目标的虚拟绝...
|如何|何做|做一|一个|个检|检索|索结|结果|果带|带链|链接|接的|的检|检索|索？|？| -
如何编写一个创建FTP站点的函数？
【编程10000问】如何编写一个创建FTP站点的函数？Function ASTCreateFtpSite(IPAddress, RootDirectory, ServerComment, HostName, PortNum, Computer, Start,LogFileDirectory) Dim MSFTPSVC, FtpServer, ...
|如何|何编|编写|写一|一个|个创|创建|建F|FT|TP|P站|站点|点的|的函|函数|数？|？| -
如何实现歌曲在线点播？
【编程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...
|如何|何做|做一|一个|个文|文本|本搜|搜索|索？|？|
