代码如下:有时候想为我们的网页提供多语言支持，如果一种语言用一张网页来做实在太麻烦了，幸好Google提供了语言工具功能，下面介绍如何利用它来实现网页多种语言之间的转换。 lan.htm <form> <select name="lan"> <option value="en|de">英语 翻译成 德语</option> <option value="en|es">英语 翻译成 西班牙语</option> <option value="en|fr">英语 翻译成 法语</option> <option value="en|it">英语 翻译成 意大利语</option> <...
今天更新了一下博客的代码运行功能，因为原来的写得不够完善，如果想在博客里插入多个可运行的代码，那就会——呃屁。关于replace函数，js中只是替换从起始位置的第一个指定字串，而vbs则是替换所有的指定字串，因此如果想要用vbs一个一个替换，那就得绕个弯子了，写个函数就行了，顺便，把写完的这个函数上传了，这下可以在一个日志里放多个代码运行演示了！ 感冒了，写完函数就乖乖去睡觉，今天过得真是辛苦，有种快要死掉...
这段程序的方法是利用XMLHTTP来读取腾讯网站的相应HTML代码获取QQ的头像，根据这个想法，我们还可以抓取很多其他网站的信息，如天气预报、新闻等等。 <script language="JavaScript"> <!-- function getFaceImg（QQcode） { var Re=new RegExp（"^[1-9]{1}\d+$","g"）; if （!QQcode !Re.test（QQcode）） return; var URL="http://search.tencent.com/cgi-bin/friend/oicq_find?oicq_no="...
RegExp对象的用法： RegExpTest(patrn, strng) Dim regEx, Match, Matches ' 建立变量。 Set regEx = New RegExp ' 建立正则表达式。 regEx.Pattern = patrn ' 设置模式。 regEx.IgnoreCase = True ' 设置是否区分字符大小写。 regEx.Global = True ' 设置全局可用性。 Set Matches = regEx.Execute(strng) ' 执行搜索。 For Each Match in Matches ' 遍历匹配集合。 RetStr = RetStr & "Match found at position " Ret...
给万博系统的新闻系统增加分页功能,无需修改数据库,只需改变一个文件,就可以了. 如果将后台的Webediter增加一个插入分页符,那就更完美了.我还没加这个. 本例是在后台录入新闻时,在需要分页的位置插入分页符: {＄html_page＄} 就可以了. 代码如下,有详细说明 newsshow.asp <!--#include file="siteinfo.asp"--> <HTML> <HEAD> <TITLE><%=sitename%></TITLE> <META HTTP-EQUIV="Content-Type" C> <link href="images/CSS.css" type=t...
于电子互动地图的信息量太大，完全可以通过客户端的广大操作者一同完成海量的标注工作，这样就必须实现在线标注的功能。而这样的功能单独依靠Flash本身是无法实现的。我们可以通过ASP、ASP.net、PHP等协助实现。在本例中，我们使用ASP来共同实现在线标注功能。 1、基本的通信过程 图1 SWF+XML与服务器的通信过程示意图点击看大图图1展示的是本例中的通信过程示意。在 Flash 和数据库之间传递信息的服务器端脚本以 XML 格式读写数据...
代码如下:<HTML> <HEAD> <TITLE>笨狼代码大管家</TITLE> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style> body { font-size:12; BACKGROUND: #DADADA; margin-left:5; } .folder { font-size:18; cursor:hand; } .folderIcon { color:navy; font-family:wingdings; font-size:18; cursor:hand; } .file { color:navy; font-size:18; cursor:hand; height:21; } .fileI...
反向链接插件文章来至:http://www.gxlsystem.com/dennis/blog/post/19.html 使用了 David 提供的regerer插件，修改自 IYI referer 。 1、在 http://svn.referer.cn/referer_lite/package/下载 referer_lite.rar 的压缩包 2、解压后将文件夹内所有内容上传到你的空间根目录下referer文件夹内，按照提示修改数据库名称。 然后进入http://你的域名/referer/index.asp后看到一张表格，认真阅读提示并填写后，点击“生成统计代码” 3、将...
上次说到的上传图片是采用稻香老农开发的无组件上传。其上传过程是将图片先保存到指定文件夹，与此同时将该路径保存至数据库字段的。显示图片则是根据数据库表中的路径字段对应显示的。当然有关图片的管理，比如删除：只删除了路径，实际的图片需要根据该路径通过FSO进行删除……那有没有这样一种情况：将图片直接作为一个字段的值保存。对图片的操作就象是对数据字段的操作一样熟练。答案是肯定的，只是将该字段的类型设为OLE对象...
可以在线查找空间里的asp木马 代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '设置密码 PASSWORD = "jb51net" dim Report if request.QueryString("act")="login" then if request.Form("pwd") = PASSWORD then session("pig")=1 end if %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/ht...
作 者 : 甘冀平 ; FSO确实存在一些弱点 － 比如，它很难处理二进制文件，这包括Word文档、许多图形格式的文件和其他一些文件。然而你仍然可以用其他的方式操作这些文件 － 移动它们、删除它们，等等。你不能做的就是对它们进行打开或者写操作。另外一个限制是对于文件长度的问题。当立刻读写一些内容时，所有的信息都存储在内存中 － 内容越多，消耗的内存就越大。这将使每个工作都变得慢起来。所以，如果需要操作非常大的文件，或...
作 者 : 甘冀平你也许想：好，现在我知道如何写入文件了。但能做到更多一些吗？下面来试一试为web站点建立一个搜索功能。建立搜索引擎的关键是递归。主要地，编写一段代码搜索目录下的文件，然后对所有的目录循环执行同样的代码。因 为不能确定总共有多少个子目录，所以必须一遍又一遍地执行搜索代码，直到结束。递归调用非常好！下面来创建搜索页面。假设已经建立了一个HTML表单，用户在其中输入一个搜索字符串。 Dim objFolder D...
作 者 : 甘冀平到此，你对FSO可能已经有了很好的体会。让我们再深入研究一步，来解决更复杂的难题。首先，你可能希望对文件改名。为了跟踪所有的文档，你将要重新命名它们以便唯一，这样就可以被系统容易地区 别。很不幸，FSO不允许简单的文件改名操作，所以我们不得不修改一下。 < % ' create the fso object set fso = Server.Createobject("Scripting.FileSystemObject") path = "c: emp est.txt" strDate = Replace(Date(), "/...
作 者 : 甘冀平现在已经有了一些用户信息保存在文件中，就像一个简单的数据库。假设有一个用户想了解所有的访问者，就要从登 记的信息中分离出相关部分，因为没有象数据库一样拥有结构化的列。我们知道，在所创建的文件中，第1行是用户名，第2行是他们的主页，第3行是他们的电子邮件地址。随后登记的用 户也是按照这样的结构存储他们的信息，所以每3行将包含一个用户的登记信息。知道了这些，就可以编写下面的代码来显 示信息： < ...
作 者 : 甘冀平上面讨论了基本知识，然后说说权限许可的问题。FSO以创建它的用户帐户权限运行，换言之，如果有人从Internet 上访问你的页面，那么这个internet帐户就创建FSO。如果以administrator的身份登录计算机，并且登录页面，那么 administrator帐户就创建了FSO。这是非常重要的，因为一定的帐户拥有一定的权限，并且FSO需要一些权限从而能完整的 执行功能。internet帐户（IUSER_MachineName，MachineName是服务器的名字）一般...