zh-CNiwms.net pic/logo.gif http://www.blue1000.com Tue, 06 Apr 2010 06:42:22 GMT Mon, 08 Mar 2010 01:41:21 GMT Mon, 08 Mar 2010 01:31:14 GMT Thu, 14 Jan 2010 08:15:50 GMT Mon, 21 Dec 2009 02:02:30 GMT Mon, 16 Nov 2009 06:52:42 GMT StrFIlename=StrFIle
Response.Buffer=True
Response.Clear
Set S=Server.CreateObJect("ADODB.Stream")
S.Open
S.Type=1
on Error Resume Next
Set Fso=Server.CreateObJect("ScrIptIng.FIleSystemObJect")
If Not Fso.FIleExists(StrFIleName)]]> Sat, 07 Nov 2009 03:40:07 GMT     第一步：为现有数据库做好备份。
    第二步：执行如下ASP文件，这样就可以去掉数据库当中的JS木马：
    注：conn.asp自己去写了。
    '这里放入JS木马内容：请记得改为自己数据库中的JS木马内容。
    <!--#include file="conn.asp"-->
   ]]> Wed, 30 Sep 2009 06:10:40 GMT Function RemoveHTML( strText )
  Dim RegEx
  Set RegEx = New RegExp
  RegEx.Pattern = "<[^>]*>"
  RegEx.Global = True
  RemoveHTML = RegEx.Replace(strText, "")
  RemoveHTML = replace(RemoveHTML," ","]]> Wed, 30 Sep 2009 06:10:39 GMT 　　1.日期相加
　　DateAdd 函数
　　返回已添加指定时间间隔的日期。
　　DateAdd(interval, number, date)
　　DateAdd 函数的语法有以下参数
　　（1）interval 必选项。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。
　　（2）number 必选项。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。
　　（3）date 必选项。Variant 或要添加 interv]]> Wed, 30 Sep 2009 06:10:39 GMT   Dim  objRegExp
  Set  objRegExp=New  RegExp  
  '设置是否区分字符大小写，true表示忽略大小写  
  objRegExp.IgnoreCase=True  
  '设置是否全局匹配，True表示全局匹配  
  objRegExp.Global=True  
  objRegExp.Pattern=]]> Thu, 17 Sep 2009 06:47:32 GMT <%@ codepage=65001%>UTF-8
<%@ codepage=936%>简体中文
<%@ codepage=950%>繁体中文
<%@ codepage=437 %>美国/加拿大英语
<%@ codepage=932 %>日文
<%@ codepage=949 %>韩文
<%@ code]]> Thu, 17 Sep 2009 06:47:22 GMT ]]> Thu, 17 Sep 2009 06:47:13 GMT     新建一个htmerimg.asp文件，在该文件中添加如下代码：
    <%
    Dim filename
    filename=request("file")
]]> Thu, 17 Sep 2009 06:47:05 GMT '按标识手动分页
function manualPage(str)
pages=request.QueryString("page")
contentstr=split(str,"{$page$}")
Response.Write(ContentStr(pages))
Response.Write("<p/>")
Response.Write("<div class=""pageList]]> Thu, 17 Sep 2009 06:46:55 GMT '-------------------------------------------------
'函数名称:ReadTextFile
'作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件
'----------------------------------------------------
Function ReadFromTextFile (FileUrl,CharSet)
    dim str
    set stm=server.CreateObject(]]> Thu, 17 Sep 2009 06:46:43 GMT 　　打开您解压后的网站系统目录，选中“Database”目录中的newasp.asa（数据库文件），右键选择“重命名”，改成如newasp#webdata.asa这样的名称，以防止被他人下载（这样做非常重要！）。
二、修改conn.asp文件的数据库链接地址
　　打开您的网站系统目录，找到根目录中的conn.asp文件，用记事本打开这个文件。定义数据库类别“Const isSqlDataBase = 0”，1为SQL数据库，0为Access数据库。
然后找到db=]]> Thu, 17 Sep 2009 06:46:33 GMT 做网站的时候，客户要一个博客，于是就利用了本博客所用的程序pjblog。经常做网站的人都知道，在同一个站点里使用不同编码的页面会产生乱码，比较常见的就是gb2312和Utf-8，比如我刚做的网站主站用的gb2312，博客用了utf-8，这样在访问时就出现乱码，以前给百货大楼的网站加一个调查问卷系统，就遇到了这个问题，当时捣鼓了很久才搞定。没想到今天又遇到这个，很欣慰，于是写篇日志记录一下这个方]]> Thu, 17 Sep 2009 06:46:27 GMT ]]> Thu, 17 Sep 2009 06:46:19 GMT 如一个正常的index.asp动态页面，
新建一个文件 makeasp2html.asp
<form method="post" action=""> 
    <textarea name="asp2html" style="display:none"><!--#include file="index.asp"--></textarea]]> Thu, 17 Sep 2009 06:45:11 GMT 　　首先让我们看看在access里是怎样实现对mdb文件进行查询的，我们随便创建个空数据库，对数据库D:\daos\db\daidalos.mdb里的admin表的内容进行查询，SQL语句为：
　　SELECT * from admin in "D:\daos\db\daidalos.mdb"
]]>