FDS's Blog » FDS http://blog.1xi.net 收藏和分享 Thu, 12 May 2011 06:33:30 +0000 en hourly 1 http://wordpress.org/?v=3.1.2 用ASP做在线升级文件 http://blog.1xi.net/asp/asp-zaixian-shengji-wenjian http://blog.1xi.net/asp/asp-zaixian-shengji-wenjian#comments Thu, 30 Jul 2009 03:40:55 +0000 FDS http://blog.1xi.net/asp/asp-zaixian-shengji-wenjian 用ASP做在线升级文件的方法，方便用户升级。

<%
Rem #####################################################################################
Rem ## 在线升级类声明
Class Cls_oUpdate
  Rem #################################################################
  Rem ## 描述: ASP 在线升级类
  Rem ## 版本: 1.0.0
  Rem ## 作者: 萧月痕
  Rem ## MSN:  xiaoyuehen(at)msn.com
  Rem ## 请将(at)以 @ 替换
  Rem ## 版权: 既然共享, 就无所谓版权了. 但必须限于网络传播, 不得用于传统媒体!
  Rem ## 如果您能保留这些说明信息, 本人更加感谢!
  Rem ## 如果您有更好的代码优化, 相关改进, 请记得告诉我, 非常谢谢!
  Rem #################################################################
  Public LocalVersion, LastVersion, FileType
  Public UrlVersion, UrlUpdate, UpdateLocalPath, Info
  Public UrlHistory
  Private sstrVersionList, sarrVersionList, sintLocalVersion, sstrLocalVersion
  Private sstrLogContent, sstrHistoryContent, sstrUrlUpdate, sstrUrlLocal
  Rem #################################################################
  Private Sub Class_Initialize()
   Rem ## 版本信息完整URL, 以 http:// 起头
   Rem ## 例: http://localhost/software/Version.htm
   UrlVersion     = “”
  
   Rem ## 升级URL, 以 http:// 起头, /结尾
   Rem ## 例: http://localhost/software/
   UrlUpdate     = “”
  
   Rem ## 本地更新目录, 以 / 起头, /结尾. 以 / 起头是为当前站点更新.防止写到其他目录.
   Rem ## 程序将检测目录是否存在, 不存在则自动创建
   UpdateLocalPath  = “/”
  
   Rem ## 生成的软件历史文件
   UrlHistory     = “history.htm”
  
   Rem ## 最后的提示信息
   Info        = “”
  
   Rem ## 当前版本
   LocalVersion    = “1.0.0″
  
   Rem ## 最新版本
   LastVersion    = “1.0.0″
  
   Rem ## 各版本信息文件后缀名
   FileType      = “.asp”
  End Sub
  Rem #################################################################
 
  Rem #################################################################
  Private Sub Class_Terminate()
 
  End Sub
  Rem #################################################################
  Rem ## 执行升级动作
  Rem #################################################################
  Public function doUpdate()
   doUpdate = False
  
   UrlVersion    = Trim(UrlVersion)
   UrlUpdate    = Trim(UrlUpdate)
  
   Rem ## 升级网址检测
   If (Left(UrlVersion, 7) <> “http://”) Or (Left(UrlUpdate, 7) <> “http://”) Then
    Info = “版本检测网址为空, 升级网址为空或格式错误(#1)”
    Exit function
   End If
  
   If Right(UrlUpdate, 1) <> “/” Then
    sstrUrlUpdate = UrlUpdate & “/”
   Else
    sstrUrlUpdate = UrlUpdate
   End If
  
   If Right(UpdateLocalPath, 1) <> “/” Then
    sstrUrlLocal = UpdateLocalPath & “/”
   Else
    sstrUrlLocal = UpdateLocalPath
   End If  
  
   Rem ## 当前版本信息(数字)
   sstrLocalVersion = LocalVersion
   sintLocalVersion = Replace(sstrLocalVersion, “.”, “”)
   sintLocalVersion = toNum(sintLocalVersion, 0)
  
   Rem ## 版本检测(初始化版本信息, 并进行比较)
   If IsLastVersion Then Exit function
  
   Rem ## 开始升级
   doUpdate = NowUpdate()
   LastVersion = sstrLocalVersion
  End function
  Rem #################################################################
 
  Rem ## 检测是否为最新版本
  Rem #################################################################
   Private function IsLastVersion()
    Rem ## 初始化版本信息(初始化 sarrVersionList 数组)
    If iniVersionList Then
     Rem ## 若成功, 则比较版本
     Dim i
     IsLastVersion = True
     For i = 0 to UBound(sarrVersionList)
      If sarrVersionList(i) > sintLocalVersion Then
       Rem ## 若有最新版本, 则退出循环
       IsLastVersion = False
       Info = “已经是最新版本!”
       Exit For
      End If
     Next
    Else
     Rem ## 否则返回出错信息
     IsLastVersion = True
     Info = “获取版本信息时出错!(#2)”
    End If  
   End function
  Rem #################################################################
  Rem ## 检测是否为最新版本
  Rem #################################################################
   Private function iniVersionList()
    iniVersionList = False
   
    Dim strVersion
    strVersion = getVersionList()
   
    Rem ## 若返回值为空, 则初始化失败
    If strVersion = “” Then
     Info = “出错…….”
     Exit function
    End If
   
    sstrVersionList = Replace(strVersion, ” “, “”)
    sarrVersionList = Split(sstrVersionList, vbCrLf)
   
    iniVersionList = True
   End function
  Rem #################################################################
  Rem ## 检测是否为最新版本
  Rem #################################################################
   Private function getVersionList()
    getVersionList = GetContent(UrlVersion)
   End function
  Rem #################################################################
  Rem ## 开始更新
  Rem #################################################################
   Private function NowUpdate()
    Dim i
    For i = UBound(sarrVersionList) to 0 step -1
     Call doUpdateVersion(sarrVersionList(i))
    Next
    Info = “升级完成! <a href=”“” & sstrUrlLocal & UrlHistory & “”“>查看</a>”
   End function
  Rem #################################################################
 
  Rem ## 更新版本内容
  Rem #################################################################
   Private function doUpdateVersion(strVer)
    doUpdateVersion = False
   
    Dim intVer
    intVer = toNum(Replace(strVer, “.”, “”), 0)
   
    Rem ## 若将更新的版本小于当前版本, 则退出更新
    If intVer <= sintLocalVersion Then
     Exit function
    End If
   
    Dim strFileListContent, arrFileList, strUrlUpdate  
    strUrlUpdate = sstrUrlUpdate & intVer & FileType
   
    strFileListContent = GetContent(strUrlUpdate)
   
    If strFileListContent = “” Then
     Exit function
    End If
   
    Rem ## 更新当前版本号
    sintLocalVersion = intVer
    sstrLocalVersion = strVer
   
    Dim i, arrTmp
    Rem ## 获取更新文件列表
    arrFileList = Split(strFileListContent, vbCrLf)
   
    Rem ## 更新日志
    sstrLogContent = “”
    sstrLogContent = sstrLogContent & strVer & “:” & vbCrLf
   
    Rem ## 开始更新
    For i = 0 to UBound(arrFileList)
     Rem ## 更新格式: 版本号/文件.htm|目的文件
     arrTmp = Split(arrFileList(i), “|”)
     sstrLogContent = sstrLogContent & vbTab & arrTmp(1)
     Call doUpdateFile(intVer & “/” & arrTmp(0), arrTmp(1))    
    Next
   
    Rem ## 写入日志文件
    sstrLogContent = sstrLogContent & Now() & vbCrLf
    response.Write(“<pre>” & sstrLogContent & “</pre>”)
    Call sDoCreateFile(Server.MapPath(sstrUrlLocal & “Log” & intVer & “.htm”), _
                                          “<pre>” & sstrLogContent & “</pre>”)
    Call sDoAppendFile(Server.MapPath(sstrUrlLocal & UrlHistory), “<pre>” & _
                                          strVer & “_______” & Now() & “</pre>” & vbCrLf)
   End function
  Rem #################################################################
 
  Rem ## 更新文件
  Rem #################################################################
   Private function doUpdateFile(strSourceFile, strTargetFile)
    Dim strContent
    strContent = GetContent(sstrUrlUpdate & strSourceFile)
   
    Rem ## 更新并写入日志
    If sDoCreateFile(Server.MapPath(sstrUrlLocal & strTargetFile), strContent) Then    
     sstrLogContent = sstrLogContent & “  成功” & vbCrLf
    Else
     sstrLogContent = sstrLogContent & “  失败” & vbCrLf
    End If
   End function
  Rem #################################################################
  Rem ## 远程获得内容
  Rem #################################################################
   Private function GetContent(strUrl)
    GetContent = “”
   
    Dim oXhttp, strContent
    Set oXhttp = Server.CreateObject(“Microsoft.XMLHTTP”)
    ‘On Error Resume Next
    With oXhttp
     .Open “GET”, strUrl, False, “”, “”
     .Send
     If .readystate <> 4 Then Exit function
     strContent = .Responsebody
    
     strContent = sBytesToBstr(strContent)
    End With
   
    Set oXhttp = Nothing
    If Err.Number <> 0 Then
     response.Write(Err.Description)
     Err.Clear
     Exit function
    End If
   
    GetContent = strContent
   End function
  Rem #################################################################
  Rem #################################################################
  Rem ## 编码转换 2进制 => 字符串
   Private function sBytesToBstr(vIn)
    dim objStream
    set objStream = Server.CreateObject(“adodb.stream”)
    objStream.Type    = 1
    objStream.Mode    = 3
    objStream.Open
    objStream.Write vIn
   
    objStream.Position  = 0
    objStream.Type    = 2
    objStream.Charset  = “GB2312″
    sBytesToBstr     = objStream.ReadText
    objStream.Close
    set objStream    = nothing
   End function
  Rem #################################################################
  Rem #################################################################
  Rem ## 编码转换 2进制 => 字符串
   Private function sDoCreateFile(strFileName, ByRef strContent)
    sDoCreateFile = False
    Dim strPath
    strPath = Left(strFileName, InstrRev(strFileName, “\”, -1, 1))
    Rem ## 检测路径及文件名有效性
    If Not(CreateDir(strPath)) Then Exit function
    ‘If Not(CheckFileName(strFileName)) Then Exit function
   
    ‘response.Write(strFileName)
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fso, f
    Set fso = CreateObject(“Scripting.FileSystemObject”)
    Set f = fso.OpenTextFile(strFileName, ForWriting, True)
    f.Write strContent
    f.Close
    Set fso = nothing
    Set f = nothing
    sDoCreateFile = True
   End function
  Rem #################################################################
  Rem #################################################################
  Rem ## 编码转换 2进制 => 字符串
   Private function sDoAppendFile(strFileName, ByRef strContent)
    sDoAppendFile = False
    Dim strPath
    strPath = Left(strFileName, InstrRev(strFileName, “\”, -1, 1))
    Rem ## 检测路径及文件名有效性
    If Not(CreateDir(strPath)) Then Exit function
    ‘If Not(CheckFileName(strFileName)) Then Exit function
   
    ‘response.Write(strFileName)
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fso, f
    Set fso = CreateObject(“Scripting.FileSystemObject”)
    Set f = fso.OpenTextFile(strFileName, ForAppending, True)
    f.Write strContent
    f.Close
    Set fso = nothing
    Set f = nothing
    sDoAppendFile = True
   End function
  Rem #################################################################
  Rem ## 建立目录的程序，如果有多级目录，则一级一级的创建
  Rem #################################################################
   Private function CreateDir(ByVal strLocalPath)
    Dim i, strPath, objFolder, tmpPath, tmptPath
    Dim arrPathList, intLevel
   
    ‘On Error Resume Next
    strPath     = Replace(strLocalPath, “\”, “/”)
    Set objFolder  = server.CreateObject(“Scripting.FileSystemObject”)
    arrPathList   = Split(strPath, “/”)
    intLevel     = UBound(arrPathList)
   
    For I = 0 To intLevel
     If I = 0 Then
      tmptPath = arrPathList(0) & “/”
     Else
      tmptPath = tmptPath & arrPathList(I) & “/”
     End If
     tmpPath = Left(tmptPath, Len(tmptPath) - 1)
     If Not objFolder.FolderExists(tmpPath) Then objFolder.CreateFolder tmpPath
    Next
   
    Set objFolder = Nothing
    If Err.Number <> 0 Then
     CreateDir = False
     Err.Clear
    Else
     CreateDir = True
    End If
   End function
  Rem #################################################################
  Rem ## 长整数转换
  Rem #################################################################
   Private function toNum(s, default)
    If IsNumeric(s) and s <> “” then
     toNum = CLng(s)
    Else
     toNum = default
    End If
   End function
  Rem #################################################################
End Class
Rem #####################################################################################
%>

]]> http://blog.1xi.net/asp/asp-zaixian-shengji-wenjian/feed 2 ASP实现图片上传 http://blog.1xi.net/asp/asp-tupian-shangchuan http://blog.1xi.net/asp/asp-tupian-shangchuan#comments Thu, 30 Jul 2009 03:22:52 +0000 FDS http://blog.1xi.net/asp/asp-tupian-shangchuan 用纯ＡＳＰ代码来实现图片的上传以及保存到数据库的功能（顺便也实现显示数据库中的图片到网页上的功能）。
　　首先我们先来熟悉一下将要使用的对象方法。我们用来获取上一个页面传递过来的数据一般是使用Request对象。同样的，我们也可以使用Request对象来获取上传上来的文件数据，使用的方法是Request.BinaryRead()。而我们要从数据库中读出来图片的数据显示到网页上面要用到的方法是：
Request.BinaryWrite()。在我们得到了图片的数据，要保存到数据库中的时候，不可以直接
使用Insert语句对数据库进行操作，而是要使用ADO的AppendChunk方法，同样的，读出数据库
中的图片数据，要使用GetChunk方法。各个方法的具体语法如下：
*Request.BinaryRead语法：
variant=Request.BinaryRead(count)
参数
variant
返回值保存着从客户端读取到数据。
count
指明要从客户端读取的数据量大小，这个值小于或者等于使用方法Request.TotalBytes得到的
数据量。
*Request.BinaryWrite语法：
Request.BinaryWritedata
参数
data
要写入到客户端浏览器中的数据包。
*Request.TotalBytes语法：
variant=Request.TotalBytes
参数
variant
返回从客户端读取到数据量的字节数。
*AppendChunk语法
将数据追加到大型文本、二进制数据Field或Parameter对象。
object.AppendChunkData
参数
objectField或Parameter对象
Data变体型，包含追加到对象中的数据。
说明
使用Field或Parameter对象的AppendChunk方法可将长二进制或字符数
　　据填写到对象中。在系统内存有限的情况下，可以使用AppendChunk方法对长整型值进行
部分而非全部的操作。
*GetChunk语法
返回大型文本或二进制数据Field对象的全部或部分内容。
variable=field.GetChunk(Size)
返回值
返回变体型。
参数
Size长整型表达式，等于所要检索的字节或字符数。
说明
　　使用Field对象的GetChunk方法检索其部分或全部长二进制或字符数据。在系统内存有限
的情况下，可使用GetChunk方法处理部分而非全部的长整型值。
GetChunk调用返回的数据将赋给“变量”。如果Size大于剩余的数据，则
GetChunk仅返回剩余的数据而无需用空白填充“变量”。如果字段为空，则
GetChunk方法返回Null。
　　每个后续的GetChunk调用将检索从前一次GetChunk调用停止处开始的数据。但是，如果从
一个字段检索数据然后在当前记录中设置或读取另一个字段的值，ADO将认为已从第一个字段
中检索出数据。如果在第一个字段上再次调用GetChunk方法，ADO将把调用解释为新的GetChu
nk操作并从记录的起始处开始读取。如果其他Recordset对象不是首个Recordset对象的副本，
则访问其中的字段不会破坏GetChunk操作。
如果Field对象的Attributes属性中的adFldLong位设置为True，则可以对该字段使用GetChun
k方法。
如果在Field对象上使用Getchunk方法时没有当前记录，将产生错误3021（无当前记录）。
　　接下来，我们就要来设计我们的数据库了，作为测试我们的数据库结构如下（access200
0）：

字段名称　　　　类型　　　　描述
　　id　　　自动编号　　　主键值
    img          OLE对象　　　用来保存图片数据　

对于在MSSQLServer7中，对应的结构如下：
字段名称　　　　类型　　　　描述
　　id　　　　int(Identity)　       主键值
     img　　    image　　　          用来保存图片数据　

现在开始正式编写我们的纯ＡＳＰ代码上传部分了，首先，我们有一个提供给用户的上传界面
，可以让用户选择要上传的图片。代码如下
（upload.htm）：
<html>
<body>
<center>
<form name=”mainForm” enctype=”multipart/form-data” action=”process.asp” method=p
ost>
　　<inputtype=filename=mefile><br>
　　<inputtype=submitname=okvalue=”OK”>
</form>
</center>
</body>
</html>
注意enctype=”multipart/form-data”，一定要在Form中有这个属性，否则，将无法得到上传
上来的数据。接下来，我们要在process.asp中对从浏览器中获取的数据进行必要的处理，因
为我们在process.asp中获取到的数据不仅仅包含了我们想要的上传上来的图片的数据，也包
含了其他的无用的信息，我们需要剔除冗余数据，并将处理过的图片数据保存到数据库中，这
里我们以access2000为例。具体代码如下（process.asp）：
<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
setconnGraph=server.CreateObject(“ADODB.connection”)
connGraph.ConnectionString=”driver={MicrosoftAccessDriver(*.mdb)};DBQ=”&server.Ma
pPath(“images.mdb”)&”;uid=;PWD=;”
connGraph.Open
setrec=server.createobject(“ADODB.recordset”)
rec.Open”SELECT*FROM[images]whereidisnull”,connGraph,1,3
rec.addnew
rec(“img”).appendchunkmydata
rec.update
rec.close
setrec=nothing
setconnGraph=nothing
%>
好了，这下我们就把上传来的图片保存到了名为images.mdb的数据库中了，剩下的工作就是要
将数据库中的图片数据显示到网页上面了。一般在ＨＴＭＬ中，显示图片都是使用<IMG>标签
，也就是<IMGSRC=”图片路径”>，但是我们的图片是保存到了数据库中，“图片路径”是什么
呢？呵呵，其实这个SRC属性除了指定路径外，也可以这样使用哦：
<IMGSRC=”showimg.asp?id=xxx”>
所以，我们所要做的就是在showimg.asp中从数据库中读出来符合条件的
数据，并返回到SRC属性中就可以了，具体代码如下（showimg.asp）：
<%
setconnGraph=server.CreateObject(“ADODB.connection”)
connGraph.ConnectionString=”driver={MicrosoftAccessDriver(*.mdb)};DBQ=”&
server.MapPath(“images.mdb”)&”;uid=;PWD=;”
connGraph.Open
setrec=server.createobject(“ADODB.recordset”)
strsql=”selectimgfromimageswhereid=”&trim(request(“id”))
rec.openstrsql,connGraph,1,1
Response.ContentType=”image/*”
Response.BinaryWriterec(“img”).getChunk(7500000)
rec.close
setrec=nothing
setconnGraph=nothing
%>
注意在输出到浏览器之前一定要指定Response.ContentType=”image/*”，
以便正常显示图片。
最后要注意的地方是，我的process.asp中作的处理没有考虑到第一页(upload.htm)中还有其
他数据，比如<INPUT type=tesxt name=userid>等等，如果有这些项目，你的process.asp就
要注意处理掉不必要的数据。

]]> http://blog.1xi.net/asp/asp-tupian-shangchuan/feed 2 php访问查询mysql数据的三种方法 http://blog.1xi.net/php/php-chaxun-mysq-fangfa http://blog.1xi.net/php/php-chaxun-mysq-fangfa#comments Thu, 30 Jul 2009 03:17:33 +0000 FDS http://blog.1xi.net/php/php-chaxun-mysq-fangfa 1. $row = mysql_fetch_row($result);
返回一个规则的数组$row,$row[0]是第一个元素,$row[1]是第二个元素,依次类推…
mysql_num_fields($result) 返回结果的元素个数。

2. $row = mysql_fetch_array($result);

返回一个数组$row. 举例如下:
表结构如下:

username | password
————————————-
bourbon | abc
berber | efg

第一次运行运行 $row = mysql_fetch_array($result) 则结果如下:

$row[0] = $row["username"] = “bourbon”
$row[1] = $row["password"] = “abc”

第一次运行运行 $row = mysql_fetch_array($result) 则结果如下:

$row[0] = $row["username"] = “berber”
$row[1] = $row["password"] = “efg”

3. $row = mysql_fetch_object($result);

返回一个对象描述行. 如上例
第一次运行运行$row = mysql_fetch_object($result) 则结果如下:

$row->username = “bourbon”
$row->password = “abc”

第二次运行运行$row = mysql_fetch_object($result) 则结果如下:
$row->username = “berber”
$row->password = “efg”

]]> http://blog.1xi.net/php/php-chaxun-mysq-fangfa/feed 1 在Asp程序中取得表单所有内容的方法 http://blog.1xi.net/asp/asp-huoqu-biaodan http://blog.1xi.net/asp/asp-huoqu-biaodan#comments Thu, 30 Jul 2009 03:12:29 +0000 FDS http://blog.1xi.net/asp/asp-huoqu-biaodan

在Asp中如何得到所有表单的名称跟对应的值。其实，这个问题很简单，但是可能还是有很多人不知道该怎么做，所以特地写下来，仅供参考。在Asp程序中，用来获得客户端数据的对象是 Request，这个对象给我们提供了很多的方法以及属性。比如，有这样一个Form，

<FORM METHOD=POST name=cqq ACTION=”">
 <INPUT TYPE=”text” NAME=”username”>
 <INPUT TYPE=”text” NAME=”password”>
 <INPUT TYPE=”checkbox” NAME=”sex” value=”male”>
 <INPUT TYPE=”checkbox” NAME=”sex” value=”female”>
 <INPUT TYPE=”submit”>
 </FORM>

         如果我们要取得 username 中的值，我们可以这样写：Request.Form(“username”)

 这个大家都会，其实这个Form是一个集合，也就是说表单中的所有的内容都存放在这个集合

当中，我们要取得某个元素的值，只需要在Request.Form() 这里制定元素的名称就可以了，比如

上面的username。

          那么，我们要取得集合中所有的值呢？  那很简单，什么都不用跟就是了，直接写Request.Form

就得到了集合中所有元素的名称跟值。  下面是一个对集合操作的语句：

<%
For each obj in Request.Form
     Response.write obj & ” ” & Request.Form(obj) &  ” <br>”
Next
%>

]]> http://blog.1xi.net/asp/asp-huoqu-biaodan/feed 0 asp开发中textarea一些问题 http://blog.1xi.net/asp/asp-textarea http://blog.1xi.net/asp/asp-textarea#comments Wed, 24 Jun 2009 04:12:55 +0000 FDS http://blog.1xi.net/asp/asp-textarea 使用SQL SERVER的[导入]功能,便可将access数据转换,但要注意原来的’自增字段’需要修改,将相应字段标识修改为‘是’(原来的备注字段也会自动转化为ntext).

由于新闻的添加,修改都是通过使用textarea,首先为了能保留输入内容的格式,在处理添加的页面加入

<%
Function SqlStr( data )
SqlStr = “‘” & Replace( data, “‘”, “”” ) & “‘”
End Function
Function  coder(str)
Dim  i
If  IsNull(str)  Then  :  coder=”"  :  Exit  Function  :  End  If
For  i  =  1  to  Len(str)
Select  case  mid(str,i,1)
Case  “<”          :  coder  =  coder  &”&lt;”
Case  “>”          :  coder  =  coder  &”&gt;”
Case  “&”          :  coder  =  coder  &”&amp;”
Case  chr(9)    :  coder  =  coder  &”&nbsp;&nbsp;”
Case  VBCrLf    :  coder  =  coder  &”<br>”
Case  chr(32)  :  coder  =  coder  &”&nbsp;”
Case  chr(34)  :  coder  =  coder  &”&quot;”
Case  chr(39)  :  coder  =  coder  &”&#39;”
Case  Else        :  coder  =  coder  &  mid(str,i,1)
End  Select
Next
End  Function

content=request(“content”)’正文
content=replace(content,”&nbsp;”,” “)   ‘此处处理是因为修改页面所加入空格会被转化为&nbsp; ,在此先过滤
content=coder(content)

%>

在修改页面

<%

rs.Open sql, conn, adOpenStatic
content=rs(“正文”) ‘此处一定要写,倘若直接在textarea处写

‘<textarea rows=”7″ name=”t” cols=”47″ ><%=rs(“正文”) %></textarea >“则无法显示(我就被此处

‘困了好久,还以为长字段不能使用ntext而只能使用text或varchar呢)

%>

在显示页面

<%

rs.Open sql, conn, adOpenStatic
content=rs(“content”)   ‘一定先放到变量中,否则可能无法显示
content=replace(content,vbcrlf,”<br>”+vbcrlf)   ‘经过此处处理,可显示出正确的段落格式

%>

]]> http://blog.1xi.net/asp/asp-textarea/feed 1 ASP控制每页打印行数的方法 http://blog.1xi.net/asp/asp-kongzhi-dayin-hangshu http://blog.1xi.net/asp/asp-kongzhi-dayin-hangshu#comments Mon, 11 May 2009 10:12:27 +0000 FDS http://blog.1xi.net/asp/asp-kongzhi-dayin-hangshu 在日常工作中，打印文档经常要使用，但是网页打印起来大部分都是不能控制的，这里分享一个用 ASP控制每页打印行数的方法。也许对你有一点点的启发哦！<%
pagenum=55′指定打印行数
%>
<HTML>
<HEAD>
<meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″>
<TITLE>销售利润明细报表打印</TITLE>
<style type=”text/css”>
td {font-size:9pt; color:#000000}
A{text-decoration:none}
A:hover{color:#FF0000;text-decoration:derline}
.break{page-break-before:always}
</style>
</HEAD>
<script language=”javascript”>
window.print()
</script>
<BODY style=”border:none” topmargin=”0″ leftmargin=”6″ onload=”javascrpt:pagesetup_default();”>
<script language=”VbScript”>
dim hkey_root,hkey_path,hkey_key
hkey_root=”HKEY_CURRENT_USER”
hkey_path=”\Software\Microsoft\Internet Explorer\PageSetup”
function pagesetup_default()
    on error resume next
    Set RegWsh = CreateObject(“WScript.Shell”)
    hkey_key=”\header”   
    RegWsh.RegWrite hkey_root+hkey_path+hkey_key,”&b页&p/&P”
    hkey_key=”\footer”
    RegWsh.RegWrite hkey_root+hkey_path+hkey_key,”"
end function
</script>

<%
kdname1=trim(request(“kdname1″))
kdname2=trim(request(“kdname2″))
keyword1=trim(request(“keyword1″))
keyword2=trim(request(“keyword2″))

 if keyword1<>”" then
 today=keyword1
 else
 if kdname1=”" then
 today=year(date())&”-”&month(date())
 else
 today=kdname1&”至”&kdname2
 end if
 end if
%>
  <table border=”0″ cellspacing=”0″ cellpadding=”0″ align=”center” width=”740″  height=”30″>
    <tr>
      <td align=”center”>销售利润汇总报表</td>
    </tr>
  </table>

<% 
 strSQL=”select autoid,sellautoid,productxili,productname,productsize,productnum,productdan,productjia,chaoshi,tiaoma,youhui,fukuan,moncount1,gongshang,lirun1,username,indate,fudate from sell where officename=’”&trim(request.cookies(“Myoffice”))&”‘ and monthjie=’0′ and (year(indate)=year(getdate()) and month(indate)=month(getdate())) and zhuofei is null order by autoid desc”            
 set rs1=server.createobject(“adodb.recordset”)             
 rs1.open strSQL,conn,1,1
%>              
  <table border=”1″ cellspacing=”0″ cellpadding=”0″ align=”center” style=”border-collapse: collapse”  bordercolor=”#000000″ width=”740″>            
    <tr>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”70″ >销售单号</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”168″ >商品名称（规格）</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”121″ >客户</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”30″ >数量</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”24″ >单位</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”50″ >销售价</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”23″ >折%</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”52″ >进货价</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”55″ >小计</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”45″ >利润</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”25″ >付款</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”61″ >销售日期</td>            
    </tr>
  </table>
<%            
  moncount2=0            
  moncount5=0            
  Do while not rs1.eof 
%>
<table border=”1″ cellpadding=”0″ cellspacing=”0″ width=”740″ align=”center” style=”border-collapse:collapse; font-size:10pt;color:#000000″ bordercolor=”#000000″>
<%
for i=1 to pagenum
if not rs1.eof then
  if trim(rs1(“fukuan”))=”欠款” then            
  moncount6=Csng(rs1(“lirun1″))            
  moncount5=moncount5+moncount6            
  else            
  moncount3=Csng(rs1(“lirun1″))            
  moncount2=moncount2+moncount3            
  end if 
%>     
    <tr>            
      <td height=”18″ width=”70″>&nbsp;<%=rs1(“sellautoid”)%></td>            
      <td height=”18″ width=”168″><%=Decode(rs1(“productname”))%>&nbsp;<%=rs1(“productsize”)%></td>            
      <td height=”18″ width=”121″><%=left(rs1(“gongshang”),9)%></td>           
      <td height=”18″ width=”30″ align=”center”><%=rs1(“productnum”)%></td>           
      <td height=”18″ width=”24″ align=”center”><%=rs1(“productdan”)%></td>           
      <td height=”18″ width=”50″ align=”right”><%=formatNumber(rs1(“chaoshi”),varnum,-1)%></td>           
      <td height=”18″ width=”23″ align=”center”><%=rs1(“youhui”)%></td>           
      <td height=”18″ width=”52″ align=”right”><%=formatNumber(rs1(“productjia”),varnum,-1)%></td>           
      <td height=”18″ width=”55″ align=”right”><%=formatNumber(rs1(“moncount1″),varnum,-1)%></td>           
      <td height=”18″ width=”45″ align=”right”><%=formatNumber(rs1(“lirun1″),varnum,-1)%></td>           
      <td align=”center” height=”18″ width=”25″><%if trim(rs1(“fukuan”))=”欠款” then%><font color=blue><%=rs1(“fukuan”)%></font><%else%><%=rs1(“fukuan”)%><%end if%></td>           
      <td height=”18″ width=”61″><%=rs1(“indate”)%></td>           
    </tr>
<%
rs1.movenext
end if
next
%>
</table>
<%
if not rs1.eof and i=pagenum+1 then ‘添加分页标记
%>
  <div class=”break”>&nbsp;</div>
  <table border=”0″ cellpadding=”0″ cellspacing=”0″ width=”740″ height=”12″ align=”center”><tr><td height=”12″></td></tr></table>
  <table border=”1″ cellspacing=”0″ cellpadding=”0″ align=”center” width=”740″ style=”border-collapse: collapse”  bordercolor=”#000000″>
    <tr>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”70″ >销售单号</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”168″ >商品名称（规格）</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”121″ >客户</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”30″ >数量</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”24″ >单位</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”50″ >销售价</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”23″ >折%</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”52″ >进货价</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”55″ >小计</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”45″ >利润</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”25″ >付款</td>            
      <td align=”center” height=”20″ bgcolor=”#BDCBEE” width=”61″ >销售日期</td>            
    </tr>
<%
end if
loop
rs1.close    
set rs1=nothing    
%> 
</table> 
  <table border=”1″ cellpadding=”0″ cellspacing=”0″ width=”740″ height=”20″ align=”center” style=”border-collapse: collapse”  bordercolor=”#000000″>
    <tr>           
       <td><font color=”#FF0000″><b>现金利润：</b></font><b><%=formatNumber(moncount2,varnum,-1)%></b>&nbsp;&nbsp;&nbsp;<%if moncount5<>”" then%><b><font color=”#FF0000″>欠款利润</font>：<%=formatNumber(moncount5,varnum,-1)%></b><%end if%>&nbsp;&nbsp;&nbsp;<%if moncount5<>”" then%><b><font color=”#FF0000″>毛利合计：</font><%=formatNumber(moncount5+moncount2,varnum,-1)%></b><%end if%></td>           
     </tr>  
   </table>           
<%
end if
conn.close
set conn=nothing
%> 

</BODY>
</HTML>

]]> http://blog.1xi.net/asp/asp-kongzhi-dayin-hangshu/feed 0 初识“微软ISA认证” http://blog.1xi.net/kaoshi/isa-renzheng http://blog.1xi.net/kaoshi/isa-renzheng#comments Mon, 04 May 2009 10:05:31 +0000 FDS http://blog.1xi.net/kaoshi/isa-renzheng 【简 介】
随着网络安全行业的升温，微软继思科成功推出安全认证专家(CCSP)后，又新增两门安全类专业方向的认证–MCSA: Security和MCSE: Security，继此，又推出ISA认证。   function goforum(){ var ff=document.all.forum.options[document.all.forum.selectedIndex].value; window.location.href=ff; return false; } 它是针对那些部署和管理部门级应用程序、组件、Web或桌面系统客户端及网络安全服务的专业人员而提供的。其工作角色涵盖了从需求实现到解决方案建立、部署与维护在内的各种任务。大家也许对它还比较陌生，下面我们进行一下简单的介绍：

业界评论

微软ISA(Internet Security and Acceleration ) SERVER 2000软件，是微软推出的防火墙服务器软件，堪称网络安全与速度的完美结合。目前，业界使用这个软件的企业越来越多通过这门认证，可得到MCP（产品专家）证书。

认识ISA

ISA Server通过集成一个可扩展的多层企业级防火墙和一个可伸缩的高性能Web缓存，从而实现合二为一的网络安全和加速服务器。

ISA Server有很强的自定义和扩展性。它包括一个综合的软件开发包（SDK）和应用程序接口 (API)，方便本地合作伙伴能够快速、方便地为企业扩展其安全和缓存解决方案。

ISA Server能够帮助企业发布Exchange和IIS，同时，还集成了入侵检测功能、H.323（关守）等模块。

关于考试

考试号:70-227

考试科目(中文) :安装、配置和管理微软Internet安全和加速(ISA)服务器2000企业版

考试题数：50道题

考试时间：170分钟

满分：1000

]]> http://blog.1xi.net/kaoshi/isa-renzheng/feed 0 3个步骤来实现asp模块化分页 http://blog.1xi.net/asp/mokuai-fenye http://blog.1xi.net/asp/mokuai-fenye#comments Mon, 13 Apr 2009 14:40:20 +0000 FDS http://blog.1xi.net/asp/mokuai-fenye  通过3个步骤来实现模块化分页，1、查询语句块，2、显示记录块，3、输出分页效果

1、查询语句块

<%
取得当前文件名
temp = Split(request.ServerVariables(“URL”), “/”)
fy = temp(UBound(temp))
set rs=server.createobject(“adodb.recordset”)
if not isempty(request(“page”)) then  
pagecount=cint(request(“page”))  
else  
pagecount=1  
end if
sql=”select  查询语句”
rs.open sql,conn,1,1
rs.pagesize=10  分页记录数
if pagecount>rs.pagecount or pagecount<=0 then             
pagecount=1             
end if            
if rs.eof and rs.bof then%>

<div align=”center” class=”001″><br>
对不起，没有符合搜索条件的记录！<br>
</div>

2、显示记录块

<%
else
rs.AbsolutePage=pagecount
do while not rs.eof %>

显示的记录

<% i=i+2                                                                                                 
rs.movenext                                                                                                 
if i>=rs.PageSize then exit do
loop                                                                   
%>

3、输出分页效果
<table width=”778″ border=”0″ align=”center” cellpadding=”0″ cellspacing=”0″>
  <tr align=”center”>
    <% if rs.pagecount=1 then %>
    <td height=”35″ colspan=”4″ class=001><font color=”#000000″>共有[<font color="#ff0000"><%=rs.recordcount%></font>]条信息 当前显示第 <font color=”red”>1～<%=rs.recordcount%></font>条</font></td>
  </tr>
  <tr>
    <%else%>
    <td width=”19%” height=”35″ align=”center” valign=”middle” class=001><font color=”#000000″>
      <% page_start=(pagecount-1)*rs.pagesize
            if pagecount=1 then page_start=1
      page_end=rs.pagesize*pagecount
      if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
      共有[<font color="#ff0000"><%=rs.recordcount%></font>]信息</font></td>
    <td width=”58%” height=”30″ align=”center” class=”fy”><font color=”#000000″>
          <%
    if pagecount>5 and pagecount< rs.PageCount-5 and rs.pagecount>10 then
    qizu=pagecount-4
    min=pagecount+5
    response.write “<a href=”&source&”?page=1&sortid=”&sortid&”&typeid=”&typeid&”&qylb=”&qylb&”&title=”&title&”&cityid=”&cityid&”><font color=’0000BE’>首页</font></a>&nbsp;”
    response.write “<a href=”&source&”?page=”+cstr(pagecount-1)+”&sortid=”&sortid&”&typeid=”&typeid&”&qylb=”&qylb&”&title=”&title&”&cityid=”&cityid&”><font color=’0000BE’>上一页</font></a>&nbsp;”                                                    
    for ipage=qizu to min
             if ipage<>pagecount then
             response.write “<a href=”&source&”?page=”+cstr(ipage)+”&sortid=”&sortid&”&typeid=”&typeid&”&qylb=”&qylb&”&cityid=”&cityid&”><font color=’0000BE’>”+cstr(ipage)+”</font></a>&nbsp;”
             else
             response.write “<font color=’#FF0000′>”&ipage&”</font> “                                               
             end if
    next
    response.write “<a href=”&source&”?page=”+cstr(pagecount+1)+”&sortid=”&sortid&”&typeid=”&typeid&”&qylb=”&qylb&”&title=”&title&”&cityid=”&cityid&”><font color=’0000BE’>下一页</font></a>&nbsp;”
    response.write “<a href=”&source&”?page=”+cstr(rs.PageCount)+”&sortid=”&sortid&”&typeid=”&typeid&”&qylb=”&qylb&”&title=”&title&”&cityid=”&cityid&”><font color=’0000BE’>尾页</font></a>”
    end if
    if rs.PageCount<11 then
    for ipage=1 to rs.PageCount
             if ipage<>pagecount then
             response.write “<a href=”&source&”?page=”+cstr(ipage)+”&sortid=”&sortid&”&typeid=”&typeid&”&qylb=”&qylb&”&cityid=”&cityid&”><font color=’0000BE’>”+cstr(ipage)+”</font></a>&nbsp;”
             else
             response.write “<font color=’#FF0000′>”&ipage&”</font> “                                               
             end if
    next
    end if
    if pagecount < 6 and rs.PageCount>10 then
    for ipage=1 to 10
             if ipage<>pagecount then
             response.write “<a href=”&source&”?page=”+cstr(ipage)+”&sortid=”&sortid&”&typeid=”&typeid&”&qylb=”&qylb&”&cityid=”&cityid&”><font color=’0000BE’>”+cstr(ipage)+”</font></a>&nbsp;”
             else
             response.write “<font color=’#FF0000′>”&ipage&”</font> “                                               
             end if
    next
    response.write “<a href=”&source&”?page=”+cstr(rs.PageCount)+”&sortid=”&sortid&”&typeid=”&typeid&”&qylb=”&qylb&”&title=”&title&”&cityid=”&cityid&”><font color=’0000BE’>尾页</font></a>”
    end if
    if pagecount>rs.PageCount-6 and rs.PageCount>10 then
    response.write “<a href=”&source&”?page=1&sortid=”&sortid&”&typeid=”&typeid&”&qylb=”&qylb&”&title=”&title&”&cityid=”&cityid&”><font color=’0000BE’>首页</font></a>&nbsp;”  
    for ipage=rs.PageCount-9 to rs.PageCount
             if ipage<>pagecount then
             response.write “<a href=”&source&”?page=”+cstr(ipage)+”&sortid=”&sortid&”&typeid=”&typeid&”&qylb=”&qylb&”&cityid=”&cityid&”><font color=’0000BE’>”+cstr(ipage)+”</font></a>&nbsp;”
             else
             response.write “<font color=’#FF0000′>”&ipage&”</font> “                                               
             end if
    next
    end if
             %>
    </font></td><form name=go2to form method=Post action=<%=fy%>> 
    <td width=”13%” align=”center” valign=”middle” class=”fy”>                                         
   <input type=’hidden’ name=’sortid’ value=”<%=sortid%>”><input type=’hidden’ name=’typeid’ value=”<%=typeid%>”><input type=’hidden’ name=’qylb’ value=”<%=qylb%>”><input type=’hidden’ name=’title’ value=”<%title%>”><input type=’hidden’ name=’cityid’ value=”<%=cityid%>”><font color=’000064′> 转到第<input type=’text’ name=’page’ size=2 maxLength=3>
   页</font>                              
   </td>
    <td width=”10%” align=”center” valign=”middle” class=”fy”><input name=”image” type=’image’ onClick=check() value=’确 定’ src=’http://edu.chinaz.com/Get/Program/images/button_h.jpg’></td>
    </form>
  <tr>
    <td height=”20″ colspan=”6″ valign=”bottom”><font color=”#000000″>&nbsp; </font></td>
  </tr>
  <% end if %>
  <% end if %>
</table>

]]> http://blog.1xi.net/asp/mokuai-fenye/feed 1 用ASP实现在服务器自动在线解压RAR文件 http://blog.1xi.net/asp/asp-zaixian-jieya-rar-wenjian http://blog.1xi.net/asp/asp-zaixian-jieya-rar-wenjian#comments Thu, 02 Apr 2009 01:58:03 +0000 FDS http://blog.1xi.net/asp/asp-zaixian-jieya-rar-wenjian 文件打包以后，在服务器自动在线解压RAR文件，这样可以大量的减少上传文件的时间。也很方便！这里分享一个用ASP实现在服务器自动在线解压RAR文件的方法。

<%

dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso

Mlpath=”E:\page\mian\”    ‘存放RAR.EXE和CMD.EXE的路径

ylj=Server.mappath(“mian”)&”\”  ‘解压文件后所放的路径

ywj=Server.mappath(“mian\apathy.rar”)  ‘要解压的RAR文件

Set Shell = Server.CreateObject(“WScript.Shell”)

rarcomm= “E:\page\mian\cmd.exe /c “&Mlpath&”rar.exe x -t -o+ -p- ”

cmd=rarcomm&ywj&” “&ylj

RetCode = Shell.Run(cmd,1, True)

%>

就是用Server.CreateObject(“WScript.Shell”)来执行CMD.EXE来运行RAR.EXE文件来解压RAR文件的。

]]> http://blog.1xi.net/asp/asp-zaixian-jieya-rar-wenjian/feed 0 JS弹出菜单纵向/横向效果 http://blog.1xi.net/javascript/js-caidan http://blog.1xi.net/javascript/js-caidan#comments Tue, 24 Mar 2009 09:05:49 +0000 FDS http://blog.1xi.net/javascript/js-caidan JS弹出菜单效果，包括纵向和横向的。以下是实现方法。

<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd“>
<html xmlns=”http://www.w3.org/1999/xhtml“>
<HEAD>
<TITLE></TITLE>
</HEAD>

<BODY background=”img/back.gif” leftMargin=0 topMargin=0>
<script language=”JavaScript”>
<!–
function mmLoadMenus() {
 if (window.mm_menu_1008171701_0) return;
 window.mm_menu_1008171701_0 = new Menu(“root”,71,18,”",12,”#FFFFFF”,”#FFFFFF”,”#FF9900″,”#CC0000″,”center”,”middle”,3,0,400,-5,7,true,false,true,0,true,true);/* 后面三个TRUE如果是FALSE就是横向*/
 mm_menu_1008171701_0.addMenuItem(“40头镀铝机”,”location=’111.asp’”);
 mm_menu_1008171701_0.addMenuItem(“30头镀铝机”,”location=’222.asp’”);
 mm_menu_1008171701_0.addMenuItem(“20头镀铝机”,”location=’333.asp’”);
 mm_menu_1008171701_0.hideOnMouseOut=true;
 mm_menu_1008171701_0.bgColor=’#555555′;
 mm_menu_1008171701_0.menuBorder=6;
 mm_menu_1008171701_0.menuLiteBgColor=’#FFFFFF’;
 mm_menu_1008171701_0.menuBorderBgColor=’#777777′;
 mm_menu_1008171701_0.writeMenus();
} // mmLoadMenus()
//–>
</script>
<script language=”JavaScript”>
/**
 * mm_menu 20MAR2002 Version 6.0
 * Andy Finnell, March 2002
 * Copyright (c) 2000-2002 Macromedia, Inc.
 *
 * based on menu.js
 * by gary smith, July 1997
 * Copyright (c) 1997-1999 Netscape Communications Corp.
 *
 * Netscape grants you a royalty free license to use or modify this
 * software provided that this copyright notice appears on all copies.
 * This software is provided “AS IS,” without a warranty of any kind.
 */
function Menu(label, mw, mh, fnt, fs, fclr, fhclr, bg, bgh, halgn, valgn, pad, space, to, sx, sy, srel, opq, vert, idt, aw, ah)
{
 this.version = “020320 [Menu; mm_menu.js]“;
 this.type = “Menu”;
 this.menuWidth = mw;
 this.menuItemHeight = mh;
 this.fontSize = fs;
 this.fontWeight = “plain”;
 this.fontFamily = fnt;
 this.fontColor = fclr;
 this.fontColorHilite = fhclr;
 this.bgColor = “#555555″;
 this.menuBorder = 1;
 this.menuBgOpaque=opq;
 this.menuItemBorder = 1;
 this.menuItemIndent = idt;
 this.menuItemBgColor = bg;
 this.menuItemVAlign = valgn;
 this.menuItemHAlign = halgn;
 this.menuItemPadding = pad;
 this.menuItemSpacing = space;
 this.menuLiteBgColor = “#ffffff”;
 this.menuBorderBgColor = “#777777″;
 this.menuHiliteBgColor = bgh;
 this.menuContainerBgColor = “#cccccc”;
 this.childMenuIcon = “arrows.gif”;
 this.submenuXOffset = sx;
 this.submenuYOffset = sy;
 this.submenuRelativeToItem = srel;
 this.vertical = vert;
 this.items = new Array();
 this.actions = new Array();
 this.childMenus = new Array();
 this.hideOnMouseOut = true;
 this.hideTimeout = to;
 this.addMenuItem = addMenuItem;
 this.writeMenus = writeMenus;
 this.MM_showMenu = MM_showMenu;
 this.onMenuItemOver = onMenuItemOver;
 this.onMenuItemAction = onMenuItemAction;
 this.hideMenu = hideMenu;
 this.hideChildMenu = hideChildMenu;
 if (!window.menus) window.menus = new Array();
 this.label = ” ” + label;
 window.menus[this.label] = this;
 window.menus[window.menus.length] = this;
 if (!window.activeMenus) window.activeMenus = new Array();
}

function addMenuItem(label, action) {
 this.items[this.items.length] = label;
 this.actions[this.actions.length] = action;
}

function FIND(item) {
 if( window.mmIsOpera ) return(document.getElementById(item));
 if (document.all) return(document.all[item]);
 if (document.getElementById) return(document.getElementById(item));
 return(false);
}

function writeMenus(container) {
 if (window.triedToWriteMenus) return;
 var agt = navigator.userAgent.toLowerCase();
 window.mmIsOpera = agt.indexOf(“opera”) != -1;
 if (!container && document.layers) {
  window.delayWriteMenus = this.writeMenus;
  var timer = setTimeout(‘delayWriteMenus()’, 500);
  container = new Layer(100);
  clearTimeout(timer);
 } else if (document.all || document.hasChildNodes || window.mmIsOpera) {
  document.writeln(‘<span id=”menuContainer”></span>’);
  container = FIND(“menuContainer”);
 }

 window.mmHideMenuTimer = null;
 if (!container) return; 
 window.triedToWriteMenus = true;
 container.isContainer = true;
 container.menus = new Array();
 for (var i=0; i<window.menus.length; i++)
  container.menus[i] = window.menus[i];
 window.menus.length = 0;
 var countMenus = 0;
 var countItems = 0;
 var top = 0;
 var content = ”;
 var lrs = false;
 var theStat = “”;
 var tsc = 0;
 if (document.layers) lrs = true;
 for (var i=0; i<container.menus.length; i++, countMenus++) {
  var menu = container.menus[i];
  if (menu.bgImageUp || !menu.menuBgOpaque) {
   menu.menuBorder = 0;
   menu.menuItemBorder = 0;
  }
  if (lrs) {
   var menuLayer = new Layer(100, container);
   var lite = new Layer(100, menuLayer);
   lite.top = menu.menuBorder;
   lite.left = menu.menuBorder;
   var body = new Layer(100, lite);
   body.top = menu.menuBorder;
   body.left = menu.menuBorder;
  } else {
   content += ”+
   ’<div id=”menuLayer’+ countMenus +’” style=”filter:Alpha(Opacity=90);position:absolute;z-index:1;left:10px;top:’+ (i * 100) +’px;visibility:hidden;color:’ +  menu.menuBorderBgColor + ‘;”>\n’+
   ’  <div id=”menuLite’+ countMenus +’” style=”position:absolute;z-index:1;left:’+ menu.menuBorder +’px;top:’+ menu.menuBorder +’px;visibility:hide;” onmouseout=”mouseoutMenu();”>\n’+
   ’  <div id=”menuFg’+ countMenus +’” style=”position:absolute;left:’+ menu.menuBorder +’px;top:’+ menu.menuBorder +’px;visibility:hide;”>\n’+
   ”;
  }
  var x=i;
  for (var i=0; i<menu.items.length; i++) {
   var item = menu.items[i];
   var childMenu = false;
   var defaultHeight = menu.fontSize+2*menu.menuItemPadding;
   if (item.label) {
    item = item.label;
    childMenu = true;
   }
   menu.menuItemHeight = menu.menuItemHeight || defaultHeight;
   var itemProps = ”;
   if( menu.fontFamily != ” ) itemProps += ‘font-family:’ + menu.fontFamily +’;';
   itemProps += ‘font-weight:’ + menu.fontWeight + ‘;fontSize:’ + menu.fontSize + ‘px;’;
   if (menu.fontStyle) itemProps += ‘font-style:’ + menu.fontStyle + ‘;’;
   if (document.all || window.mmIsOpera)
    itemProps += ‘font-size:’ + menu.fontSize + ‘px;” onmouseover=”onMenuItemOver(null,this);” onclick=”onMenuItemAction(null,this);’;
   else if (!document.layers) {
    itemProps += ‘font-size:’ + menu.fontSize + ‘px;’;
   }
   var l;
   if (lrs) {
    var lw = menu.menuWidth;
    if( menu.menuItemHAlign == ‘right’ ) lw -= menu.menuItemPadding;
    l = new Layer(lw,body);
   }
   var itemLeft = 0;
   var itemTop = i*menu.menuItemHeight;
   if( !menu.vertical ) {
    itemLeft = i*menu.menuWidth;
    itemTop = 0;
   }
   var dTag = ‘<div id=”menuItem’+ countItems +’” style=”position:absolute;left:’ + itemLeft + ‘px;top:’+ itemTop +’px;’+ itemProps +’”>’;
   var dClose = ‘</div>’
   if (menu.bgImageUp) dTag = ‘<div id=”menuItem’+ countItems +’” style=”background:url(‘+menu.bgImageUp+’);position:absolute;left:’ + itemLeft + ‘px;top:’+ itemTop +’px;’+ itemProps +’”>’;

   var left = 0, top = 0, right = 0, bottom = 0;
   left = 1 + menu.menuItemPadding + menu.menuItemIndent;
   right = left + menu.menuWidth – 2*menu.menuItemPadding – menu.menuItemIndent;
   if( menu.menuItemVAlign == ‘top’ ) top = menu.menuItemPadding;
   if( menu.menuItemVAlign == ‘bottom’ ) top = menu.menuItemHeight-menu.fontSize-1-menu.menuItemPadding;
   if( menu.menuItemVAlign == ‘middle’ ) top = ((menu.menuItemHeight/2)-(menu.fontSize/2)-1);
   bottom = menu.menuItemHeight – 2*menu.menuItemPadding;
   var textProps = ‘position:absolute;left:’ + left + ‘px;top:’ + top + ‘px;’;
   if (lrs) {
    textProps +=itemProps + ‘right:’ + right + ‘;bottom:’ + bottom + ‘;’;
    dTag = “”;
    dClose = “”;
   }
   
   if(document.all && !window.mmIsOpera) {
    item = ‘<div align=”‘ + menu.menuItemHAlign + ‘”>’ + item + ‘</div>’;
   } else if (lrs) {
    item = ‘<div style=”text-align:’ + menu.menuItemHAlign + ‘;”>’ + item + ‘</div>’;
   } else {
    var hitem = null;
    if( menu.menuItemHAlign != ‘left’ ) {
     if(window.mmIsOpera) {
      var operaWidth = menu.menuItemHAlign == ‘center’ ? -(menu.menuWidth-2*menu.menuItemPadding) : (menu.menuWidth-6*menu.menuItemPadding);
      hitem = ‘<div id=”menuItemHilite’ + countItems + ‘Shim” style=”position:absolute;top:1px;left:’ + menu.menuItemPadding + ‘px;width:’ + operaWidth + ‘px;text-align:’
       + menu.menuItemHAlign + ‘;visibility:visible;”>’ + item + ‘</div>’;
      item = ‘<div id=”menuItemText’ + countItems + ‘Shim” style=”position:absolute;top:1px;left:’ + menu.menuItemPadding + ‘px;width:’ + operaWidth + ‘px;text-align:’
       + menu.menuItemHAlign + ‘;visibility:visible;”>’ + item + ‘</div>’;
     } else {
      hitem = ‘<div id=”menuItemHilite’ + countItems + ‘Shim” style=”position:absolute;top:1px;left:1px;right:-’ + (left+menu.menuWidth-3*menu.menuItemPadding) + ‘px;text-align:’
       + menu.menuItemHAlign + ‘;visibility:visible;”>’ + item + ‘</div>’;
      item = ‘<div id=”menuItemText’ + countItems + ‘Shim” style=”position:absolute;top:1px;left:1px;right:-’ + (left+menu.menuWidth-3*menu.menuItemPadding) + ‘px;text-align:’
       + menu.menuItemHAlign + ‘;visibility:visible;”>’ + item + ‘</div>’;
     }
    } else hitem = null;
   }
   if(document.all && !window.mmIsOpera) item = ‘<div id=”menuItemShim’ + countItems + ‘” style=”position:absolute;left:0px;top:0px;”>’ + item + ‘</div>’;
   var dText = ‘<div id=”menuItemText’+ countItems +’” style=”‘ + textProps + ‘color:’+ menu.fontColor +’;”>’+ item +’&nbsp</div>\n’
      + ‘<div id=”menuItemHilite’+ countItems +’” style=”‘ + textProps + ‘color:’+ menu.fontColorHilite +’;visibility:hidden;”>’
      + (hitem||item) +’&nbsp</div>’;
   if (childMenu) content += ( dTag + dText + ‘<div id=”childMenu’+ countItems +’” style=”position:absolute;left:0px;top:3px;”><img src=”‘+ menu.childMenuIcon +’”></div>\n’ + dClose);
   else content += ( dTag + dText + dClose);
   if (lrs) {
    l.document.open(“text/html”);
    l.document.writeln(content);
    l.document.close(); 
    content = ”;
    theStat += “-”;
    tsc++;
    if (tsc > 50) {
     tsc = 0;
     theStat = “”;
    }
    status = theStat;
   }
   countItems++; 
  }
  if (lrs) {
   var focusItem = new Layer(100, body);
   focusItem.visiblity=”hidden”;
   focusItem.document.open(“text/html”);
   focusItem.document.writeln(“&nbsp;”);
   focusItem.document.close(); 
  } else {
    content += ‘   <div id=”focusItem’+ countMenus +’” style=”position:absolute;left:0px;top:0px;visibility:hide;” onclick=”onMenuItemAction(null,this);”>&nbsp;</div>\n’;
    content += ‘   </div>\n  </div>\n</div>\n’;
  }
  i=x;
 }
 if (document.layers) {  
  container.clip.width = window.innerWidth;
  container.clip.height = window.innerHeight;
  container.onmouseout = mouseoutMenu;
  container.menuContainerBgColor = this.menuContainerBgColor;
  for (var i=0; i<container.document.layers.length; i++) {
   proto = container.menus[i];
   var menu = container.document.layers[i];
   container.menus[i].menuLayer = menu;
   container.menus[i].menuLayer.Menu = container.menus[i];
   container.menus[i].menuLayer.Menu.container = container;
   var body = menu.document.layers[0].document.layers[0];
   body.clip.width = proto.menuWidth || body.clip.width;
   body.clip.height = proto.menuHeight || body.clip.height;
   for (var n=0; n<body.document.layers.length-1; n++) {
    var l = body.document.layers[n];
    l.Menu = container.menus[i];
    l.menuHiliteBgColor = proto.menuHiliteBgColor;
    l.document.bgColor = proto.menuItemBgColor;
    l.saveColor = proto.menuItemBgColor;
    l.onmouseover = proto.onMenuItemOver;
    l.onclick = proto.onMenuItemAction;
    l.mmaction = container.menus[i].actions[n];
    l.focusItem = body.document.layers[body.document.layers.length-1];
    l.clip.width = proto.menuWidth || body.clip.width;
    l.clip.height = proto.menuItemHeight || l.clip.height;
    if (n>0) {
     if( l.Menu.vertical ) l.top = body.document.layers[n-1].top + body.document.layers[n-1].clip.height + proto.menuItemBorder + proto.menuItemSpacing;
     else l.left = body.document.layers[n-1].left + body.document.layers[n-1].clip.width + proto.menuItemBorder + proto.menuItemSpacing;
    }
    l.hilite = l.document.layers[1];
    if (proto.bgImageUp) l.background.src = proto.bgImageUp;
    l.document.layers[1].isHilite = true;
    if (l.document.layers.length > 2) {
     l.childMenu = container.menus[i].items[n].menuLayer;
     l.document.layers[2].left = l.clip.width -13;
     l.document.layers[2].top = (l.clip.height / 2) -4;
     l.document.layers[2].clip.left += 3;
     l.Menu.childMenus[l.Menu.childMenus.length] = l.childMenu;
    }
   }
   if( proto.menuBgOpaque ) body.document.bgColor = proto.bgColor;
   if( proto.vertical ) {
    body.clip.width  = l.clip.width +proto.menuBorder;
    body.clip.height = l.top + l.clip.height +proto.menuBorder;
   } else {
    body.clip.height  = l.clip.height +proto.menuBorder;
    body.clip.width = l.left + l.clip.width  +proto.menuBorder;
    if( body.clip.width > window.innerWidth ) body.clip.width = window.innerWidth;
   }
   var focusItem = body.document.layers[n];
   focusItem.clip.width = body.clip.width;
   focusItem.Menu = l.Menu;
   focusItem.top = -30;
            focusItem.captureEvents(Event.MOUSEDOWN);
            focusItem.onmousedown = onMenuItemDown;
   if( proto.menuBgOpaque ) menu.document.bgColor = proto.menuBorderBgColor;
   var lite = menu.document.layers[0];
   if( proto.menuBgOpaque ) lite.document.bgColor = proto.menuLiteBgColor;
   lite.clip.width = body.clip.width +1;
   lite.clip.height = body.clip.height +1;
   menu.clip.width = body.clip.width + (proto.menuBorder * 3) ;
   menu.clip.height = body.clip.height + (proto.menuBorder * 3);
  }
 } else {
  if ((!document.all) && (container.hasChildNodes) && !window.mmIsOpera) {
   container.innerHTML=content;
  } else {
   container.document.open(“text/html”);
   container.document.writeln(content);
   container.document.close(); 
  }
  if (!FIND(“menuLayer0″)) return;
  var menuCount = 0;
  for (var x=0; x<container.menus.length; x++) {
   var menuLayer = FIND(“menuLayer” + x);
   container.menus[x].menuLayer = “menuLayer” + x;
   menuLayer.Menu = container.menus[x];
   menuLayer.Menu.container = “menuLayer” + x;
   menuLayer.style.zindex = 1;
      var s = menuLayer.style;
   s.pixeltop = -300;
   s.pixelleft = -300;
   s.top = ‘-300px’;
   s.left = ‘-300px’;

   var menu = container.menus[x];
   menu.menuItemWidth = menu.menuWidth || menu.menuIEWidth || 140;
   if( menu.menuBgOpaque ) menuLayer.style.backgroundColor = menu.menuBorderBgColor;
   var top = 0;
   var left = 0;
   menu.menuItemLayers = new Array();
   for (var i=0; i<container.menus[x].items.length; i++) {
    var l = FIND(“menuItem” + menuCount);
    l.Menu = container.menus[x];
    l.Menu.menuItemLayers[l.Menu.menuItemLayers.length] = l;
    if (l.addEventListener || window.mmIsOpera) {
     l.style.width = menu.menuItemWidth + ‘px’;
     l.style.height = menu.menuItemHeight + ‘px’;
     l.style.pixelWidth = menu.menuItemWidth;
     l.style.pixelHeight = menu.menuItemHeight;
     l.style.top = top + ‘px’;
     l.style.left = left + ‘px’;
     if(l.addEventListener) {
      l.addEventListener(“mouseover”, onMenuItemOver, false);
      l.addEventListener(“click”, onMenuItemAction, false);
      l.addEventListener(“mouseout”, mouseoutMenu, false);
     }
     if( menu.menuItemHAlign != ‘left’ ) {
      l.hiliteShim = FIND(“menuItemHilite” + menuCount + “Shim”);
      l.hiliteShim.style.visibility = “inherit”;
      l.textShim = FIND(“menuItemText” + menuCount + “Shim”);
      l.hiliteShim.style.pixelWidth = menu.menuItemWidth – 2*menu.menuItemPadding – menu.menuItemIndent;
      l.hiliteShim.style.width = l.hiliteShim.style.pixelWidth;
      l.textShim.style.pixelWidth = menu.menuItemWidth – 2*menu.menuItemPadding – menu.menuItemIndent;
      l.textShim.style.width = l.textShim.style.pixelWidth; 
     }
    } else {
     l.style.pixelWidth = menu.menuItemWidth;
     l.style.pixelHeight = menu.menuItemHeight;
     l.style.pixelTop = top;
     l.style.pixelLeft = left;
     if( menu.menuItemHAlign != ‘left’ ) {
      var shim = FIND(“menuItemShim” + menuCount);
      shim[0].style.pixelWidth = menu.menuItemWidth – 2*menu.menuItemPadding – menu.menuItemIndent;
      shim[1].style.pixelWidth = menu.menuItemWidth – 2*menu.menuItemPadding – menu.menuItemIndent;
      shim[0].style.width = shim[0].style.pixelWidth + ‘px’;
      shim[1].style.width = shim[1].style.pixelWidth + ‘px’;
     }
    }
    if( menu.vertical ) top = top + menu.menuItemHeight+menu.menuItemBorder+menu.menuItemSpacing;
    else left = left + menu.menuItemWidth+menu.menuItemBorder+menu.menuItemSpacing;
    l.style.fontSize = menu.fontSize + ‘px’;
    l.style.backgroundColor = menu.menuItemBgColor;
    l.style.visibility = “inherit”;
    l.saveColor = menu.menuItemBgColor;
    l.menuHiliteBgColor = menu.menuHiliteBgColor;
    l.mmaction = container.menus[x].actions[i];
    l.hilite = FIND(“menuItemHilite” + menuCount);
    l.focusItem = FIND(“focusItem” + x);
    l.focusItem.style.pixelTop = -30;
    l.focusItem.style.top = ‘-30px’;
    var childItem = FIND(“childMenu” + menuCount);
    if (childItem) {
     l.childMenu = container.menus[x].items[i].menuLayer;
     childItem.style.pixelLeft = menu.menuItemWidth -11;
     childItem.style.left = childItem.style.pixelLeft + ‘px’;
     childItem.style.pixelTop = (menu.menuItemHeight /2) -4;
     childItem.style.top = childItem.style.pixelTop + ‘px’;
     l.Menu.childMenus[l.Menu.childMenus.length] = l.childMenu;
    }
    l.style.cursor = “hand”;
    menuCount++;
   }
   if( menu.vertical ) {
    menu.menuHeight = top-1-menu.menuItemSpacing;
    menu.menuWidth = menu.menuItemWidth;
   } else {
    menu.menuHeight = menu.menuItemHeight;
    menu.menuWidth = left-1-menu.menuItemSpacing;
   }

   var lite = FIND(“menuLite” + x);
   var s = lite.style;
   s.pixelHeight = menu.menuHeight +(menu.menuBorder * 2);
   s.height = s.pixelHeight + ‘px’;
   s.pixelWidth = menu.menuWidth + (menu.menuBorder * 2);
   s.width = s.pixelWidth + ‘px’;
   if( menu.menuBgOpaque ) s.backgroundColor = menu.menuLiteBgColor;

   var body = FIND(“menuFg” + x);
   s = body.style;
   s.pixelHeight = menu.menuHeight + menu.menuBorder;
   s.height = s.pixelHeight + ‘px’;
   s.pixelWidth = menu.menuWidth + menu.menuBorder;
   s.width = s.pixelWidth + ‘px’;
   if( menu.menuBgOpaque ) s.backgroundColor = menu.bgColor;

   s = menuLayer.style;
   s.pixelWidth  = menu.menuWidth + (menu.menuBorder * 4);
   s.width = s.pixelWidth + ‘px’;
   s.pixelHeight  = menu.menuHeight+(menu.menuBorder*4);
   s.height = s.pixelHeight + ‘px’;
  }
 }
 if (document.captureEvents) document.captureEvents(Event.MOUSEUP);
 if (document.addEventListener) document.addEventListener(“mouseup”, onMenuItemOver, false);
 if (document.layers && window.innerWidth) {
  window.onresize = NS4resize;
  window.NS4sIW = window.innerWidth;
  window.NS4sIH = window.innerHeight;
  setTimeout(“NS4resize()”,500);
 }
 document.onmouseup = mouseupMenu;
 window.mmWroteMenu = true;
 status = “”;
}

function NS4resize() {
 if (NS4sIW != window.innerWidth || NS4sIH != window.innerHeight) window.location.reload();
}

function onMenuItemOver(e, l) {
 MM_clearTimeout();
 l = l || this;
 a = window.ActiveMenuItem;
 if (document.layers) {
  if (a) {
   a.document.bgColor = a.saveColor;
   if (a.hilite) a.hilite.visibility = “hidden”;
   if (a.Menu.bgImageOver) a.background.src = a.Menu.bgImageUp;
   a.focusItem.top = -100;
   a.clicked = false;
  }
  if (l.hilite) {
   l.document.bgColor = l.menuHiliteBgColor;
   l.zIndex = 1;
   l.hilite.visibility = “inherit”;
   l.hilite.zIndex = 2;
   l.document.layers[1].zIndex = 1;
   l.focusItem.zIndex = this.zIndex +2;
  }
  if (l.Menu.bgImageOver) l.background.src = l.Menu.bgImageOver;
  l.focusItem.top = this.top;
  l.focusItem.left = this.left;
  l.focusItem.clip.width = l.clip.width;
  l.focusItem.clip.height = l.clip.height;
  l.Menu.hideChildMenu(l);
 } else if (l.style && l.Menu) {
  if (a) {
   a.style.backgroundColor = a.saveColor;
   if (a.hilite) a.hilite.style.visibility = “hidden”;
   if (a.hiliteShim) a.hiliteShim.style.visibility = “inherit”;
   if (a.Menu.bgImageUp) a.style.background = “url(” + a.Menu.bgImageUp +”)”;;
  }
  l.style.backgroundColor = l.menuHiliteBgColor;
  l.zIndex = 1;
  if (l.Menu.bgImageOver) l.style.background = “url(” + l.Menu.bgImageOver +”)”;
  if (l.hilite) {
   l.hilite.style.visibility = “inherit”;
   if( l.hiliteShim ) l.hiliteShim.style.visibility = “visible”;
  }
  l.focusItem.style.pixelTop = l.style.pixelTop;
  l.focusItem.style.top = l.focusItem.style.pixelTop + ‘px’;
  l.focusItem.style.pixelLeft = l.style.pixelLeft;
  l.focusItem.style.left = l.focusItem.style.pixelLeft + ‘px’;
  l.focusItem.style.zIndex = l.zIndex +1;
  l.Menu.hideChildMenu(l);
 } else return;
 window.ActiveMenuItem = l;
}

function onMenuItemAction(e, l) {
 l = window.ActiveMenuItem;
 if (!l) return;
 hideActiveMenus();
 if (l.mmaction) eval(“” + l.mmaction);
 window.ActiveMenuItem = 0;
}

function MM_clearTimeout() {
 if (mmHideMenuTimer) clearTimeout(mmHideMenuTimer);
 mmHideMenuTimer = null;
 mmDHFlag = false;
}

function MM_startTimeout() {
 if( window.ActiveMenu ) {
  mmStart = new Date();
  mmDHFlag = true;
  mmHideMenuTimer = setTimeout(“mmDoHide()”, window.ActiveMenu.Menu.hideTimeout);
 }
}

function mmDoHide() {
 if (!mmDHFlag || !window.ActiveMenu) return;
 var elapsed = new Date() – mmStart;
 var timeout = window.ActiveMenu.Menu.hideTimeout;
 if (elapsed < timeout) {
  mmHideMenuTimer = setTimeout(“mmDoHide()”, timeout+100-elapsed);
  return;
 }
 mmDHFlag = false;
 hideActiveMenus();
 window.ActiveMenuItem = 0;
}

function MM_showMenu(menu, x, y, child, imgname) {
 if (!window.mmWroteMenu) return;
 MM_clearTimeout();
 if (menu) {
  var obj = FIND(imgname) || document.images[imgname] || document.links[imgname] || document.anchors[imgname];
  x = moveXbySlicePos (x, obj);
  y = moveYbySlicePos (y, obj);
 }
 if (document.layers) {
  if (menu) {
   var l = menu.menuLayer || menu;
   l.top = l.left = 1;
   hideActiveMenus();
   if (this.visibility) l = this;
   window.ActiveMenu = l;
  } else {
   var l = child;
  }
  if (!l) return;
  for (var i=0; i<l.layers.length; i++) {      
   if (!l.layers[i].isHilite) l.layers[i].visibility = “inherit”;
   if (l.layers[i].document.layers.length > 0) MM_showMenu(null, “relative”, “relative”, l.layers[i]);
  }
  if (l.parentLayer) {
   if (x != “relative”) l.parentLayer.left = x || window.pageX || 0;
   if (l.parentLayer.left + l.clip.width > window.innerWidth) l.parentLayer.left -= (l.parentLayer.left + l.clip.width – window.innerWidth);
   if (y != “relative”) l.parentLayer.top = y || window.pageY || 0;
   if (l.parentLayer.isContainer) {
    l.Menu.xOffset = window.pageXOffset;
    l.Menu.yOffset = window.pageYOffset;
    l.parentLayer.clip.width = window.ActiveMenu.clip.width +2;
    l.parentLayer.clip.height = window.ActiveMenu.clip.height +2;
    if (l.parentLayer.menuContainerBgColor && l.Menu.menuBgOpaque ) l.parentLayer.document.bgColor = l.parentLayer.menuContainerBgColor;
   }
  }
  l.visibility = “inherit”;
  if (l.Menu) l.Menu.container.visibility = “inherit”;
 } else if (FIND(“menuItem0″)) {
  var l = menu.menuLayer || menu; 
  hideActiveMenus();
  if (typeof(l) == “string”) l = FIND(l);
  window.ActiveMenu = l;
  var s = l.style;
  s.visibility = “inherit”;
  if (x != “relative”) {
   s.pixelLeft = x || (window.pageX + document.body.scrollLeft) || 0;
   s.left = s.pixelLeft + ‘px’;
  }
  if (y != “relative”) {
   s.pixelTop = y || (window.pageY + document.body.scrollTop) || 0;
   s.top = s.pixelTop + ‘px’;
  }
  l.Menu.xOffset = document.body.scrollLeft;
  l.Menu.yOffset = document.body.scrollTop;
 }
 if (menu) window.activeMenus[window.activeMenus.length] = l;
 MM_clearTimeout();
}

function onMenuItemDown(e, l) {
 var a = window.ActiveMenuItem;
 if (document.layers && a) {
  a.eX = e.pageX;
  a.eY = e.pageY;
  a.clicked = true;
    }
}

function mouseupMenu(e) {
 hideMenu(true, e);
 hideActiveMenus();
 return true;
}
function getExplorerVersion() {
 var ieVers = parseFloat(navigator.appVersion);
 if( navigator.appName != ‘Microsoft Internet Explorer’ ) return ieVers;
 var tempVers = navigator.appVersion;
 var i = tempVers.indexOf( ‘MSIE ‘ );
 if( i >= 0 ) {
  tempVers = tempVers.substring( i+5 );
  ieVers = parseFloat( tempVers );
 }
 return ieVers;
}

function mouseoutMenu() {
 if ((navigator.appName == “Microsoft Internet Explorer”) && (getExplorerVersion() < 4.5))
  return true;
 hideMenu(false, false);
 return true;
}

function hideMenu(mouseup, e) {
 var a = window.ActiveMenuItem;
 if (a && document.layers) {
  a.document.bgColor = a.saveColor;
  a.focusItem.top = -30;
  if (a.hilite) a.hilite.visibility = “hidden”;
  if (mouseup && a.mmaction && a.clicked && window.ActiveMenu) {
    if (a.eX <= e.pageX+15 && a.eX >= e.pageX-15 && a.eY <= e.pageY+10 && a.eY >= e.pageY-10) {
    setTimeout(‘window.ActiveMenu.Menu.onMenuItemAction();’, 500);
   }
  }
  a.clicked = false;
  if (a.Menu.bgImageOver) a.background.src = a.Menu.bgImageUp;
 } else if (window.ActiveMenu && FIND(“menuItem0″)) {
  if (a) {
   a.style.backgroundColor = a.saveColor;
   if (a.hilite) a.hilite.style.visibility = “hidden”;
   if (a.hiliteShim) a.hiliteShim.style.visibility = “inherit”;
   if (a.Menu.bgImageUp) a.style.background = “url(” + a.Menu.bgImageUp +”)”;
  }
 }
 if (!mouseup && window.ActiveMenu) {
  if (window.ActiveMenu.Menu) {
   if (window.ActiveMenu.Menu.hideOnMouseOut) MM_startTimeout();
   return(true);
  }
 }
 return(true);
}

function hideChildMenu(hcmLayer) {
 MM_clearTimeout();
 var l = hcmLayer;
 for (var i=0; i < l.Menu.childMenus.length; i++) {
  var theLayer = l.Menu.childMenus[i];
  if (document.layers) theLayer.visibility = “hidden”;
  else {
   theLayer = FIND(theLayer);
   theLayer.style.visibility = “hidden”;
   if( theLayer.Menu.menuItemHAlign != ‘left’ ) {
    for(var j = 0; j < theLayer.Menu.menuItemLayers.length; j++) {
     var itemLayer = theLayer.Menu.menuItemLayers[j];
     if(itemLayer.textShim) itemLayer.textShim.style.visibility = “inherit”;
    }
   }
  }
  theLayer.Menu.hideChildMenu(theLayer);
 }
 if (l.childMenu) {
  var childMenu = l.childMenu;
  if (document.layers) {
   l.Menu.MM_showMenu(null,null,null,childMenu.layers[0]);
   childMenu.zIndex = l.parentLayer.zIndex +1;
   childMenu.top = l.Menu.menuLayer.top + l.Menu.submenuYOffset;
   if( l.Menu.vertical ) {
    if( l.Menu.submenuRelativeToItem ) childMenu.top += l.top + l.parentLayer.top;
    childMenu.left = l.parentLayer.left + l.parentLayer.clip.width – (2*l.Menu.menuBorder) + l.Menu.menuLayer.left + l.Menu.submenuXOffset;
   } else {
    childMenu.top += l.top + l.parentLayer.top; 
    if( l.Menu.submenuRelativeToItem ) childMenu.left = l.Menu.menuLayer.left + l.left + l.clip.width + (2*l.Menu.menuBorder) + l.Menu.submenuXOffset;
    else childMenu.left = l.parentLayer.left + l.parentLayer.clip.width – (2*l.Menu.menuBorder) + l.Menu.menuLayer.left + l.Menu.submenuXOffset;
   }
   if( childMenu.left < l.Menu.container.clip.left ) l.Menu.container.clip.left = childMenu.left;
   var w = childMenu.clip.width+childMenu.left-l.Menu.container.clip.left;
   if (w > l.Menu.container.clip.width)  l.Menu.container.clip.width = w;
   var h = childMenu.clip.height+childMenu.top-l.Menu.container.clip.top;
   if (h > l.Menu.container.clip.height) l.Menu.container.clip.height = h;
   l.document.layers[1].zIndex = 0;
   childMenu.visibility = “inherit”;
  } else if (FIND(“menuItem0″)) {
   childMenu = FIND(l.childMenu);
   var menuLayer = FIND(l.Menu.menuLayer);
   var s = childMenu.style;
   s.zIndex = menuLayer.style.zIndex+1;
   if (document.all || window.mmIsOpera) {
    s.pixelTop = menuLayer.style.pixelTop + l.Menu.submenuYOffset;
    if( l.Menu.vertical ) {
     if( l.Menu.submenuRelativeToItem ) s.pixelTop += l.style.pixelTop;
     s.pixelLeft = l.style.pixelWidth + menuLayer.style.pixelLeft + l.Menu.submenuXOffset;
     s.left = s.pixelLeft + ‘px’;
    } else {
     s.pixelTop += l.style.pixelTop;
     if( l.Menu.submenuRelativeToItem ) s.pixelLeft = menuLayer.style.pixelLeft + l.style.pixelLeft + l.style.pixelWidth + (2*l.Menu.menuBorder) + l.Menu.submenuXOffset;
     else s.pixelLeft = (menuLayer.style.pixelWidth-4*l.Menu.menuBorder) + menuLayer.style.pixelLeft + l.Menu.submenuXOffset;
     s.left = s.pixelLeft + ‘px’;
    }
   } else {
    var top = parseInt(menuLayer.style.top) + l.Menu.submenuYOffset;
    var left = 0;
    if( l.Menu.vertical ) {
     if( l.Menu.submenuRelativeToItem ) top += parseInt(l.style.top);
     left = (parseInt(menuLayer.style.width)-4*l.Menu.menuBorder) + parseInt(menuLayer.style.left) + l.Menu.submenuXOffset;
    } else {
     top += parseInt(l.style.top);
     if( l.Menu.submenuRelativeToItem ) left = parseInt(menuLayer.style.left) + parseInt(l.style.left) + parseInt(l.style.width) + (2*l.Menu.menuBorder) + l.Menu.submenuXOffset;
     else left = (parseInt(menuLayer.style.width)-4*l.Menu.menuBorder) + parseInt(menuLayer.style.left) + l.Menu.submenuXOffset;
    }
    s.top = top + ‘px’;
    s.left = left + ‘px’;
   }
   childMenu.style.visibility = “inherit”;
  } else return;
  window.activeMenus[window.activeMenus.length] = childMenu;
 }
}

function hideActiveMenus() {
 if (!window.activeMenus) return;
 for (var i=0; i < window.activeMenus.length; i++) {
  if (!activeMenus[i]) continue;
  if (activeMenus[i].visibility && activeMenus[i].Menu && !window.mmIsOpera) {
   activeMenus[i].visibility = “hidden”;
   activeMenus[i].Menu.container.visibility = “hidden”;
   activeMenus[i].Menu.container.clip.left = 0;
  } else if (activeMenus[i].style) {
   var s = activeMenus[i].style;
   s.visibility = “hidden”;
   s.left = ‘-200px’;
   s.top = ‘-200px’;
  }
 }
 if (window.ActiveMenuItem) hideMenu(false, false);
 window.activeMenus.length = 0;
}

function moveXbySlicePos (x, img) {
 if (!document.layers) {
  var onWindows = navigator.platform ? navigator.platform == “Win32″ : false;
  var macIE45 = document.all && !onWindows && getExplorerVersion() == 4.5;
  var par = img;
  var lastOffset = 0;
  while(par){
   if( par.leftMargin && ! onWindows ) x += parseInt(par.leftMargin);
   if( (par.offsetLeft != lastOffset) && par.offsetLeft ) x += parseInt(par.offsetLeft);
   if( par.offsetLeft != 0 ) lastOffset = par.offsetLeft;
   par = macIE45 ? par.parentElement : par.offsetParent;
  }
 } else if (img.x) x += img.x;
 return x;
}

function moveYbySlicePos (y, img) {
 if(!document.layers) {
  var onWindows = navigator.platform ? navigator.platform == “Win32″ : false;
  var macIE45 = document.all && !onWindows && getExplorerVersion() == 4.5;
  var par = img;
  var lastOffset = 0;
  while(par){
   if( par.topMargin && !onWindows ) y += parseInt(par.topMargin);
   if( (par.offsetTop != lastOffset) && par.offsetTop ) y += parseInt(par.offsetTop);
   if( par.offsetTop != 0 ) lastOffset = par.offsetTop;
   par = macIE45 ? par.parentElement : par.offsetParent;
  }  
 } else if (img.y >= 0) y += img.y;
 return y;
}
</script>
<script language=”JavaScript1.2″>mmLoadMenus();</script>
<table width=”60%” border=”0″ align=”center” cellspacing=”0″>
<tr class=”top”>
  <td> <div align=”center”><font color=”#000000″>
<a href=”#” name=”link2″ id=”link1″ onMouseOver=”MM_showMenu(window.mm_menu_1008171701_0,10,18,null,’link2′)” onMouseOut=”MM_startTimeout();”>
真空镀铝机</a>
      </font></div></td>
</tr>
</table>
</BODY>
</html>

]]> http://blog.1xi.net/javascript/js-caidan/feed 2 用ASP实现简单的防盗链 http://blog.1xi.net/asp/fangdaolian http://blog.1xi.net/asp/fangdaolian#comments Thu, 05 Mar 2009 02:22:47 +0000 FDS http://blog.1xi.net/asp/fangdaolian 是不是老有人盗用你的资源，自己辛苦搞的东西就被被人白白的盗用了。给你支个简单的防盗链方法，也许非常有用哦。主要实现方式是：判断来源地址是不是你的地址，如果是的话，给下载，如果不是，给出禁止提示！以下是简单代码部分，参考下吧。

<%
http=Request.ServerVariables(“HTTP_REFERER”)
http2=Cstr(Request.ServerVariables(“SERVER_NAME”))
if mid(http,8,len(http2))<>http2 then
response.write “本站禁止从外部站点下载！”
else
response.redirect “download.doc” ‘download.doc为下载文件名
end if
%>

]]> http://blog.1xi.net/asp/fangdaolian/feed 0 用ASP把汉字转换成拼音的函数 http://blog.1xi.net/asp/hanzi-to-pinyin http://blog.1xi.net/asp/hanzi-to-pinyin#comments Thu, 05 Mar 2009 02:06:17 +0000 FDS http://blog.1xi.net/asp/hanzi-to-pinyin 中国人都习惯于用拼音，常常把在SEO的时候，把URL的行字转化成拼音，有利于搜索引擎的识别，获的好的排名。这里分享一个用ASP把汉字转换成拼音的函数。希望各位看客喜欢！

<%
Set d = CreateObject(“Scripting.Dictionary”)
d.add ”a”,-20319
d.add ”ai”,-20317
d.add ”an”,-20304
d.add ”ang”,-20295
d.add ”ao”,-20292
d.add ”ba”,-20283
d.add ”bai”,-20265
d.add ”ban”,-20257
d.add ”bang”,-20242
d.add ”bao”,-20230
d.add ”bei”,-20051
d.add ”ben”,-20036
d.add ”beng”,-20032
d.add ”bi”,-20026
d.add ”bian”,-20002
d.add ”biao”,-19990
d.add ”bie”,-19986
d.add ”bin”,-19982
d.add ”bing”,-19976
d.add ”bo”,-19805
d.add ”bu”,-19784
d.add ”ca”,-19775
d.add ”cai”,-19774
d.add ”can”,-19763
d.add ”cang”,-19756
d.add ”cao”,-19751
d.add ”ce”,-19746
d.add ”ceng”,-19741
d.add ”cha”,-19739
d.add ”chai”,-19728
d.add ”chan”,-19725
d.add ”chang”,-19715
d.add ”chao”,-19540
d.add ”che”,-19531
d.add ”chen”,-19525
d.add ”cheng”,-19515
d.add ”chi”,-19500
d.add ”chong”,-19484
d.add ”chou”,-19479
d.add ”chu”,-19467
d.add ”chuai”,-19289
d.add ”chuan”,-19288
d.add ”chuang”,-19281
d.add ”chui”,-19275
d.add ”chun”,-19270
d.add ”chuo”,-19263
d.add ”ci”,-19261
d.add ”cong”,-19249
d.add ”cou”,-19243
d.add ”cu”,-19242
d.add ”cuan”,-19238
d.add ”cui”,-19235
d.add ”cun”,-19227
d.add ”cuo”,-19224
d.add ”da”,-19218
d.add ”dai”,-19212
d.add ”dan”,-19038
d.add ”dang”,-19023
d.add ”dao”,-19018
d.add ”de”,-19006
d.add ”deng”,-19003
d.add ”di”,-18996
d.add ”dian”,-18977
d.add ”diao”,-18961
d.add ”die”,-18952
d.add ”ding”,-18783
d.add ”diu”,-18774
d.add ”dong”,-18773
d.add ”dou”,-18763
d.add ”du”,-18756
d.add ”duan”,-18741
d.add ”dui”,-18735
d.add ”dun”,-18731
d.add ”duo”,-18722
d.add ”e”,-18710
d.add ”en”,-18697
d.add ”er”,-18696
d.add ”fa”,-18526
d.add ”fan”,-18518
d.add ”fang”,-18501
d.add ”fei”,-18490
d.add ”fen”,-18478
d.add ”feng”,-18463
d.add ”fo”,-18448
d.add ”fou”,-18447
d.add ”fu”,-18446
d.add ”ga”,-18239
d.add ”gai”,-18237
d.add ”gan”,-18231
d.add ”gang”,-18220
d.add ”gao”,-18211
d.add ”ge”,-18201
d.add ”gei”,-18184
d.add ”gen”,-18183
d.add ”geng”,-18181
d.add ”gong”,-18012
d.add ”gou”,-17997
d.add ”gu”,-17988
d.add ”gua”,-17970
d.add ”guai”,-17964
d.add ”guan”,-17961
d.add ”guang”,-17950
d.add ”gui”,-17947
d.add ”gun”,-17931
d.add ”guo”,-17928
d.add ”ha”,-17922
d.add ”hai”,-17759
d.add ”han”,-17752
d.add ”hang”,-17733
d.add ”hao”,-17730
d.add ”he”,-17721
d.add ”hei”,-17703
d.add ”hen”,-17701
d.add ”heng”,-17697
d.add ”hong”,-17692
d.add ”hou”,-17683
d.add ”hu”,-17676
d.add ”hua”,-17496
d.add ”huai”,-17487
d.add ”huan”,-17482
d.add ”huang”,-17468
d.add ”hui”,-17454
d.add ”hun”,-17433
d.add ”huo”,-17427
d.add ”ji”,-17417
d.add ”jia”,-17202
d.add ”jian”,-17185
d.add ”jiang”,-16983
d.add ”jiao”,-16970
d.add ”jie”,-16942
d.add ”jin”,-16915
d.add ”jing”,-16733
d.add ”jiong”,-16708
d.add ”jiu”,-16706
d.add ”ju”,-16689
d.add ”juan”,-16664
d.add ”jue”,-16657
d.add ”jun”,-16647
d.add ”ka”,-16474
d.add ”kai”,-16470
d.add ”kan”,-16465
d.add ”kang”,-16459
d.add ”kao”,-16452
d.add ”ke”,-16448
d.add ”ken”,-16433
d.add ”keng”,-16429
d.add ”kong”,-16427
d.add ”kou”,-16423
d.add ”ku”,-16419
d.add ”kua”,-16412
d.add ”kuai”,-16407
d.add ”kuan”,-16403
d.add ”kuang”,-16401
d.add ”kui”,-16393
d.add ”kun”,-16220
d.add ”kuo”,-16216
d.add ”la”,-16212
d.add ”lai”,-16205
d.add ”lan”,-16202
d.add ”lang”,-16187
d.add ”lao”,-16180
d.add ”le”,-16171
d.add ”lei”,-16169
d.add ”leng”,-16158
d.add ”li”,-16155
d.add ”lia”,-15959
d.add ”lian”,-15958
d.add ”liang”,-15944
d.add ”liao”,-15933
d.add ”lie”,-15920
d.add ”lin”,-15915
d.add ”ling”,-15903
d.add ”liu”,-15889
d.add ”long”,-15878
d.add ”lou”,-15707
d.add ”lu”,-15701
d.add ”lv”,-15681
d.add ”luan”,-15667
d.add ”lue”,-15661
d.add ”lun”,-15659
d.add ”luo”,-15652
d.add ”ma”,-15640
d.add ”mai”,-15631
d.add ”man”,-15625
d.add ”mang”,-15454
d.add ”mao”,-15448
d.add ”me”,-15436
d.add ”mei”,-15435
d.add ”men”,-15419
d.add ”meng”,-15416
d.add ”mi”,-15408
d.add ”mian”,-15394
d.add ”miao”,-15385
d.add ”mie”,-15377
d.add ”min”,-15375
d.add ”ming”,-15369
d.add ”miu”,-15363
d.add ”mo”,-15362
d.add ”mou”,-15183
d.add ”mu”,-15180
d.add ”na”,-15165
d.add ”nai”,-15158
d.add ”nan”,-15153
d.add ”nang”,-15150
d.add ”nao”,-15149
d.add ”ne”,-15144
d.add ”nei”,-15143
d.add ”nen”,-15141
d.add ”neng”,-15140
d.add ”ni”,-15139
d.add ”nian”,-15128
d.add ”niang”,-15121
d.add ”niao”,-15119
d.add ”nie”,-15117
d.add ”nin”,-15110
d.add ”ning”,-15109
d.add ”niu”,-14941
d.add ”nong”,-14937
d.add ”nu”,-14933
d.add ”nv”,-14930
d.add ”nuan”,-14929
d.add ”nue”,-14928
d.add ”nuo”,-14926
d.add ”o”,-14922
d.add ”ou”,-14921
d.add ”pa”,-14914
d.add ”pai”,-14908
d.add ”pan”,-14902
d.add ”pang”,-14894
d.add ”pao”,-14889
d.add ”pei”,-14882
d.add ”pen”,-14873
d.add ”peng”,-14871
d.add ”pi”,-14857
d.add ”pian”,-14678
d.add ”piao”,-14674
d.add ”pie”,-14670
d.add ”pin”,-14668
d.add ”ping”,-14663
d.add ”po”,-14654
d.add ”pu”,-14645
d.add ”qi”,-14630
d.add ”qia”,-14594
d.add ”qian”,-14429
d.add ”qiang”,-14407
d.add ”qiao”,-14399
d.add ”qie”,-14384
d.add ”qin”,-14379
d.add ”qing”,-14368
d.add ”qiong”,-14355
d.add ”qiu”,-14353
d.add ”qu”,-14345
d.add ”quan”,-14170
d.add ”que”,-14159
d.add ”qun”,-14151
d.add ”ran”,-14149
d.add ”rang”,-14145
d.add ”rao”,-14140
d.add ”re”,-14137
d.add ”ren”,-14135
d.add ”reng”,-14125
d.add ”ri”,-14123
d.add ”rong”,-14122
d.add ”rou”,-14112
d.add ”ru”,-14109
d.add ”ruan”,-14099
d.add ”rui”,-14097
d.add ”run”,-14094
d.add ”ruo”,-14092
d.add ”sa”,-14090
d.add ”sai”,-14087
d.add ”san”,-14083
d.add ”sang”,-13917
d.add ”sao”,-13914
d.add ”se”,-13910
d.add ”sen”,-13907
d.add ”seng”,-13906
d.add ”sha”,-13905
d.add ”shai”,-13896
d.add ”shan”,-13894
d.add ”shang”,-13878
d.add ”shao”,-13870
d.add ”she”,-13859
d.add ”shen”,-13847
d.add ”sheng”,-13831
d.add ”shi”,-13658
d.add ”shou”,-13611
d.add ”shu”,-13601
d.add ”shua”,-13406
d.add ”shuai”,-13404
d.add ”shuan”,-13400
d.add ”shuang”,-13398
d.add ”shui”,-13395
d.add ”shun”,-13391
d.add ”shuo”,-13387
d.add ”si”,-13383
d.add ”song”,-13367
d.add ”sou”,-13359
d.add ”su”,-13356
d.add ”suan”,-13343
d.add ”sui”,-13340
d.add ”sun”,-13329
d.add ”suo”,-13326
d.add ”ta”,-13318
d.add ”tai”,-13147
d.add ”tan”,-13138
d.add ”tang”,-13120
d.add ”tao”,-13107
d.add ”te”,-13096
d.add ”teng”,-13095
d.add ”ti”,-13091
d.add ”tian”,-13076
d.add ”tiao”,-13068
d.add ”tie”,-13063
d.add ”ting”,-13060
d.add ”tong”,-12888
d.add ”tou”,-12875
d.add ”tu”,-12871
d.add ”tuan”,-12860
d.add ”tui”,-12858
d.add ”tun”,-12852
d.add ”tuo”,-12849
d.add ”wa”,-12838
d.add ”wai”,-12831
d.add ”wan”,-12829
d.add ”wang”,-12812
d.add ”wei”,-12802
d.add ”wen”,-12607
d.add ”weng”,-12597
d.add ”wo”,-12594
d.add ”wu”,-12585
d.add ”xi”,-12556
d.add ”xia”,-12359
d.add ”xian”,-12346
d.add ”xiang”,-12320
d.add ”xiao”,-12300
d.add ”xie”,-12120
d.add ”xin”,-12099
d.add ”xing”,-12089
d.add ”xiong”,-12074
d.add ”xiu”,-12067
d.add ”xu”,-12058
d.add ”xuan”,-12039
d.add ”xue”,-11867
d.add ”xun”,-11861
d.add ”ya”,-11847
d.add ”yan”,-11831
d.add ”yang”,-11798
d.add ”yao”,-11781
d.add ”ye”,-11604
d.add ”yi”,-11589
d.add ”yin”,-11536
d.add ”ying”,-11358
d.add ”yo”,-11340
d.add ”yong”,-11339
d.add ”you”,-11324
d.add ”yu”,-11303
d.add ”yuan”,-11097
d.add ”yue”,-11077
d.add ”yun”,-11067
d.add ”za”,-11055
d.add ”zai”,-11052
d.add ”zan”,-11045
d.add ”zang”,-11041
d.add ”zao”,-11038
d.add ”ze”,-11024
d.add ”zei”,-11020
d.add ”zen”,-11019
d.add ”zeng”,-11018
d.add ”zha”,-11014
d.add ”zhai”,-10838
d.add ”zhan”,-10832
d.add ”zhang”,-10815
d.add ”zhao”,-10800
d.add ”zhe”,-10790
d.add ”zhen”,-10780
d.add ”zheng”,-10764
d.add ”zhi”,-10587
d.add ”zhong”,-10544
d.add ”zhou”,-10533
d.add ”zhu”,-10519
d.add ”zhua”,-10331
d.add ”zhuai”,-10329
d.add ”zhuan”,-10328
d.add ”zhuang”,-10322
d.add ”zhui”,-10315
d.add ”zhun”,-10309
d.add ”zhuo”,-10307
d.add ”zi”,-10296
d.add ”zong”,-10281
d.add ”zou”,-10274
d.add ”zu”,-10270
d.add ”zuan”,-10262
d.add ”zui”,-10260
d.add ”zun”,-10256
d.add ”zuo”,-10254

function g(num)
if num>0 and num<160 then
g=chr(num)
else
if num<-20319 or num>-10247 then
g=”"
else
a=d.Items
b=d.keys
for i=d.count-1 to 0 step -1
if a(i)<=num then exit for
next
g=b(i)
end if
end if
end function
function c(str)
c=”"
for i=1 to len(str)
c=c&g(asc(mid(str,i,1)))
next
end function
response.write c(request(“hz”))
%>
<form method=post>
请在此处输入中文：<input name=hz>
</form>

]]> http://blog.1xi.net/asp/hanzi-to-pinyin/feed 0 用FSO组件对文件操作（三） http://blog.1xi.net/asp/fso-zujian-caozuo-3 http://blog.1xi.net/asp/fso-zujian-caozuo-3#comments Fri, 20 Feb 2009 02:14:52 +0000 FDS http://blog.1xi.net/asp/fso-zujian-caozuo-3 一，fso.GetFile
提取文件相应的 File 对象

1，getfile.asp

<%
whichfile=Server.MapPath(“cnbruce.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write (“This is a test.My Name is cnbruce.”)
f1.Close
Set f2 = fso.GetFile(whichfile)
 
s = ”文件名称：” & f2.name & ”<br>”
s = s & ”文件短路径名：” & f2.shortPath & ”<br>”
s = s & ”文件物理地址：” & f2.Path & ”<br>”
s = s & ”文件属性：” & f2.Attributes & ”<br>”
s = s & ”文件大小： ” & f2.size & ”<br>”
s = s & ”文件类型： ” & f2.type & ”<br>”
s = s & ”文件创建时间： ” & f2.DateCreated & ”<br>”
s = s & ”最近访问时间: ” & f2.DateLastAccessed & ”<br>”
s = s & ”最近修改时间: ” & f2.DateLastModified
response.write(s)
%>

其效果正如右键某文件，看到的具体属性信息。
其中Attributes返回的数值“32”表示：（Archive）上次备份后已更改的文件。可读写。

其它值附录如下：

 
Normal        0      普通文件。               没有设置任何属性。 
ReadOnly      1      只读文件。               可读写。 
Hidden        2      隐藏文件。               可读写。 
System        4      系统文件。               可读写。 
Directory     16     文件夹或目录。           只读。 
Archive       32     上次备份后已更改的文件。 可读写。 
Alias         1024   链接或快捷方式。         只读。 
Compressed    2048   压缩文件。               只读。 

二，file.move
作用将指定的文件或文件夹从某位置移动到另一位置。其实该方法仍然属于fso.GetFile后的一个应用。

2，movefile.asp

<%
whichfile=Server.MapPath(“cnbruce.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write (“This is a test.My Name is cnbruce.”)
f1.Close
Set f2 = fso.GetFile(whichfile)
f2.Move ”C:\”
%>
<a href=”C:\”>查看下有没有</a>

简单的剪切粘贴的功能实现。

三，File.Copy
同样属于fso.GetFile后的一个应用。就只是单纯地拷贝文件到某位置。

3，copyfile.asp

<%
whichfile=Server.MapPath(“cnbruce.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write (“This is a test.My Name is cnbruce.”)
f1.Close
Set f2 = fso.GetFile(whichfile)
f2.Copy ”D:\”
%>
<a href=”D:\”>查看下有没有</a>

和本ASP页面同在目录下的cnbruce.txt文件依然存在。

四，file.Delete
很显然，就是直接删除文件了。

4，delfile.asp

<%
whichfile=Server.MapPath(“cnbruce.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set f1 = fso.CreateTextFile(whichfile,true)
f1.Write (“This is a test.My Name is cnbruce.”)
f1.Close
Set f2 = fso.GetFile(whichfile)
f2.move ”d:\”
Set f3 = fso.GetFile(“d:\cnbruce.txt”)
f3.delete 
%>
<a href=”d:\”>查看下是没有该文件的</a>

]]> http://blog.1xi.net/asp/fso-zujian-caozuo-3/feed 0 用FSO组件对文件操作（二） http://blog.1xi.net/asp/fso-zujian-caozuo-2 http://blog.1xi.net/asp/fso-zujian-caozuo-2#comments Fri, 20 Feb 2009 02:13:37 +0000 FDS http://blog.1xi.net/asp/fso-zujian-caozuo-2 学会了FSO提取文件值，也学会了将信息输入到文件中，那下面就再来应用应用下。

不知道你有没有这样的习惯：看到一个文件，不自觉的右键选择用记事本打开。呵呵，几乎没有哪个文件是不可以的。所以现在，可以默认所有文件都是文本，只是后缀名不同而已；那么也就是说，现在可以提取任一文件的内容信息。OK，就来想象一下：

1，提取一个文件的路径（采用file按钮进行查找定位）
2，将该路径文件打开，并读取所有行
3，显示读取的信息

一、viewcode.asp

<%
Function ShowCode(filename) 
    Set fso = Server.CreateObject(“Scripting.FileSystemObject”)
    Set cnrs = fso.OpenTextFile(filename, 1)
    While Not cnrs.AtEndOfStream
        rsline = cnrs.ReadLine
        rsline = server.HTMLEncode(rsline)
        Response.Write(rsline & ”<br>”)
    Wend
end Function
%>

<form action=”viewcode.asp” method=”post”>
输入文件名<input type=”file” name=”filename”>
<input type=”submit” value=”查看源程序”>
</form>

<%
file=request.form(“filename”)
response.write (file & ”源程序如下<hr>”)
If trim(file)<> ”" then
  Call ShowCode(file)
End If
%>

以上程序调试时，可以选择html，asp页面，也可以打开任一应用程序等。

定义的ShowCode函数，主要作用是打开、读取并显示文件中所有信息内容。注意添加了server.HTMLEncode(rsline)，针对含有标准HTML代码的文件。

显示文件中所有行即用一条件循环进行遍历显示了。
While Not cnrs.AtEndOfStream
…
Wend

接着，下面的这个例题具体就涉及open方法的问题了，还记得？正常情况之下打开文件是采用fso.OpenTextFile(“c:\testfile.txt”,1)，参数1的作用是：以只读模式打开文件。不能对此文件进行写操作。如果现在已经存在一文件，需要进行追加写入，则该怎么办呢？简单，参数为8即可。

PS：这里还有一种读取的方法。

<%
whichfile=server.mappath(“test.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set txt = fso.OpenTextFile(whichfile,1)
rline = txt.ReadAll
rline=replace(Server.HtmlEncode(rline),Chr(13),”<br>”)
Response.Write rline
txt.Close
%>

这有什么用呢？呵呵，亚玛逊的网络故事接龙就是如此：能接龙就需要首先要显示原有故事，然后自己添加故事写入文件。这其中的写入文件最讲究的就是追加写入了。所以下面就可以实现。

二、story.asp

<%
If not request.Form(“NextLine”)=”" then
  Set fso=Server.CreateObject(“Scripting.FileSystemobject”)
  textfile1=Server.MapPath(“story.txt”)
  set cnrs=fso.OpenTextFile(textfile1,8)
  cnrs.WriteLine(Request.Form(“NextLine”))
  cnrs.Close
end if
%>
故事如下：
<%
Set fso=Server.CreateObject(“Scripting.FileSystemObject”)
textfile1=Server.MapPath(“story.txt”)
set cnrs=fso.OpenTextFile(textfile1,1)
while not cnrs.AtEndOfStream
  Response.Write ”&nbsp;” & cnrs.ReadLine
wend
cnrs.close
%>
<hr>
<form method=”post” action=”story.asp”>
请输入这个故事的新行:<input name=”NextLine” type=”text” size=”70″>
<input type=”submit” value=”提交”>
</form>

整个就是一很简单的读取信息和加入信息的混合利用，相信有了前面的基础看懂应该不成问题。当然还缺少个story.txt文件，里面写好故事开头就可以了。


再下面，继续来，该侧重点主要就是练习一些函数的使用技巧了。

1，instr函数：返回某字符串在另一字符串中第一次出现的位置。
比如现在查找字母“A”在字符串“A110B121C119D1861”中第一次出现的位置，则可以

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

同样字母“B”的位置也就能确定。现在就来最关键的：提前字母“A”和“B”中间的值“110”。
还记得mid函数吗？mid函数的主要作用是：从字符串中返回指定数目的字符。
比如现在的“110”则应该是从字符串的第2位取得3个单位的值。

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

但设想一下：如果不是“110”，而是“1100”，那是不是要提取4位……这样就显出程序的不够完美。
所以继续思考：所提取的值，永远是在字母“A”后面的，且值也永远是在字母“A”和“B”之间的，那么只要分别提取出“A”、“B”的位置，则中间数值的起始位应是字母“A”位+1，中间数值的长度应是字母“B”位-字母“A”位-1
那么现在就可以让程序完美起来：


[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

OK，那么现在你也就完全可以把字母“B”、“C”、“D”后面的值一一提取了。
当然需要注意的就是“D”后面有几位怎么取呢？采用字符串总长度-字母D所在位置数就可以了。


[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

用到现在，你也许确实学到了不少，但也许会提出疑问：这个放在FSO文件操作里有什么作用呢？
那下面才是我们的正题：用FSO进行简单的文本投票。

投票页面首要的就是显示各类项目的投票数，并相应赋于某个变量。然后判断本次投票的选相，相对应地将投票数值加1，完毕后再将所有值继续写入文本。

1，一个HTML表单页website.html
以做投票点击的平台。

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

2，接受表单页值的result.asp

<%
whichfile=server.mappath(“site.txt”)
set fso=createobject(“Scripting.FileSystemObject”)
set thisfile=fso.opentextfile(whichfile)
my_string=thisfile.readline

a_num = instr(my_string,”A”)
b_num = instr(my_string,”B”)
c_num = instr(my_string,”C”)
d_num = instr(my_string,”D”)
total_num = len(my_string)

a_value = mid(my_string,a_num+1,b_num-a_num-1)
b_value = mid(my_string,b_num+1,c_num-b_num-1)
c_value = mid(my_string,c_num+1,d_num-c_num-1)
d_value = mid(my_string,d_num+1,total_num-d_num)

select case request.form(“website”)
    case ”A”: avalue=a_value+1
    case ”B”: bvalue=b_value+1
    case ”C”: cvalue=c_value+1
    case ”D”: dvalue=d_value+1
end select

mynew_string=”A” & cstr(a_value) & ”B” & cstr(b_value) & ”C” & cstr(c_value) & ”D” & cstr(d_value)
set newfile=fso.createtextfile(whichfile)
newfile.writeLine(mynew_string)
newfile.close
set fso=nothing
%>
当前投票：<br>
cnbruce.com:<%=a_value%><br>
blueidea.com:<%=b_value%><br>
it356cn.com:<%=c_value%><br>
5d.cn:<%=d_value%><br>
<a href=”website.html”>返回继续</a>

有了上面函数的基础，看这个应该不是很难的

3，最后不要忘了的记数文件site.txt

]]> http://blog.1xi.net/asp/fso-zujian-caozuo-2/feed 0 用FSO组件对文件操作（一） http://blog.1xi.net/asp/fso-zujian-caozuo-1 http://blog.1xi.net/asp/fso-zujian-caozuo-1#comments Fri, 20 Feb 2009 02:10:51 +0000 FDS http://blog.1xi.net/asp/fso-zujian-caozuo-1 FSO中除了可以对驱动器、文件夹的操作以外，功能最强大的就是对文件的操作了。它可以用来记数、内容管理、搜索还可生成动态HTML页面等等。

一、fso.OpenTextFile
无需多说，fso.OpenTextFile就是打开某个文件了，一般情况之下是打开的txt文本文件。所以首先我们先建立一个txt文件，然后通过FSO来读取其中的内容。

1，info.txt

 

name:cnbruce
sex:male
建立了该文件，下面再做个ASP页面，当然最好两个文件是在同一目录下。

2，opentxt.asp

 

<%
whichfile=server.mappath(“info.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set txt = fso.OpenTextFile(whichfile,1)
rline = txt.ReadLine
rline = rline & ”<br>” & txt.ReadLine
Response.Write rline
txt.Close
%> 
需要注意：无论是通过FSO打开驱动器、打开文件夹、打开文件，以及以后要接触到的打开数据库，都只能是打开绝对物理路径地址。但一般情况是上传到空间服务商那,不能很直接地了解到自己文件的所在位置，所以强烈推荐使用server.mappath方法：平台移植性强，适用性强。

CreateObject(“Scripting.FileSystemObject”)建立了FSO组件的连接，fso.OpenTextFile(whichfile,1)打开了info.txt该文件。参数“1”表示“ForReading：以只读方式打开文件。不能写这个文件。”，其他还有参数“2”表示“ForWriting：以写方式打开文件”，参数“8”表示“ForAppending：打开文件并从文件末尾开始写”。

打开了该文件，接下来是不是要显示文件中的内容？那就通过txt.ReadLine方法读取文本中的一整行，如果需要继续读取下一行，则继续使用txt.ReadLine方法。当然初此还有其它的读取方法，比如txt.Read(7)读取指定数量的字符，txt.ReadAll返回文本中的全部内容。

二、fso.CreateTextFile
如fso.CreateFolder建立文件夹般，fso.CreateTextFile则是建立文件了。

3，creattxt.asp

 

<%
whichfile=server.mappath(“info.txt”)
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set MyFile = fso.CreateTextFile(whichfile,True)
MyFile.WriteLine(“My Name Is CN-Bruce”)
MyFile.WriteLine(“My Sex Is Male”)
MyFile.Close
%>
<a href=”opentxt.asp”>查看内容</a> 
本次建立的文件是上一info.txt文件，fso.CreateTextFile(whichfile,True)其中的参数true即表示能覆盖已有文件。建立后需要向里面添加数据就采用“MyFile.WriteLine”了。

那现在就可以建立一个简单的文本记数器了，还记得以前的记数？：1，通过application、session、global.asa进行记数；2，通过Counter组件进行记数。但两者都有通病，就是不能保存，如果服务器重新启动后，是不是所有记数全部清空了呢：）那现在就可以使用文本来记录数据了，即使重启，下次提取的也还是该文件。

试验：文本计数器

首先建立一记数的文本文件counter.txt，设定初始值为“1”

4，counter.txt

 

1
接着是记数的ASP文件，功能是显示文本的记数，本做加1的记数，然后还要将新的记数写入文本文件。

5，txtcount.asp

 

<%
whichfile=server.mappath(“counter.txt”)
‘打开文件并将其值读取，最后关闭连接释放资源
set fso=createobject(“Scripting.FileSystemObject”)
set openfile=fso.opentextfile(whichfile,1)
visitors=openfile.readline
openfile.close
‘页面显示记数内容并做加1运算
response.write ”您是本页的第”&visitors&”位访客”
visitors=visitors+1
‘将新的数值添加写入到文本，最后关闭所有连接释放资源
set creatfile=fso.createtextfile(whichfile)
creatfile.writeLine(visitors)
creatfile.close
set fso=nothing
%> 
那根据这个可以继续地扩展内容：比如让记数用数字图片显示。当然前提就是你需要0-9的10张记数图片，并将此图片放于img文件夹中。
下为一增强的txtcount.asp内容代码

 

<%
whichfile=server.mappath(“counter.txt”)set fso=createobject(“Scripting.FileSystemObject”)
set openfile=fso.opentextfile(whichfile,1)
visitors=openfile.readline
openfile.close
CountLen=len(visitors)
response.write ”您是本页的第”

for i=1 to 6-countLen        ’表示最大值999999
 response.write ”<img src=img/0.gif></img>”
next 
for i=1 to countlen
 response.write ”<img src=img/” & mid(visitors,i,1) & ”.gif></img>”
next
response.write ”位访客”

visitors=visitors+1
set creatfile=fso.createtextfile(whichfile)
creatfile.writeLine(visitors)
creatfile.close
set fso=nothing
%>

 

本程序中采用的是mid函数，该函数的作用是返回某字符串中从第几位字符开始的几个字符。格式即为：Mid(string,start,length)

[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

]]> http://blog.1xi.net/asp/fso-zujian-caozuo-1/feed 0 基带信号和宽带信号的区别 http://blog.1xi.net/wangluo/jichuxinhao-kuandaixinhao http://blog.1xi.net/wangluo/jichuxinhao-kuandaixinhao#comments Thu, 19 Feb 2009 01:54:55 +0000 FDS http://blog.1xi.net/wangluo/jichuxinhao-kuandaixinhao  基带信号就是将数字信号 1 或 0 直接用两种不同的电压来表示，然后送到线路上去传输。

 宽带信号则是将基带信号进行调制后形成的频分复用模拟信号。

　　多路复用技术的基本原理是：各路信号在进入同一个有线的或无线的传输媒质之前，先采用调制技术把它们调制为互相不会混淆的已调制信号，然后进入传输媒质传送到对方，在对方再用解调（反调制）技术对这些信号加以区分，并使它们恢复成原来的信号，从而达到多路复用的目的。

　　常用的多路复用技术有频分多路复用技术和时分多路复用技术。频分多路复用是将各路信号分别调制到不同的频段进行传输，多用于模拟通信。时分多路复用技术是利用时间上离散的脉冲组成相互不重叠的多路信号，广泛应用于数字通信。频分多路复用和时分多路复用的基本原理如图所示。除了频分和时分多路复用技术外，还有一种波分复用技术。这是在光波频率范围内，把不同波长的光波，按一定间隔排列在一根光纤中传送。这种用于光纤通信的“波分复用”技术，现在正在迅速发展之中。
 
　常用的多路复用技术有频分多路复用技术和时分多路复用技术。
1.频分多路复用是将各路信号分别调制到不同的频段进行传输，多用于模拟通信。
2.时分多路复用技术是利用时间上离散的脉冲组成相互不重叠的多路信号，广泛应用于数字通信。
3.除了频分和时分多路复用技术外，还有一种波分复用技术。这是在光波频率范围内，把不同波长的光波，按一定间隔排列在一根光纤中传送。这种用于光纤通信的“波分复用”技术，现在正在迅速发展之中。

频分多路复用与时分多路复用的区别如下：
  (1)微观上，频分多路复用的各路信号是并行的，而时分多路复用是串行的。

  (2)频分多路复用较适合于模拟信号，而时分多路复用较适用于数字信号。

频分多路复用是将传输介质的可用带宽分割成一个个“频段”，以便每个输入装置都分配到一个“频段”。传输介质容许传输的最大带宽构成一个信道，因此每个“频段”就是一个子信道。
频分多路复用的特点是：每个用户终端的数据通过专门分配给它的予信道传输，在用户没有数据传输时，别的用户也不能使用。频分多路复用适合于模拟信号的频分传输，主要用于电话和电缆电视(CATV)系统，在数据通信系统中应和调制解调技术结合使用。

]]> http://blog.1xi.net/wangluo/jichuxinhao-kuandaixinhao/feed 0 目前的防火墙类型 http://blog.1xi.net/wangluo/fanghuoqiang-leixing http://blog.1xi.net/wangluo/fanghuoqiang-leixing#comments Thu, 19 Feb 2009 01:52:14 +0000 FDS http://blog.1xi.net/wangluo/fanghuoqiang-leixing 防火墙产品非常之多，划分的标准也比较杂。 主要分类如下：

1. 从软、硬件形式上分为

软件防火墙和硬件防火墙以及芯片级防火墙。

2. 从防火墙技术分为

“包过滤型”和“应用代理型”两大类。

3. 从防火墙结构分为

单一主机防火墙、路由器集成式防火墙和分布式防火墙三种。

4. 按防火墙的应用部署位置分为

边界防火墙、个人防火墙和混合防火墙三大类。

5. 按防火墙性能分为

百兆级防火墙和千兆级防火墙两类。

]]> http://blog.1xi.net/wangluo/fanghuoqiang-leixing/feed 0 全国计算机等级考试二级公共基础知识 http://blog.1xi.net/kaoshi/erji-kaoshi-gonggong-zhishi http://blog.1xi.net/kaoshi/erji-kaoshi-gonggong-zhishi#comments Thu, 19 Feb 2009 01:37:26 +0000 FDS http://blog.1xi.net/kaoshi/erji-kaoshi-gonggong-zhishi 全国计算机等级考试二级公共基础知识，大家参考下吧。

基本要求
1. 掌握算法的基本概念。
2. 掌握基本数据结构及其操作。
3. 掌握基本排序和查找算法。
4. 掌握逐步求精的结构化程序设计方法。
5. 掌握软件工程的基本方法，具有初步应用相关技术进行软件开发的能力。
6. 掌握数据的基本知识，了解关系数据库的设计。


考试内容
一、 基本数据结构与算法
1. 算法的基本概念；算法复杂度的概念和意义（时间复杂度与空间复杂度）。
2. 数据结构的定义；数据的逻辑结构与存储结构；数据结构的图形表示；线性结构与非线性结构的概念。
3. 线性表的定义；线性表的顺序存储结构及其插入与删除运算。
4. 栈和队列的定义；栈和队列的顺序存储结构及其基本运算。
5. 线性单链表、双向链表与循环链表的结构及其基本运算。
6. 树的基本概念；二叉树的定义及其存储结构；二叉树的前序、中序和后序遍历。
7. 顺序查找与二分法查找算法；基本排序算法（交换类排序，选择类排序，插入类排序）。
二、 程序设计基础
1. 程序设计方法与风格。
2. 结构化程序设计。
3. 面向对象的程序设计方法，对象，方法，属性及继承与多态性。
三、 软件工程基础
1. 软件工程基本概念，软件生命周戎概念，软件工具与软件开发环境。
2. 结构化分析方法，数据流图，数据字典，软件需求规格说明书。
3. 结构化设计方法，总体设计与详细设计。
4. 软件测试的方法，白盒测试与黑盒测试，测试用例设计，软件测试的实施，单元测试、集成测试和系统测试。
5. 程序的调试，静态调试与动态调试。
四、 数据库设计基础
1. 数据库的基本概念：数据库，数据库管理系统，数据库系统。
2. 数据模型，实体联系模型及E-R图，从E-R图导出关系数据模型。
3. 关系代数运算，包括集合运算及选择、投影、连接运算，数据库规范化理论。
4. 数据库设计方法和步骤：需求分析、概念设计、逻辑设计和物理设计的相关策略。


考试方式
1、 公共基础的考试方式为笔试，与C语言（VisualBASIC、Visual FoxPro、Java、Access、Visual C++）的笔试部分合为一张试卷。公共基础部分占全卷的30分。
2、 公共基础知识有10道选择题和5道填空题。

]]> http://blog.1xi.net/kaoshi/erji-kaoshi-gonggong-zhishi/feed 0 利用PHP生成图像 http://blog.1xi.net/php/php-shengcheng-tuxiang http://blog.1xi.net/php/php-shengcheng-tuxiang#comments Wed, 21 Jan 2009 05:58:44 +0000 FDS http://blog.1xi.net/php/php-shengcheng-tuxiang  生成图像，PHP可以操作处理图像。如果你已经安装了GD库，你甚至可以利用PHP生成图像。
<?
Header(“Content-type: image/gif”);
$string=implode($argv,” “);
$im = imagecreatefromgif(“images/button1.gif”);
$orange = ImageColorAllocate($im, 220, 210, 60);
$px = (imagesx($im)-7.5*strlen($string))/2;
ImageString($im,3,$px,9,$string,$orange);
ImageGif($im);
ImageDestroy($im);
?>

（译者注：以上代码段缺少注释，请读者参考PHP Manual的图像处理函数部分）

　　这段代码在其他页面中通过以下标记<img src=http://www.okzz.cn/button.php3?text”>调用，然后以上的那段button.php3代码取得text值并在另外取得的图像文件中加上该值–在以上的代码中该图像文件是images/button1.gif–最后输出到浏览器。假如你想在表单域中使用图像按钮，但是又不希望在每次按钮上的文字改变后不得不重新生成新的图像，就可以利用这样简单的方法动态生成图像文件。

]]> http://blog.1xi.net/php/php-shengcheng-tuxiang/feed 1 SQL SERVER技巧三 http://blog.1xi.net/shujuku/sql-server-jiqiao-3 http://blog.1xi.net/shujuku/sql-server-jiqiao-3#comments Wed, 21 Jan 2009 05:56:23 +0000 FDS http://blog.1xi.net/shujuku/sql-server-jiqiao-3 维护Sql Server中表的索引

　　在使用和创建数据库索引中经常会碰到一些问题，在这里可以采用一些另类的方法解决… 

　　–第一步：查看是否需要维护，查看扫描密度/Scan Density是否为100%

　　declare @table_id int
　　set @table_id=object_id(‘表名’)
　　dbcc showcontig(@table_id)

 

　　–第二步:重构表索引
　　dbcc dbreindex(‘表名’,pk_索引名,100)

　　–重做第一步，如发现扫描密度/Scan Density还是小于100%则重构表的所有索引
　　–杨铮：并不一定能达100%。
　　dbcc dbreindex(‘表名’,”,100)

　　SQL Server补丁安装常见问题
　　谁碰到问题就看看咯：）

　　一、补丁安装过程中常见问题

　　如果在安装补丁的时候遇到如下类似错误：

　　1、安装过程中出现“以前进行的程序创建了挂起的文件操作，运行安装程序前，必须重新启动”，请按照下面步骤解决：

　　a、重启机器，再进行安装，如果发现还有该错误，请按下面步骤
　　b、在开始->运行中输入regedit
　　c、到HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager 位置
　　d、选择文件->倒出,保存
　　e、在右边窗口右击PendingFileRenameOperations，选择删除，然后确认
　　f、重启安装，问题解决

　　如果还有同样问题，请检查其它注册表中是否有该值存在，如有请删掉。

　　2、在安装SQL Server SP3，有时候会出现：无论用windows认证还是混和认证，都出现密码错误的情况，这时查看临时目录下的sqlsp.out，会发现以下描述：
　　[TCP/IP Sockets]Specified SQL server not found.
　　[TCP/IP Sockets]ConnectionOpen (Connect()).
　　其实这是SQL Server SP3的一个小bug，在安装sp3的时候，没有监听tcp/ip端口，可以按照以下步骤进行：

　　1、打开SQL server客户器网络实用工具和服务器网络工具，确保启用的协议中包含name pipe，并且位置在第一位.

　　2、确保[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer\Client\ConnectTo]
　　”DSQUERY”=”DBNETLIB”.
　　如果没有，请自己建立
　　3、停止mssql.
　　4、进行安装.

　　这样就可以进行正确安装了。

　　二、SQL Server补丁版本的检查

　　SQL Server的补丁版本检查不如Windows 补丁版本检查直接，一个系统管理员，如果不了解SQL Server版本对应的补丁号，可能也会遇到一点麻烦，因此在这说明一下，通过这样的办法判别机器是安全的办法，不会对系统产生任何影响。

　　1、用Isql或者SQL查询分析器登录到SQL Server，如果是用Isql，请在cmd窗口输入isql -U sa,然后输入密码，进入；如果是用SQL查询分析器，请从程序中启动，输入sa和密码（也可以用windows验证）。

　　2、在ISQL中输入：
　　Select @@Version；
　　go

　　或者SQL查询分析器中输入(其实如果不想输入，只要打开帮助的关于就可以了:))
　　Select @@Version；
　　然后按执行；
　　这时会返回SQL的版本信息，如下：
　　Microsoft SQL Server 2000 – 8.00.760 (Intel X86) Dec 17 2002 14:22:05 Copyright (c) 1988-2003 Microsoft Corporation Enterprise Edition on Windows NT 5.0 (Build 2195: Service Pack 3)

　　其中的8.00.760就是SQL Server的版本和补丁号。对应关系如下：

　　8.00.194 －——————SQL Server 2000 RTM
　　8.00.384 －——————(SP1)
　　8.00.534 －——————(SP2)
　　8.00.760 －——————(SP3)

　　这样我们就能看到SQL Server的正确版本和补丁号了。

　　我们也可以用xp_msver看到更详细的信息

　　Sql Server数据库的备份和恢复措施
　　最常用的操作，新手们看看……

　　一、备份数据库

　　1、打开SQL企业管理器，在控制台根目录中依次点开Microsoft SQL Server
　　2、SQL Server组–>双击打开你的服务器–>双击打开数据库目录
　　3、选择你的数据库名称（如论坛数据库Forum）–>然后点上面菜单中的工具–>选择备份数据库
　　4、备份选项选择完全备份，目的中的备份到如果原来有路径和名称则选中名称点删除，然后点添加，如果原来没有路径和名称则直接选择添加，接着指定路径和文件名，指定后点确定返回备份窗口，接着点确定进行备份

　　二、还原数据库

　　1、打开SQL企业管理器，在控制台根目录中依次点开Microsoft SQL Server

　　2、SQL Server组–>双击打开你的服务器–>点图标栏的新建数据库图标，新建数据库的名字自行取

　　3、点击新建好的数据库名称（如论坛数据库Forum）–>然后点上面菜单中的工具–>选择恢复数据库

　　4、在弹出来的窗口中的还原选项中选择从设备–>点选择设备–>点添加–>然后选择你的备份文件名–>添加后点确定返回，这时候设备栏应该出现您刚才选择的数据库备份文件名，备份号默认为1（如果您对同一个文件做过多次备份，可以点击备份号旁边的查看内容，在复选框中选择最新的一次备份后点确定）–>然后点击上方常规旁边的选项按钮

　　5、在出现的窗口中选择在现有数据库上强制还原，以及在恢复完成状态中选择使数据库可以继续运行但无法还原其它事务日志的选项。在窗口的中间部位的将数据库文件还原为这里要按照你SQL的安装进行设置（也可以指定自己的目录），逻辑文件名不需要改动，移至物理文件名要根据你所恢复的机器情况做改动，如您的SQL数据库装在D:\Program Files\Microsoft SQL Server\MSSQL\Data，那么就按照您恢复机器的目录进行相关改动改动，并且最后的文件名最好改成您当前的数据库名（如原来是bbs_data.mdf，现在的数据库是forum，就改成forum_data.mdf），日志和数据文件都要按照这样的方式做相关的改动（日志的文件名是*_log.ldf结尾的），这里的恢复目录您可以自由设置，前提是该目录必须存在（如您可以指定d:\sqldata\bbs_data.mdf或者d:\sqldata\bbs_log.ldf），否则恢复将报错

　　6、修改完成后，点击下面的确定进行恢复，这时会出现一个进度条，提示恢复的进度，恢复完成后系统会自动提示成功，如中间提示报错，请记录下相关的错误内容并询问对SQL操作比较熟悉的人员，一般的错误无非是目录错误或者文件名重复或者文件名错误或者空间不够或者数据库正在使用中的错误，数据库正在使用的错误您可以尝试关闭所有关于SQL窗口然后重新打开进行恢复操作，如果还提示正在使用的错误可以将SQL服务停止然后重起看看，至于上述其它的错误一般都能按照错误内容做相应改动后即可恢复

　　三、收缩数据库

　　一般情况下，SQL数据库的收缩并不能很大程度上减小数据库大小，其主要作用是收缩日志大小，应当定期进行此操作以免数据库日志过大。

　　1、设置数据库模式为简单模式：打开SQL企业管理器，在控制台根目录中依次点开Microsoft SQL Server–>SQL Server组–>双击打开你的服务器–>双击打开数据库目录–>选择你的数据库名称（如论坛数据库Forum）–>然后点击右键选择属性–>选择选项–>在故障还原的模式中选择“简单”，然后按确定保存
　　2、在当前数据库上点右键，看所有任务中的收缩数据库，一般里面的默认设置不用调整，直接点确定
　　3、收缩数据库完成后，建议将您的数据库属性重新设置为标准模式，操作方法同第一点，因为日志在一些异常情况下往往是恢复数据库的重要依据。

　　四、设定每日自动备份数据库

　　强烈建议有条件的用户进行此操作！

　　1、打开企业管理器，在控制台根目录中依次点开Microsoft SQL Server–>SQL Server组–>双击打开你的服务器

　　2、然后点上面菜单中的工具–>选择数据库维护计划器

　　3、下一步选择要进行自动备份的数据–>下一步更新数据优化信息，这里一般不用做选择–>下一步检查数据完整性，也一般不选择

　　4、下一步指定数据库维护计划，默认的是1周备份一次，点击更改选择每天备份后点确定

　　5、下一步指定备份的磁盘目录，选择指定目录，如您可以在D盘新建一个目录如：d:\databak，然后在这里选择使用此目录，如果您的数据库比较多最好选择为每个数据库建立子目录，然后选择删除早于多少天前的备份，一般设定4－7天，这看您的具体备份要求，备份文件扩展名一般都是bak就用默认的
　　6、下一步指定事务日志备份计划，看您的需要做选择–>下一步要生成的报表，一般不做选择–>下一步维护计划历史记录，最好用默认的选项–>下一步完成

　　7、完成后系统很可能会提示Sql Server Agent服务未启动，先点确定完成计划设定，然后找到桌面最右边状态栏中的SQL绿色图标，双击点开，在服务中选择Sql Server Agent，然后点击运行箭头，选上下方的当启动OS时自动启动服务

　　8、这个时候数据库计划已经成功的运行了，他将按照您上面的设置进行自动备份

　　修改计划：

　　1、打开企业管理器，在控制台根目录中依次点开Microsoft SQL Server–>SQL Server组–>双击打开你的服务器–>管理–>数据库维护计划–>打开后可看到你设定的计划，可以进行修改或者删除操作

　　五、数据的转移（新建数据库或转移服务器）

　　一般情况下，最好使用备份和还原操作来进行转移数据，在特殊情况下，可以用导入导出的方式进行转移，这里介绍的就是导入导出方式，导入导出方式转移数据一个作用就是可以在收缩数据库无效的情况下用来减小（收缩）数据库的大小，本操作默认为您对SQL的操作有一定的了解，如果对其中的部分操作不理解，可以咨询动网相关人员或者查询网上资料

　　1、将原数据库的所有表、存储过程导出成一个SQL文件，导出的时候注意在选项中选择编写索引脚本和编写主键、外键、默认值和检查约束脚本选项

　　2、新建数据库，对新建数据库执行第一步中所建立的SQL文件

　　3、用SQL的导入导出方式，对新数据库导入原数据库中的所有表内容

]]> http://blog.1xi.net/shujuku/sql-server-jiqiao-3/feed 0