推薦：asp+sql2000存儲(chǔ)過(guò)程分頁(yè)實(shí)例
1.返回記錄集總數(shù)存儲(chǔ)過(guò)程： CREATE procedure dbo.recordCount ( @TableName nvarchar(100),--數(shù)據(jù)庫(kù)表名 @strWhere nvarchar(500),--查詢條件 @count int output---輸出值，記錄集總數(shù) ) as declare @sqlStr nvarchar(1000) if @strWhere != '' set @sqlSt

<%   
'----------------------------------------------------------------   
'程序簡(jiǎn)介: 完成asp語(yǔ)言對(duì)XML文檔中指定節(jié)點(diǎn)文本的增加、刪除、修改、查看   
'入口參數(shù): 無(wú)   
'出口參數(shù): 無(wú)   
'------------------------------------------------   
'函數(shù)名字：ConnectXml()   
'入口參數(shù): filename 需要連接或打開(kāi)的xml文件名   
'出口參數(shù): 無(wú)   
'返回值 ：ConnectXml=0，XMLMorntekDocument就是一個(gè)成功裝載XML文檔的對(duì)象了。   
' ConnectXml<>0,則打印錯(cuò)誤信息strError   
'------------------------------------------------   
dim XMLMorntekDocument  
  
function ConnectXml(filename)   
dim strSourceFile   
strSourceFile = Server.MapPath(filename)   
Set XMLMorntekDocument = Server.CreateObject("Microsoft.XMLDOM")   
XMLMorntekDocument.async = false   
XMLMorntekDocument.load(strSourceFile)   
ConnectXml=XMLMorntekDocument.parseerror.errorcode   
if XMLMorntekDocument.parseerror.errorcode<>0 then   
strError="<h2>error"&XMLMorntekDocument.parseerror.errorcode&"</h2>"   
strErrorstrErrorstrError=strError&XMLMorntekDocument.parseerror.reason&"<br>"   
strErrorstrErrorstrError=strError&XMLMorntekDocument.parseerror.url&"<br>"   
strErrorstrErrorstrError=strError&XMLMorntekDocument.parseerror.line&"<br>"   
strErrorstrErrorstrError=strError&XMLMorntekDocument.parseerror.filepos&"<br>"   
strErrorstrErrorstrError=strError&XMLMorntekDocument.parseerror.srcText&"<br>"   
response.write strError   
end if   
end function  
  
'------------------------------------------------   
'函數(shù)名字：CloseXml()   
'入口參數(shù): 無(wú)   
'出口參數(shù): 無(wú)   
'------------------------------------------------   
function CloseXml(XMLMorntekDocument)   
if IsObject(XMLMorntekDocument) then   
set XMLMorntekDocument=nothing   
end if   
end function  
  
  
'------------------------------------------------   
'函數(shù)名字：SelectXmlNodeText(elementname)   
'入口參數(shù): elementname 元素的名字   
'出口參數(shù): 無(wú)   
'------------------------------------------------   
function SelectXmlNodeText(elementname)   
elementname="//"&elementname   
temp=XMLMorntekDocument.selectSingleNode(elementname).text   
selectXmlNodeText= server.htmlencode(temp)  
  
end function    
  
'------------------------------------------------   
'函數(shù)名字：InsertXmlNodeText(befelementname,elementname,elementtext)   
'入口參數(shù): elementname 插入的元素的名字   
' befelementname在此元素的名字前面插入元素   
' elementtext 插入的元素的文本   
'出口參數(shù): 無(wú)   
'------------------------------------------------   
function InsertXmlNodeText(befelementname,elementname,elementtext)   
dim befelement,element   
set befelement=XMLMorntekDocument.selectSingleNode("//"&befelementname)   
set element= XMLMorntekDocument.createelement(elementname)   
befelement.insertBefore element,befelement.firstchild   
element.text=elementtext   
end function  
  
'------------------------------------------------   
  
'函數(shù)名字：UpdateXmlNodeText(elementname,newelementtext)   
'入口參數(shù): elementname 元素的名字   
' newelementtext元素的新文本   
'出口參數(shù): 無(wú)   
'------------------------------------------------   
function UpdateXmlNodeText(elementname,newelementtext)   
dim element   
set element=XMLMorntekDocument.selectSingleNode("//"&elementname)   
element.text=newelementtext   
end function  
  
'------------------------------------------------   
'函數(shù)名字：DeleteXmlNodeText(elementname)   
'入口參數(shù): elementname 元素的名字   
'出口參數(shù): 無(wú)   
'------------------------------------------------   
function DeleteXmlNodeText(elementname)   
XMLMorntekDocument.selectSingleNode("//"&elementname).text =""   
end function   
%>  

分享：ASP點(diǎn)擊刷新驗(yàn)證碼實(shí)例代碼
現(xiàn)在網(wǎng)站上大部分的驗(yàn)證碼都是圖片驗(yàn)證碼，就跟 http://dwww.cn/Books.asp 下邊的一樣。 用戶可能長(zhǎng)時(shí)間的停留在頁(yè)面上，等到最后提交的時(shí)候，驗(yàn)證碼就可能過(guò)期了。所以要加個(gè)刷新的功能。 驗(yàn)證碼：input name='checkimg' type='text' class='input' id='che