当前位置： 首页 > 奇风发布的所有日志

  • 通过ASP与ACCESS数据库建立连接

    Aug022006

    如何通过ASP与数据库建立连接是一个非常现实的问题，我尽量写得非常详细。相信看了这篇文章相信您已经能够写出类似的比较简单和实用的程序了。 （一）数据库的选择： 　　有许多的数据库你可以选择，SQL SERVER、ACCESS(*.mdb)、EXCEL(*.xls)、FOXPRO(*.dbf)甚至普通的文本文件(*.txt)都可以达到存储数据的功能。那么 ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：369 views | 标签：,
    抢沙发

  • ASP错误信息总汇

    Aug022006

    1.错误信息 Microsoft OLE DB Provider for ODBC Drivers error “80004005“ [Microsoft][ODBC Microsoft Access 97 Driver] The Microsoft Jet database engine cannot open the file “(unknown)“. It is already opened exclusively by another user, or you need permission to view its data. 原因： 这个错误 ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：250 views | 标签：
    抢沙发

  • 一个让用户更改密码的简单程序

    Aug022006

    <% id = Request("id") newpassword = Request("password") newpasswordtemp = Request("passwordtemp") If newpassword <> newpasswordtemp Then
    Response.Write "

    对不起，新密码与新密码确认不同！请重试！
    "
    Response.End
    End If

    Set conn = Server.CreateObject("ADODB.Connection")
    DBPath = Server.MapPath("userinfo.mdb")
    conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql="update userinfo set 密码=“" & newpassword & "“ where id="&id
    rs.Open sql, conn, adOpenDynamic, adLockPessimistic
    %>
    此程序非常简单，相信各位都会懂！跟“如何使用 Microsoft Access 和 Active Server Pages 加密你的页面 ！”的结合，实现让用户更改密码就简单了！
    　

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：313 views
    抢沙发

  • 自动选出最快站点的路径

    Aug022006

    自动选择最快站点 请稍候，正在选择速度最快站点…… i=1 var autourl=new Array() autourl[1]="http://www.21wl.net" autourl[2]="http://www.bjzx.net/97jsj" autourl[3]="http://www.bjxx.net" function auto(url){if(i){i=0;top.location=url}} function run(){for( ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：261 views
    抢沙发

  • ASP提速技巧

    Aug022006

    技巧之一：提高使用Request集合的效率 访问一个ASP集合来提取一个值是费时的、占用计算资源的过程。因为这个操作包含了一系列对相关集合的搜索，这比访问 一个局部变量要慢得多。因此，如果打算在页面中多次使用Request集合中的一个值，应该考虑将其存贮为一个局部变量。 例如将代码写成下面的形式以加快脚本引擎处理速 ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：255 views | 标签：
    抢沙发

  • 为你的网页做出电影的过场效果

    Aug022006

    微软啊微软，他们还有哪些事没帮我们做的？连这种炫丽的换页过场效果都已经让芸芸众生得以掌握。只要有IE 4.0以后版本的浏览器就可以用这种让人目瞪口呆的特效，使别人进入和退出你的网页时能看到这种戏剧化的效果。现在所有网站都能把大导演的手法玩弄於股掌之间了。 第一步 把以下的HTML程式码复制以后贴到你网页上的 ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：376 views
    抢沙发

  • 用ASP实现分级权限控制

    Aug022006

    用ASP实现分级权限控制 　　本文实现的是一个帐务管理系统中分级权限的控制，程序使用ASP和JavaScript编写，在装有IIS4.0的win NT服务器上运行，速度快，易维护。 权限级别划分如下： ①、院长和财务科长：不能输入，可以无限制查询、统计； ②、副院长：不能输入，可以查询、统计其分管部门的帐务； ③、部门领导：不能 ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：291 views | 标签：
    抢沙发

  • ASP检索指定目录文件的算法

    Aug022006

    在我们许多网站中存在这样一个问题，就是链接的维护更新，这是一项工作量很大的工作，若不是的专门工作人员进行维护的大型网站，普通站点的站点更新维护工作基本上都成了一个很令人头疼的问题，特别是在没有很多人手的情况下，要经常维护更新链接更是讨厌，因为这项工作没有多少创意，却很耗时，而JACK显然不是那种喜欢 ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：267 views | 标签：
    抢沙发

  • 如何用ASP创建日志文件

    Aug022006

    你是否有时想知道什么人访问你的站点，什么时间，IP地址等。下面我就这个问题向大家来阐述一下。这个例子使用文本文件来写入用户的信息创建一个logfile.asp放在每一个asp的页面的顶端当有人来访问你的站点logfile.asp自动把他的信息写入LogFile.txt,如果相关的URl一样的话则不写入文件
    File: LogFile.asp

    <% Dim ValidEntry “ Log variable “ First set that this log is valid ValidEntry = True “ If Session Variable "LogIn" is not empty “ that mean this person has already been logged “ then set ValidLog to False If not IsEmpty(Session("LogIn")) then ValidEntry = False “ Here you can add different restriction “ If the refering url is from same site “ don“t write to log file If Left(Request.ServerVariables("HTTP_REFERER"), 17)="http://devasp.com" Then ValidEntry = False End if If Left(Request.ServerVariables("HTTP_REFERER"), 21)="http://www.devasp.com" Then ValidEntry = False End If “ Now if ValidEntry is True then enter to log file If ValidEntry Then Const ForAppending = 8 Const Create = true Dim FSO DIM TS DIM MyFileName Dim strLog MyFileName = Server.MapPath("MyLogFile.txt") Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set TS = FSO.OpenTextFile(MyFileName, ForAppending, Create) “ Store all required values in strLog strLog = "

    " & now & " "
    strLog = strLog & Request.ServerVariables("REMOTE_ADDR") & " "
    strLog = strLog & Request.ServerVariables("HTTP_REFERER") & " "
    strLog = strLog & Request.ServerVariables("HTTP_USER_AGENT") & "
    "
    “ Write current information to Log Text File.
    TS.write strLog
    TS.Writeline ""
    “ Create a session varialbe to check next time for ValidEntry
    Session("LogIn") = "yes"
    Set TS = Nothing
    Set FSO = Nothing
    End If
    %>
    　

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：703 views | 标签：
    抢沙发

  • ASP备份数据库

    Aug022006

    文件1：BackupDB.asp 　 Database –> Backup Server Name: Administrators: Password: Database: Backup To: (Server Path) 文件2：BackupDBSave.asp 0 then Response.Redirect("http:backuperr.asp?err="&err.number) mdevname="Backup_"&am ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：303 views | 标签：
    抢沙发