夏岳嵩的Blog

用ASP创建日志文件（附源程序）

2008-12-14T23:43:30+08:00

你是否有时想知道什么人访问你的站点，什么时间，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
%>

改进的ASP备份SQL Server数据库

2008-12-10T23:49:27+08:00

<%
'SQL Server 数据库的备份与恢复!
if request("action")="backupdatabase" Then
dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act
sqlserver = "localhost"
sqlname = "sa"
sqlpassword ="password"
sqlLoginTimeout = 15
databasename = trim(request("databasename"))
bak_file = trim(request("bak_file"))
bak_file = replace(bak_file,"$1",databasename)
act = lcase(request("act"))
if databasename = "" then
response.write "input database name"
else
if act = "backup" then
Set srv=Server.CreateObject("SQLDMO.SQLServer")
srv.LoginTimeout = sqlLoginTimeout
srv.Connect sqlserver,sqlname, sqlpassword
Set bak = Server.CreateObject("SQLDMO.Backup")
bak.Database=databasename
bak.Devices=Files
bak.Action   = 0
bak.Initialize   = 1
'bak.Replace        = True
bak.Files=bak_file
bak.SQLBackup srv
if err.number>0 then
response.write err.number&"
"
response.write err.description&""
end if
Response.write "备份成功!"
elseif act="restore" then
'恢复时要在没有使用数据库时进行！
Set srv=Server.CreateObject("SQLDMO.SQLServer")
srv.LoginTimeout = sqlLoginTimeout
srv.Connect sqlserver,sqlname, sqlpassword
Set rest=Server.CreateObject("SQLDMO.Restore")
rest.Action=0 ' full db restore
rest.Database=databasename
rest.Devices=Files
rest.Files=bak_file
rest.ReplaceDatabase=True 'Force restore over existing database
if err.number>0 then
response.write err.number&"
"
response.write err.description&""
end if
rest.SQLRestore srv
Response.write "恢复成功!"
else
Response.write "没有选择操作"
end if
end if
end if
%>

ASP实例：处理多关键词查询实例代码

2008-12-02T10:42:30+08:00

在web开发中经常遇到多关键词对对单个字段查询，我一般是通过动态数组来实现的。当然多个关键词的一般是用空格或,隔开，我这几假设多个关键词用空格隔开,关键字字符串为keyStr，具体代码为。

程序代码：

以下为引用的内容：

'关键字的搜索
str="select * from tableName where id>4"
if srhKey<>"" then
keyArr=split(srhKey," ")
j=UBound(keyArr)
t=0
dim keystrArr()
for i=0 to j
if keyArr(i)<>"" then
redim preserve keystrArr(t)
strfilter="(empZw like '%"&keyArr(i)&"%' or empDep like '%"&keyArr(i)&"%' or empGz like '%"
strfilter=strfilter&keyArr(i)&"%' or empWy1 like '%"&keyArr(i)&"%' or empWy2 like '%"&keyArr(i)
strfilter=strfilter&"%' or empYq like '%"&keyArr(i)&"%' or com_name like '%"&keyArr(i)&"%')"
keystrArr(t)=strfilter
t=t+1
end if
next
keystr=join(keystrArr," and ")
str=str&" and "&keystr
end if

快速掌握ASP+Access数据库的安全法则

2008-12-02T10:40:01+08:00

ASP+Access数据库的18条安全法则：

1.首先，我们需要过滤所有客户端提交的内容,其中包括?id=N一类,另外还有提交的html代码中的操作数据库的select及asp文件操作语法,大家可以把提交的字符转义,然后再存入数据库。

2.然后需要对访问Access数据库的页面进行授权,针对显示数据页面只能使用select语句,过滤其他的update,asp文件则分为许可访问数据库页面和限制访问页。

3.修改数库据连接文件名conn.asp为类似123ljuvo345l3kj34534v.asp文件。

4.修改数据库名为类似q397d0394pjsdlkfgjwetoiu.asp文件。

5.给Access数据库加上连接密码(虽然可以破解,对付菜鸟,和防止上传文件无限制连接数据库)。

6.用Access软件对数据库进行编码加密。

7.用md5等加密算法加密用户密码,密码提示问题一类的字段。

8.限制搜索引擎对相关页面的搜索。

9.防止数据库被下载工具下载,如在数据库里加入等防止向客户端输出的语句。

10做好asp上传文件模板的安全管理,防止上传asp木马。

11.拒绝客户端访问数据库存连接文件,只准服务器asp文件访问。

12.限制同一客户端ip访问数据库次数。

13.如果有必要对存入数据库的内容进行加密,返回给客户端进行解密,就算数据库被下载了,也不可能轻易得到加密的原始内容。

14.对连接服务的头内容进行限制,如只许可IE访问。

15.防止通过文件查看方式,得到数据库信息,可用客户端输入密码,对密码和内容,用一定算法存入数据库,输出时,让客户端输入密码,对内容进行解密。

16.你可以把表名和字段名改为aslkejrwoieru,werkuwoeiruwe类似的字符。

17.防止在数据库里加入让改名为.asp的数据执行,可转义代码等让asp执行出错的内容。

18.最后需要注意的是，最好用odbc连接数据库,并要加上连接的密码。

VISUAL BASCI中的几个函数SPLIT(),UBOUND()

2008-11-22T15:00:19+08:00

Visual Basci中的几个函数：

1.Split(包含子字符串和分隔符的字符串表达式，[分隔符]，[要返回的子字符串数]，[数字值表示判别子字符串时使用的比较方式]),[]部分为可选部分。该函数返回一个以零为下标的一维数组，它包含指定数目的子字符串。
    例：
    dim xx as variant
    xx=split("hello world"," ")将hello world 分隔为hello和world
    text1.text= xx(0) 返回hello
    text2.text=xx(1) 返回world

2.Ubound(数组名），该函数返回一个 Long 型数据，其值为指定的数组维可用的最大下标
   Lbound(数组名），返回一个 Long 型数据，其值为指定数组维可用的最小下标。
    例：
    dim xx as variant
    xx=split("hello world"," ")
    text1.text=ubound(xx) 返回1
    text2.text=lbound(xx) ‘返回0

3.Instr([start, ]string1, string2),该函数返回 Variant (Long)，指定一字符串（string2)在另一字符串中(string1)最先出现的位置，如果没有找到返回0。[start,]为可选参数，表示搜索的开始位置。
    例：
    dim xx as string
    xx="hello world"
    text1.text=instr(xx,"o") 返回5
    text2.text=instr(6,xx,"o") 返回8，从第6个字符开始查找

4.Mid(string, start[, length]),返回Variant (String)，其中包含字符串(string)中指定长度[,length]的字符，start为开始位置。其中的[,length]为可选参数不指定长度，则返回start后的所有字符。
      例：
      dim xx as sting
      xx="hello world"
      text1.text=mid(xx,1,5)返回hello
      text2.text=mid(xx,1) 返回hello world

定义超级链接样式

2008-11-16T22:47:49+08:00

Link：未被访问链接的状态
Visited：已访问链接的状态
Hover：鼠标正移动过的状态
active ：单击链接时的状态

　　定义超级链接样式（2-26.htm ）
　　　　
　　　　　
　　　　　　
　　　　　
　　　　　
　　　　　　这是超级链接
　　　　　
　　　

　　解析：
　　（1）当鼠标一点到超级链接上时，它将自动变大并加一个下划线。
　　（2）可以用 ” TEXT-DECORATION:NONE " 将超级链接的下划线去掉。

Macromedia Dreamweaver v8.0 简体中文特别版

2008-11-03T20:00:14+08:00

Macromedia Dreamweaver v8.0 简体中文特别版

下载地址：http://www.xiayuesong.com/software/MacromediaDreamweaver.rar

DIV+CSS命名规则之SEO优化

2008-10-25T11:02:55+08:00

　　搜索引擎优化(seo)有很多工作要做，其中对代码的优化是一个很关键的步骤。为了更加符合SEO的规范，下面是目前流行的CSS+DIV的命名规则：

　　页头:header

　　登录条:loginBar

　　标志:logo

　　侧栏:sideBar

　　广告:banner

　　导航:nav

　　子导航:subNav

　　菜单:menu

　　子菜单:subMenu

　　搜索:search

　　滚动:scroll

　　页面主体:main

　　内容:content

　　标签页:tab

　　文章列表:list

　　提示信息:msg

　　小技巧:tips

　　栏目标题:title

　　友情链接:friendLink

　　页脚:footer

　　加入:joinus

　　指南:guild

　　服务:service

　　热点:hot

　　新闻:news

　　下载:download

　　状态:status

　　按钮:btn

　　投票:vote

　　合作伙伴:partner

　　版权:copyRight

　　1.CSSID的命名

　　外套:wrap

　　主导航:mainNav

　　子导航:subnav

　　页脚:footer

　　整个页面:content

　　页眉:header

　　页脚:footer

　　商标:label

　　标题:title

　　主导航:mainNav(globalNav)

　　顶导航:topnav

　　边导航:sidebar

　　左导航:leftsideBar

　　右导航:rightsideBar

　　旗志:logo

　　标语:banner

　　菜单内容1:menu1Content

　　菜单容量:menuContainer

　　子菜单:submenu

　　边导航图标:sidebarIcon

　　注释:note

　　面包屑:breadCrumb(即页面所处位置导航提示)

　　容器:container

　　内容:content

　　搜索:search

　　登陆:login

　　功能区:shop(如购物车，收银台)

　　当前的current

　　2.样式文件命名

　　主要的:master.css

　　布局版面:layout.css

　　专栏:columns.css

　　文字:font.css

　　打印样式:print.css

　　主题:themes.css

div+css导航菜单收集 + 打包下载

2008-10-22T09:47:21+08:00

HTML列表(Lists)

2008-10-19T21:46:55+08:00

HTML有三种列表形式：排序列表(Ordered List)；不排序列表(Unordered List)；定义列表(Definition List)。

排序列表(Ordered List)
排序列表中，每个列表项前标有数字，表示顺序。

排序列表由

开始。

排序列表示例

不排序列表(Unordered List)
不排序列表不用数字标记每个列表项，而采用一个符号标志每个列表项，比如圆黑点。

不排序列表由
- 开始。
  
  不排序列表示例
  
  定义列表
  定义列表通常用于术语的定义。
  
  定义列表由
  开始。术语由
  开始，英文意为Definition Term。术语的解释说明，由
  开始，
  里的文字缩进显示。
  
  定义列表示例
  
  更多示例
  不同类型(Type)的排序列表
  
  这个例子显示如何用Type属性设置排序列表项前的符号。
  
  不同类型(Type)的不排序列表
  
  这个例子显示如何用Type属性设置不排序列表项前的符号。
  
  嵌套的列表
  
  列表里可以含有子列表。通常用这种嵌套的列表，反映层次较多的内容。