搜索列表
-
如何创建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问】<%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跟|跟踪|踪来|来访|访者|者？|？| -
如何在Flash中处理Cookies？
【编程10000问】testCookies.asp' 检查浏览器是否接受Cookies.<%strTest = Request.QueryString("CookieTest")If UCase(strTest) <> Ucase("true") ThenSession("__FlashCookieTest") = True' 第一次呼叫.设置session变量.' 用QueryString重定向. strURL = Request.ServerVariables("script_NA...
|如何|何在|在F|Fl|la|as|sh|h中|中处|处理|理C|Co|oo|ok|ki|ie|es|s？|？| -
为什么用磁盘序列号加密过的代码不能被复制安装？
【编程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...
|为什|什么|么用|用磁|磁盘|盘序|序列|列号|号加|加密|密过|过的|的代|代码|码不|不能|能被|被复|复制|制安|安装|装？|？| -
如何实现人民币的大写转换？
【编程10000问】第一个办法，这个程序可以进行万亿以下的货币金额转换（够用的了吧），其中汉字与数字均按一位计：Function AtoC(a As Currency) As String ' 定义两个字符串，A的值最多是两位小数. Dim String1 As String ' 如下定义. Dim String2 As String&...
|如何|何实|实现|现人|人民|民币|币的|的大|大写|写转|转换|换？|？| -
如何做一个检索结果带链接的检索？
【编程10000问】如何做一个检索结果带链接的检索？<% data=request.form("search_data") ' 从FORM变量集得到要查询的文件名称所要包含的字符串 p=search_folder(data,"http://jack/cgi-bin","c:\intels\wwwroot\cgi-bin") ' 调用函数查询目标查询目录下的所有子目录(所有子树),方法:search_folder(要查询的字符串,查询目标的虚拟绝...
|如何|何做|做一|一个|个检|检索|索结|结果|果带|带链|链接|接的|的检|检索|索？|？| -
如何实现歌曲在线点播？
【编程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问】<%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问】page.inc<% Sub ShowPageBar(TotalPage,CurPage,strUrl) ' 参数TotalPage:全部页数;CurPage:当前页数;strUrl:翻页使用的连接地址. DIM strPage CurPage=GetValidPageNO(TotalPage,CurPage) Response.Write "<TABLE WIDTH=''100%''>" Response.Write "<tr><...
|如何|何编|编写|写翻|翻页|页函|函数|数？|？| -
如何用组件实现自动发送电子邮件？
【编程10000问】如何用组件实现自动发送电子邮件？JMailUploadAutoForm.asp<html><body><font face="verdana, arial" size="2"><b><form method="post" action="JmailUploadAutoFormProcess.asp" ENCTYPE="multipart/form-data"><p>撼雪喷云之动发送电子邮件</p...
|如何|何用|用组|组件|件实|实现|现自|自动|动发|发送|送电|电子|子邮|邮件|件？|？| -
如何用变量实现群聊和悄悄话？
【编程10000问】如何用变量实现群聊和悄悄话？<%if Request.Form("xt")="on" then ' 判断是否悄悄话.Application.Lock' 是悄悄话,继续往下处理.application(session("username"))=temppos&application(session("username"))' 只有发言人和发言对象才能看到此发言,实现悄悄话. application(Request.f...
|如何|何用|用变|变量|量实|实现|现群|群聊|聊和|和悄|悄悄|悄话|话？|？|
