Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

asp ²Ù×÷xml

<% dim xml,root,allitem,nodecount
set xml=server.CreateObject("MicroSoft.XMLDom")
      xml.load(server.mappath("style.xml"))
       if   xml.parseError.errorCode   <>   0   then 
  Response.Write   "xml.parseError.errorCode   =   "   &xml.parseError.errorCode 
  Response.Write   "xml.parseError.reason   =   "   &xml.parseError.reason   
  Response.Write   "xml.parseError.line   =   "   &xml.parseError.line 
  Response.End   
  end   if  
     
'      '²éÕÒÒ»¸ö½Úµã¶ÔÏó
' Set   Root   =   xml.documentElement
' set   allitem=Root.selectNodes( "//style ")
'  nodeCount   =   allitem.length
'For   i=0   to   nodeCount-1
'     response.write  ( allitem(i).selectSingleNode( "S_ID ").text& " <br> ")
'next
'
'
'set objtofind=xml.documentElement.SelectSingleNode("//style/S_ID")
''È¡³öÕâ¸ö½Úµã¶ÔÏóµÄ ½ÚµãÃû£¬½ÚµãÖµ£¬Ä³¸öÊôÐÔÖµ£¬ºÍÈ«²¿µÄxml
'nodename=objtofind.nodename
'nodevalue=objtofind.text
'response.Write(nodename)
'response.Write(nodevalue)
'response.Write("<br>")
'È¡³öÒ»¸öÊôÐÔ½Úµã¶ÔÏó
set objattrtofind=xml.documentElement.SelectSingleNode("//style").GetAttributeNode("name")
'È¡³öÕâ¸ö½ÚµãµÄÊôÐÔÃû£¬ÊôÐÔÖµ
nodeattrname=objattrtofind.nodename
nodeattrvalue=objattrtofind.text   
response.Write(nodeattrname)
response.Write(nodeattrvalue)
dim objNodes
  Set objNodes = xml.selectSingleNode("//style[@name=


Ïà¹ØÎĵµ£º

aspºÍfsoʵÏÖɾ³ýÎļþ»òÎļþ¼Ð

'--------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<script>
   function checkAll(){
   for (i=0;i<document.forms[1].length;i++){
    if (document.forms[1][i].tagName= ......

[ASPÖÐʹÓÃÈý²ã¼Ü¹¹] 3.ʹÓÃÈý²ã¼Ü¹¹µÄºÃ´¦

    ¶ÔÓÚÈý²ã¼Ü¹¹µÄ¸ÅÄîÐÔÒâÒå,ÍøÂçÉÏÓкܶàרÎÄ̽ÌÖ,ÈôÏëÉîÈëÁ˽â,¿ÉÒÔ×ÔѰ½â´ð.±¾ÎĽö×÷ΪһÖÖÓ¦ÓÃÐÔ̽ÌÖ,½²µÄ¸ü¶àµÄÊÇʵÏÖµÄϸ½Ú.
    ¼òµ¥µØ½²,Èý²ã¼Ü¹¹Êǽ«´úÂë°´Æä×÷Ó÷ֳÉÈý²¿·Ö,ÿ²¿·Ö½â¾ö×Ô¼º¸ºÔðµÄÁ÷³Ì.
    ´Ó±íÈëÉî,·Ö±ðÊÇ:
    ½çÃæ²ã-UI&nb ......

aspÊý×Ö·ÖҳʾÀý¹²Èý¸ö

<%
set rs=server.CreateObject(”ADODB.recordset”)
sql =”select * from ±í”
rs.open sql,conn,1,1
page=cint(request(”page”))
n=rs.RecordCount
rs.pagesize=12
m=cint(rs.pagecount)
if page=”" then
page=1
elseif page<1 then
page=1
end if
if cint(r ......

hzhost·Àasp¹¥»÷º¯Êý

 



hzhost·Àasp¹¥»÷º¯Êý
Function SafeRequest(ParaName)
Dim ParaValue
ParaValue=Request(ParaName)
if IsNumeric(ParaValue)  then
SafeRequest=ParaValue
exit Function
else
ParaValuetemp=lcase(ParaValue)
tempvalue="select
|insert |delete from|'|count(|dr ......

ÓÃASPʵÏÖ¶þ¼¶ÓòÃû

 






ÓÃASPʵÏÖ¶þ¼¶ÓòÃû
Òª´ïµ½¶þ¼¶ÃûµÄЧ¹û£¬±ØÐëÒ»ÏÂÌõ¼þÒÔ¼°Á÷³Ì£º
1¡¢±ØÐëÓÐÒ»¸ö¶¥¼¶ÓòÃû£¬¶øÇÒ´ËÓòÃû±ØÐë×öºÃ·º½âÎö²¢×öºÃÖ¸Ïò¡£
2¡¢±ØÐëÓÐһ̨¶ÀÁ¢µÄ·þÎñÆ÷¡£·º½âÎöµÄÓòÃûÖ¸Ïò¸Ã·þÎñÆ÷¡£
3¡¢ÔÚ·þÎñÆ÷ÉϵÄIIS½¨Ò»¸ö¿ÕµÄÖ÷»úÍ·ÃûµÄwebÕ¾µã¡£
4¡¢½«Ä¬ÈϵÄÒ³ÃæÉèÖÃΪÄãµÄ¶þ¼¶½âÎö³ÌÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ