预览模式: 普通 | 列表

Windows2003技巧集锦

一、跳过磁盘检修等待时间
一旦计算机因意外原因,例如突然停电或者死机的话,那么计算机下次重新启动的话,系统就会花10秒钟左右的时间,来运行磁盘扫描程序,检查磁盘是否有错误出现。要是你是一位惜时如金的人,肯定不会白白等待下去的。那就跟我一起来,跳过这段检查等待时间吧:
1、在开始菜单中,依次执行“程序”/“附件”/“命令提示符”命令,将界面切换到DOS命令行状态下;

2、直接输入“CHKNTFS/T :0”命令,单击回车键后,系统就能自动将检查磁盘的等待时间修改为0了;

3、下次遇到异常情况,重新启动计算机后,系统再调用磁盘扫描程序时,就不需要等待了。

二、取消对网站的安全检查
新安装好Windows Server
2003 操作系统后,打开浏览器来查询网上信息时,发现IE总是“不厌其烦”地提示我们,是否需要将当前访问的网站添加到自己信任的站点中去;要是不信任的话,就无法打开指定网页;倘若信任的话,就必须单击“添加”按钮,将该网页添加到信任网站的列表中去。不过每次访问网页,都要经过这样的步骤,显然就太烦琐了。其实我们可以通过下面的方法来让IE取消对网站安全性的检查:
1、依次执行“开始”/“设置”/“控制面板”命令,在打开的控制面板窗口中,用鼠标双击“添加和删除程序”图标,将界面切换到“添加和删除Windows组件”页面中;
2、用鼠标选中“Internet Explorer增强的安全配置”选项,继续单击下一步按钮,就能将该选项从系统中删除了;
3、再单击一下“完成”按钮,退出组件删除提示窗口。
以后,再上网的时候,IE就不会自动去检查网站的安全性了,这样就能少了不少麻烦。


查看...

WinXP注册表与驱动程序优化全集

现在使用Windows XP的用户越来越多,因为Windows XP功能多而且使用简便。可如果您的硬件设施不够先进的话,那么她的运行速度可实在不敢恭维。当然也不是只有升级硬件才能满足XP“贪婪”的需求吗?我们可以通过各种软件来提升Windows XP的运行速度!
注册表优化方案

1、启用CPU L2 Cahce

到注册表HKCU_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management下,新建Dword值:

SecondLevelDataCache,修改这个值为你的CPU的二级缓存的大小,填写的时候使用10进制值。你可以通过修改Dword值“SecondLevelDataCache”将CPU的2级缓存变为256KB,然后重新启动电脑即可。

2、修改磁盘缓存加速XP

磁盘缓存对XP运行起着至关重要的作用,但是默认的I/O页面文件比较保守。所以,对于不同的内存,采用不同的磁盘缓存是比较好的做法。

[阅读全文]

自动生成Google网站地图(sitemap)文件的php脚本

Google SiteMap Protocol是Google自己推出的一种站点地图协议,此协议文件基于早期的robots.txt文件协议,并有所升级。在Google官方指南中指出加入了Google SiteMap文件的网站将更有利于Google网页爬行机器人的爬行索引,这样将提高索引网站内容的效率和准确度。文件协议应用了简单的XML格式,一共用到6个标签,其中关键标签包括链接地址、更新时间、更新频率和索引优先权。

这里给出一个生成sitemap的PHP文件,如果你的网站比较大页面比较多,它会自动分成几个文件来生成,不过提交的时候只需要提交那个sitemap.xml即可。

生成sitemap.xml的PHP源码:
http://download.eway.com.ru/web/googlesitemap.php.txt
另存为:googlesitemap.php 即可

运行界面:=========================================================
自动生成符合GOOGLE要求的网站地图文件
Copyright Top flood
原作者 :
Kloh : TimeSplitters' Games; ImmortalPC :Immortal-PC

Laozei汉化整理 - IP查询、手机地理位置查询、身份证查询

注:

1.请把本程序放入网站根目录执行

2.程序执行前请修改如下参数(或常量)以符合你网站要求:

LIMITLIENPARFICHIER
LIMITLIENINDEXE
$ExtensionsAutorises
$DossiersInterdits
$FichiersInterdits

3.程序将把列表写入多个xml文件(如果你网页比较多的话)

4.请在根目录下建立文件夹sitemap,并保证可写。sitemap(x).xml文件将写入这个目录

5.sitemap生成之后请至http://www.google.com/webmasters/sitemaps/ 提交给Google

URL列表(将写入sitemap)中。。。
=========================================================
登陆Google提交你的SiteMap文件,让Google开始爬行吧

打开https://www.google.com/webmasters/sitemaps/,如果还没有注册或者登陆Google,就先用自
己的帐号登陆Google,登陆后转到Your Sitemaps状态页面,可以点击那个Add a Sitemap + 跳转到提交
页面进行Sitemap文件的提交。建议文件放在你的站点根目录下。给Google提交你的Sitemap URL后可
以看见在列表里已存在,不过这时候还没有生效,必须过几个小时后Status栏变成OK表示正式生效,如
果不是OK,可以查看Google给出的状态标示解释看看是什么原因。===============================================
(2005.6.25) UPDATE:昨天仔细阅读了GOOGLE sitemap 协议,文中明确要求:生成的SITEMAP.XML文件必须放在网站根目录,而现在这个程序我是把它放到SITEMAP目录下了,所以要修改下才行,呵呵。我稍后会修改之。你也可以自己来修改。

(转自:laozei.blogchina.com)

一行代码生成Google SiteMap

你也可以复制下面的内容到地址栏上敲回车:)
<runjscode>
<i>javascript</i>:var u=document.location.href;var t=prompt('输入更新时间: ','');var p=prompt('输入索引等级: ','1.0');var c=prompt('输入更新频率: ','Always');var l=document.links;var s='<urlset%20xmlns="http://www.google.com/schemas/sitemap/0.84"> ';for(var i=0;i<l.length;i++){s+='<url> <loc>'+l[i]+'</loc> <lastmod>'+t+'</lastmod> <changefreq>'+c+'</changefreq> <priority>'+p+'</priority> </url> ';}s+='</urlset>';clipboardData.setData('text',s);alert('以复制到剪切板');<br/>
</runjscode>
    原理很简单,用javascript脚本代码提取当前页面内所有链接并生成标准的Google SiteMap格式源代码。建议你保存这个链接到快捷栏上,使用方法就像del.icio.us的那个快捷操作一样,在你站点内任何页面下执行这个脚本 后,SiteMap代码就会自动生成并保存在你的剪切板中,粘贴到记事本保存为utf-8编码,你也可以将多个页面下的代码合成到一起,不过不要超过 100k

熬了半个通宵,写出了自己的Google SiteMap文件,在这里给出详细编写教程,愿对大家有所帮助。

Google SiteMap的作用及协议格式详解

Google SiteMap Protocol是Google自己推出的一种站点地图协议,此协议文件基于早期的robots.txt文件协议,并有所升级。在Google官方指南中指出加入了Google SiteMap文件的网站将更有利于Google网页爬行机器人的爬行索引,这样将提高索引网站内容的效率和准确度。文件协议应用了简单的XML格式,一共用到6个标签,其中关键标签包括链接地址、更新时间、更新频率和索引优先权。
Google SiteMap文件生成后格式如下:
<urlset xmlns="<a href=\"http://www.google.com/schemas/sitemap/0.84\" target=\"_blank\">http://www.google.com/schemas/sitemap/0.84</a>">
      
<url>
          
<loc><a href=\"http://www.knowsky.com</loc>\" target=\"_blank\">http://www.knowsky.com</loc></a>
          
<lastmod>2005-06-03T04:20-08:00</lastmod>
          
<changefreq>always</changefreq>
          
<priority>1.0</priority>
      
</url>
      
<url>
          
<loc><a href=\"http://www.knowsky.com/300687.html</loc>\" target=\"_blank\">http://www.knowsky.com/300687.html</loc></a>
          
<lastmod>2005-06-02T20:20:36Z</lastmod>
          
<changefreq>daily</changefreq>
          
<priority>0.8</priority>
      
</url>
 
</urlset>

XML标签

  • changefreq:页面内容更新频率。
  • lastmod:页面最后修改时间
  • loc:页面永久链接地址
  • priority:相对于其他页面的优先权
  • url:相对于前4个标签的父标签
  • urlset:相对于前5个标签的父标签
我将一句一句分解讲解这个xml文件的每一个标签:

[阅读全文]

直接生成XML的Google SiteMap代码[ASP版本]

ASP版本,需要空间的FSO支持
使用方法就不说了
<%
Server.ScriptTimeout=50000
' sitemap_gen.asp
' A simple script to automatically produce sitemaps for a webserver, in the Google Sitemap Protocol (GSP)
' by Francesco Passantino
' www.iteam5.net/francesco/sitemap
' v0.2 released 5 june 2005 (Listing a directory tree recursively improvement)
'
' BSD 2.0 license,
' http://www.opensource.org/licenses/bsd-license.php
' 收集整理: 重庆森林@im286.com

session("server")="http://192.168.0.111" '你的域名
vDir = "/" '制作SiteMap的目录,相对目录(相对于根目录而言)

set objfso = CreateObject("Scripting.FileSystemObject")
root = Server.MapPath(vDir)

'response.ContentType = "text/xml"
'response.write "<?xml version='1.0' encoding='UTF-8'?>"
'response.write "<urlset xmlns='http://www.google.com/schemas/sitemap/0.84'>"

str = "<?xml version='1.0' encoding='UTF-8'?>" & vbcrlf
str = str & "<urlset xmlns='http://www.google.com/schemas/sitemap/0.84'>" & vbcrlf

Set objFolder = objFSO.GetFolder(root)
'response.write getfilelink(objFolder.Path,objFolder.dateLastModified)
Set colFiles = objFolder.Files
For Each objFile In colFiles
'response.write getfilelink(objFile.Path,objfile.dateLastModified)
str = str & getfilelink(objFile.Path,objfile.dateLastModified) & vbcrlf
Next
ShowSubFolders(objFolder)

'response.write "</urlset>"
str = str & "</urlset>" & vbcrlf
set fso = nothing

Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
'.Type = adTypeText
'.Mode = adModeReadWrite
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText=str
.SaveToFile server.mappath("/sitemap.xml"),2 '生成的XML文件名
.Close
End With

Set objStream = Nothing
If Not Err Then
Response.Write("<script>alert('成功生成站点地图!');history.back();</script>")
Response.End
End If

Sub ShowSubFolders(objFolder)
Set colFolders = objFolder.SubFolders
For Each objSubFolder In colFolders
if folderpermission(objSubFolder.Path) then
'response.write getfilelink(objSubFolder.Path,objSubFolder.dateLastModified)
str = str & getfilelink(objSubFolder.Path,objSubFolder.dateLastModified) & vbcrlf
Set colFiles = objSubFolder.Files
For Each objFile In colFiles
'response.write getfilelink(objFile.Path,objFile.dateLastModified)
str = str & getfilelink(objFile.Path,objFile.dateLastModified) & vbcrlf
Next
ShowSubFolders(objSubFolder)
end if
Next
End Sub

Function getfilelink(file,datafile)
file=replace(file,root,"")
file=replace(file,"","/")
If FileExtensionIsBad(file) then Exit Function
if month(datafile)<10 then filedatem="0"
if day(datafile)<10 then filedated="0"
filedate=year(datafile)&"-"&filedatem&month(datafile)&"-"&filedated&day(datafile)
getfilelink = "<url><loc>"&server.htmlencode(session("server")&vDir&file)&"</loc><lastmod>"&filedate&"</lastmod><changefreq>daily</changefreq><priority>1.0</priority></url>"
Response.Flush
End Function


Function Folderpermission(pathName)

'需要过滤的目录(不列在SiteMap里面)
PathExclusion=Array(" emp","\_vti_cnf","_vti_pvt","_vti_log","cgi-bin","admin","edu")
Folderpermission =True
for each PathExcluded in PathExclusion
if instr(ucase(pathName),ucase(PathExcluded))>0 then
Folderpermission = False
exit for
end if
next
End Function

Function FileExtensionIsBad(sFileName)
Dim sFileExtension, bFileExtensionIsValid, sFileExt
'modify for your file extension (http://www.googleguide.com/file_type.html)
Extensions = Array("png","gif","jpg","jpeg","zip","pdf","ps","html","htm","php","wk1","wk2","wk3","wk4","wk5","wki","wks","wku","lwp","mw","xls","ppt","doc","swf","wks","wps","wdb","wri","rtf","ans","txt")
'设置列表的文件名,扩展名不在其中的话SiteMap则不会收录该扩展名的文件

if len(trim(sFileName)) = 0 then
FileExtensionIsBad = true
Exit Function
end if

sFileExtension = right(sFileName, len(sFileName) - instrrev(sFileName, "."))
bFileExtensionIsValid = false 'assume extension is bad
for each sFileExt in extensions
if ucase(sFileExt) = ucase(sFileExtension) then
bFileExtensionIsValid = True
exit for
end if
next
FileExtensionIsBad = not bFileExtensionIsValid
End Function
%>

纯编码实现Access数据库的建立或压缩

〓简介〓
注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用

〓正文〓
<%
'#######以下是一个类文件,下面的注解是调用类的方法################################################
'# 注意:如果系统不支持建立Scripting.FileSystemObject对象,那么数据库压缩功能将无法使用
'# Access 数据库类
'# CreateDbFile 建立一个Access 数据库文件
'# CompactDatabase 压缩一个Access 数据库文件
'# 建立对象方法:
'# Set a = New DatabaseTools
'#########################################################################################

Class DatabaseTools

Public function CreateDBfile(byVal dbFileName,byVal DbVer,byVal SavePath)
'建立数据库文件
'If DbVer is 0 Then Create Access97 dbFile
'If DbVer is 1 Then Create Access2000 dbFile
On error resume Next
If Right(SavePath,1)<>"" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & ""
If Left(dbFileName,1)="" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))
If DbExists(SavePath & dbFileName) Then
Response.Write ("对不起,该数据库已经存在!")
CreateDBfile = False
Else
Dim Ca
Set Ca = Server.CreateObject("ADOX.Catalog")
If Err.number<>0 Then
Response.Write ("无法建立,请检查错误信息<br>" & Err.number & "<br>" & Err.Description)
Err.Clear
Exit function
End If
If DbVer=0 Then
call Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName)
Else
call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & dbFileName)
End If
Set Ca = Nothing
CreateDBfile = True
End If
End function

Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath)
'压缩数据库文件
'0 为access 97
'1 为access 2000
On Error resume next
If Right(SavePath,1)<>"" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & ""
If Left(dbFileName,1)="" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))
If DbExists(SavePath & dbFileName) Then
Response.Write ("对不起,该数据库已经存在!")
CompactDatabase = False
Else
Dim Cd
Set Cd =Server.CreateObject("JRO.JetEngine")
If Err.number<>0 Then
Response.Write ("无法压缩,请检查错误信息<br>" & Err.number & "<br>" & Err.Description)
Err.Clear
Exit function
End If
If DbVer=0 Then
call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;Data
Source=" & SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
Else
call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")
End If
'删除旧的数据库文件
call DeleteFile(SavePath & dbFileName)
'将压缩后的数据库文件还原
call RenameFile(SavePath & dbFileName & ".bak.mdb",SavePath & dbFileName)
Set Cd = False
CompactDatabase = True
End If
end function

Public function DbExists(byVal dbPath)
'查找数据库文件是否存在
On Error resume Next
Dim c
Set c = Server.CreateObject("ADODB.Connection")
c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
If Err.number<>0 Then
Err.Clear
DbExists = false
else
DbExists = True
End If
set c = nothing
End function

Public function AppPath()
'取当前真实路径
AppPath = Server.MapPath("./")
End function

Public function AppName()
'取当前程序名称
AppName = Mid(Request.ServerVariables("SCRIPT_NAME"),(InStrRev(Request.ServerVariables("SCRIPT_NAME") ,"/",-1,1))+1,Len(Request.ServerVariables("SCRIPT_NAME")))
End Function

Public function DeleteFile(filespec)
'删除一个文件
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Err.number<>0 Then
Response.Write("删除文件发生错误!请查看错误信息<br>" & Err.number & "<br>" & Err.Description)
Err.Clear
DeleteFile = False
End If
call fso.DeleteFile(filespec)
Set fso = Nothing
DeleteFile = True
End function

Public function RenameFile(filespec1,filespec2)
'修改一个文件
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Err.number<>0 Then
Response.Write("修改文件名时发生错误!请查看错误信息<br>" & Err.number & "<br>" & Err.Description)
Err.Clear
RenameFile = False
End If
call fso.CopyFile(filespec1,filespec2,True)
call fso.DeleteFile(filespec1)
Set fso = Nothing
RenameFile = True
End function

End Class
%>

Javascript技术实现真正的网上试听

<html>
<head>
<SCRIPT Language="Javascript1.2">
<!--
var locate = 0;
var scro = 0;
var go=80;//控制滚动的速度,越小越快。
//以下函数实现滚动
function scroller() {
if ( scro==1 ){
locate++;
scroll(20,locate);
clearTimeout(timer);
var timer = setTimeout("scroller()",go);
timer;
}
else{

scroll(20,locate);
}
}
//-->
</SCRIPT>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Welcome to YI's Home</title>
</head>
<body bgcolor="#EEEEEE" >
<SCRIPT Language="Javascript1.2">
<!--
var offsettop=20//定义层的相应位置

//定义随网页自动滚动的层函数
function makeStatic() {
object1.style.pixelTop=document.body.scrollTop+offsettop;object2.style.
pixelTop=document.body.scrollTop+offsettop;(此处认为换行请删除回车)
setTimeout("makeStatic()",100);//'100'控制滚动的速度,越小越快。
}
//切换‘滚动‘和‘暂停'图像的函数
function scrorstp() {
if (scro==1)
{scro=0;
object2.style.visibility="visible";
object1.style.visibility="visible";
}
else {
scro=1;
object1.style.visibility="hidden";
scroller();}
}
//定义播放的歌曲地址
document.write('<div id="object2" style="position:absolute; left:20px; top:35px; width:46px; height:16px;cursor:hand; z-index:1 "><img src="zanting.gif" width="45" height="16" onclick=scrorstp()><font size="2"><embed height="20" src="Afainst All Odds Mariah Carey.rm" type="audio/x-pn-realaudio-plugin" width="45" controls="PlayButton" autostart="false"></font></div>')
//定义‘滚动‘和‘暂停'的切换图像,onclick激发切换。
document.write('<div id="object1" style="position:absolute; left:20px; top:35px; width:46px; height:16px; cursor:hand; z-index:1 "><img src="gundong.gif" width="45" height="16" onclick=scrorstp()></div>')
//启动Javascript
function menu3(){
if (document.all||document.layers)
makeStatic()
}
window.onload=menu3
//</SCRIPT>以下是歌词部分
//-->
</SCRIPT>//以下是
<ul>
<li>
<div align="center">
<center>
<p><span class="font" ><b>Mariah Carey--Against All Odds<font face="Times New Roman" size="4">

</b></span></p>
</div>
</center>
<blockquote>
<p style="line-height: 150%" align="justify" class="font"><span class="font">
How can I just let you walk away <br>
Just let you leave without a trace <br>
When I stand here taking <br>
Every breath with you <br>
You're the only one <br>
Who really knew me at all <br>
How can you just walk away from me <br>
When all I can do is watch you leave <br>
'Cause we've shared the laughter and the pain <br>
And even shared the tears <br>
You're the only one <br>
Who really knew me at all <br><br>
So take a look at me now <br>
Oh there's just an empty space <br>
And there's nothing left here to remind me <br>
Just the memory of your face <br>
Take a look at me now <br>
'Cause there's just an empty space <br>
And you coming back to me is against all odds <br>
And that's what I've got to face <br><br>
I wish I could just make you turn around <br>
Turn around and see me cry <br>
There's so much I need to say to you <br>
So many reasons why <br>
You're the only one <br>
Who really knew me at all <br><br>
So take a look at me now <br>
'Cause there's just an empty space <br>
And there's nothing left here to remind me <br>
Just the memory of your face <br>
Take a look at me now <br>
'Cause there's just an empty space <br>
But to wait for you is <br>
All I can do <br>
And that's what I've got to face <br>
Take a good look at me now <br>
'Cause l'll still be standing here <br>
And you coming back to me is against all odds <br>
That's the chance I've qot to take <br><br>
Take a look at me now </p>
</span></p>
</blockquote>
<p></p>
</li>
</ul>
</body>
</html>
本站立志于收集各类技术文档资料,便于本人和广大网友查询检索,任何转载文章均尽力标明来源,无论单位或个人认为本站存在侵权内容均可与本站联系,任何此类反馈信息一经有效身份证明、权属证明及详细侵权情况证明后,将立即清除!对于转载内容,本站不为其版权负责,其任何言论均与本站无关!