推薦:asp+sql2000存儲過程分頁實例1.返回記錄集總數存儲過程: CREATE procedure dbo.recordCount ( @TableName nvarchar(100),--數據庫表名@strWhere nvarchar(500),--查詢條件@count int output---輸出值,記錄集總數) as declare @sqlStr nvarchar(1000) if @strWhere != '' set @sqlSt
- <%
- '----------------------------------------------------------------
- '程序簡介:完成asp語言對XML文檔中指定節點文本的增加、刪除、修改、查看
- '入口參數:無
- '出口參數:無
- '------------------------------------------------
- '函數名字:ConnectXml()
- '入口參數:filename需要連接或打開的xml文件名
- '出口參數:無
- '返回值:ConnectXml=0,XMLMorntekDocument就是一個成功裝載XML文檔的對象了。
- 'ConnectXml<>0,則打印錯誤信息strError
- '------------------------------------------------
- dimXMLMorntekDocument
- functionConnectXml(filename)
- dimstrSourceFile
- strSourceFile=Server.MapPath(filename)
- SetXMLMorntekDocument=Server.CreateObject(Microsoft.XMLDOM)
- XMLMorntekDocument.async=false
- XMLMorntekDocument.load(strSourceFile)
- ConnectXml=XMLMorntekDocument.parseerror.errorcode
- ifXMLMorntekDocument.parseerror.errorcode<>0then
- 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.writestrError
- endif
- endfunction
- '------------------------------------------------
- '函數名字:CloseXml()
- '入口參數:無
- '出口參數:無
- '------------------------------------------------
- functionCloseXml(XMLMorntekDocument)
- ifIsObject(XMLMorntekDocument)then
- setXMLMorntekDocument=nothing
- endif
- endfunction
- '------------------------------------------------
- '函數名字:SelectXmlNodeText(elementname)
- '入口參數:elementname元素的名字
- '出口參數:無
- '------------------------------------------------
- functionSelectXmlNodeText(elementname)
- elementname=//&elementname
- temp=XMLMorntekDocument.selectSingleNode(elementname).text
- selectXmlNodeText=server.htmlencode(temp)
- endfunction
- '------------------------------------------------
- '函數名字:InsertXmlNodeText(befelementname,elementname,elementtext)
- '入口參數:elementname插入的元素的名字
- 'befelementname在此元素的名字前面插入元素
- 'elementtext插入的元素的文本
- '出口參數:無
- '------------------------------------------------
- functionInsertXmlNodeText(befelementname,elementname,elementtext)
- dimbefelement,element
- setbefelement=XMLMorntekDocument.selectSingleNode(//&befelementname)
- setelement=XMLMorntekDocument.createelement(elementname)
- befelement.insertBeforeelement,befelement.firstchild
- element.text=elementtext
- endfunction
- '------------------------------------------------
- '函數名字:UpdateXmlNodeText(elementname,newelementtext)
- '入口參數:elementname元素的名字
- 'newelementtext元素的新文本
- '出口參數:無
- '------------------------------------------------
- functionUpdateXmlNodeText(elementname,newelementtext)
- dimelement
- setelement=XMLMorntekDocument.selectSingleNode(//&elementname)
- element.text=newelementtext
- endfunction
- '------------------------------------------------
- '函數名字:DeleteXmlNodeText(elementname)
- '入口參數:elementname元素的名字
- '出口參數:無
- '------------------------------------------------
- functionDeleteXmlNodeText(elementname)
- XMLMorntekDocument.selectSingleNode(//&elementname).text=
- endfunction
- %>
分享:ASP點擊刷新驗證碼實例代碼現在網站上大部分的驗證碼都是圖片驗證碼,就跟http://dwww.cn/Books.asp 下邊的一樣。 用戶可能長時間的停留在頁面上,等到最後提交的時候,驗證碼就可能過期了。所以要加個刷新的功能。 驗證碼:input name='checkimg' type='text' class='input' id='che