by 清泉
27. 六月 2009 14:10
服务器上面我用的是SQL Server 2005 开发者版,master数据库没有备份,本来可以正常的启动服务,但是让机房重启服务后,就不能启动SQL Server了,想重装N多东西要处理,还有别的库也要重新建立。太麻烦了。
在网上找了好久,总算找到解决方案,原来是是因为突然断电,master数据库刚好产生坏区,我把别的服务器上面的这个库复制过来,再把此数据库覆盖过去就修复了,当然出现这种错误也可能是由于别的系统数据库损坏导致,覆盖一下就差不多了。
[更多...]
by 清泉
25. 六月 2009 10:34
select控件用CSS不太好控制,!在style里写上 width:**px;这个可以实现. 但height:**px; 这个就实现不了. 只能通过调整里面字体的大小来改变高度.同时background可以实现,但用背景图就不行了.select的border是默认的蓝色, CSS用border属性是改变不了的. 只有通过层伪装的方法才能让边框改变,先建一个带有预想边框的层, 在里面放上select,其中select的尺寸要比div稍微大一点,让超出层的内容隐藏从而遮盖住select自带的边框.
[更多...]
by 清泉
23. 六月 2009 19:27
Function QuickSort(vData, Low, Hi)
If Not IsArray(vData) Then Exit Function
Dim lTmpLow
Dim lTmpHi
Dim lTmpMid
Dim vTempVal
Dim vTmpHold
[更多...]
by 清泉
23. 六月 2009 19:23
Dim aData
aData = Array(3,2,4,1,6,0)
Call ResponseArray(aData, "原来顺序")
Call ResponseArray(SelectSort(aData), "选择排序")
Call ResponseArray(QuickSort(aData), "快速排序")
Call ResponseArray(InsertSort(aData), "插入排序")
Call ResponseArray(BubbleSort(aData), "冒泡排序")
[更多...]
by 清泉
22. 六月 2009 16:01
Function MoveR(Rstr)
Dim i,SpStr
SpStr = Split(Rstr,",")
For i = 0 To Ubound(Spstr)
If I = 0 then
MoveR = MoveR & SpStr(i) & ","
Else
If instr(MoveR,SpStr(i))=0 and i=Ubound(Spstr) Then
[更多...]
by 清泉
22. 六月 2009 15:59
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
IF Not IsArray(ary) Then Exit Function
KeepChecking = True
Do Until KeepChecking = False
KeepChecking = False
For I = 0 To UBound(ary)
IF I = UBound(ary) Then Exit For
[更多...]
by 清泉
21. 六月 2009 20:40
1.ASP显示xml文件中的所有节点
2.ASP向xml文件中的添加节点
3.ASP删除xml文件中某个节点
4.使用asp修改xml中的节点
1.ASP操作xml--显示xml文件中的所有节点
通常是利用数据库来保存数据,但也可以使用xml文件来保存数据。假设xml文件的内容是:
[更多...]
by 清泉
21. 六月 2009 20:34
NO.1--建立一个XML数据库data.xml
<?xml version="1.0"?>
<records>
<record>
<name>caca</name>
<qq>154222225</qq>
<email>service@supidea.com</email>
</record>
<records>
[更多...]
by 清泉
21. 六月 2009 20:10
取得根节点
set dom=CreateObject("microsoft.xmldom")
dom.async=false
dom.load "c:\user.xml"
getElementById
set book1=rootNode.childNodes(1)
book1.ownerDocument 返回Document节点,指向XML文档本身
book1.previousSibling 前一个节点
[更多...]
by 清泉
21. 六月 2009 19:44
async 属性
作 用 async 属性表示是否允许异步的下载。
基本语法 boolValue = XMLDocument.async;XMLDocument.async = boolValue;
说 明 布尔值是可擦写的(read/write),如果准许异步下载,值为True;反之则为False。
范 例
xmlDoc.async = "false";
alert(xmlDoc.async);
[更多...]
by 清泉
20. 六月 2009 16:53
元搜索引擎(Metasearch Engine),是一种调用其它独立搜索引擎的引擎,亦称“搜索引擎之母(The mother of searce engines)”。在这里,“元”(Meta)为“总的”、“超越”之意,元搜索引擎就是对多个独立搜索引擎的整合、调用、控制和优化利用。相对元搜索引擎,可被利用的独立搜索引擎称为“源搜索引擎”(source Engine),或“搜索资源”(searcing resources),整合、调用、控制和优化利用源搜索引擎的技术,称为“元搜索技术”(Meta-searching technique),元搜索技术是元搜索引擎的核心。
[更多...]
by 清泉
19. 六月 2009 10:03
超链接实现新窗口打开很容易,只要target="_blank"便可以了。
但是使用JS新窗口中打开就是比较的麻烦,使用window.open固然可以实现在新窗口打开,但window.open的js新窗口中中打开很容易被浏览器阻拦,不作考虑。
可以模拟onclick事件后创建 <a>标签加target="_blank",然后使其click,这样便可实现JS新窗口中打开网页,且不被浏览器阻拦过滤。
下面是js新窗口中打开页面的代码:
function CreateA(url){
[更多...]