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

asp²Ù×÷XML

Dim xmlDoc
NewsConfigFile=server.MapPath("/test.xml")
Set xmlDoc=Server.CreateObject("msxml2.FreeThreadedDOMDocument.3.0")
If Not xmlDoc.load(NewsConfigFile) Then
 'XmlDoc.loadxml "<?xml version=""1.0"" encoding=""gb2312""?><NewscodeInfo/>"
 response.Write("²»´æÔÚÊý¾Ý")
 response.End()
End If
Dim colsNum,newsLine,rndInt
set newsNode = xmlDoc.DocumentElement.childNodes
for i=0 to newsNode.length-1
 if newsNode(i).firstChild.text=val then
  call listErr(val&"ÒÑ´æÔÚ")
  response.End()
 end if
next
'Ìí¼Óнڵã
Set newNode = XmlDoc.createNode(1,"list","")
xmlDoc.DocumentElement.appendChild(newNode)
 
Set newNode2 = XmlDoc.createNode(1,"name","")
newNode2.text=val
newNode.appendChild(newNode2)
'Ìí¼ÓÐÂÊôÐÔ
set newAttr=XmlDoc.createAttribute("time")     ’ÐÞ¸ÄÒÑ´æÔÚÊôÐÔ newNode.getAttributeNode("time").nodeValue=now()
newAttr.text=now()
newNode.attributes.setNamedItem(newAttr)
'±£´æ
xmlDoc.save NewsConfigFile
set xmlDoc=nothing
ÏÔʾXML
test.xml
<?xml version="1.0" encoding="gb2312"?>
<?xml-stylesheet type="text/xsl" href="test1.xsl"?>
<lists>
<list time="oooooo">
<name>xxxxxxxx</name>
</list>
....
</lists>
test1.xsl
<?xml version="1.0" encoding="gb2312"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="/">
<div style="background:#fff;">
<table>
<xsl:for-each select="lists/list">
<xsl:sort select="@time" order="descending" />
<tr>
<td width="120">±êÌ⣺</td>
<td width="380"><xsl:value-of select="name" /></td>
<td><xsl:value-of select="@time" /></td>
</tr>
</xsl:for-each>
</table>
</div>
</xsl:template>
</xsl:stylesheet>


Ïà¹ØÎĵµ£º

ASP¹ØÓÚ´òÓ¡

1¡¢¿ØÖÆ"×Ý´ò"¡¢ ºá´ò”ºÍ“Ò³ÃæµÄ±ß¾à¡£
£¨1£©<script defer>
function SetPrintSettings() {
// -- advanced features
factory.printing.SetMarginMeasure(2) // measure margins in inches
factory.SetPageRange(false, 1, 3) // need pages from 1 to 3
factory.printing.printer = "HP De ......

°²×°ÁËIIS»¹ÊÇÎÞ·¨´ò¿ªasp½â¾ö°ì·¨

ÏàÐÅÎÒµÄ,Ö»ÓÐÎÒ²ÅÕæÕýµØÕÒ¹ý´ð°¸,ÆäËü¶¼ÊÇÂÒ³­µÄ,ʵÄܽâ¾öµ½ÄãµÄÎÊÌâ,ǰ¸öÔÂÎÒ»¹ÔÚ¿àÕÒ´ð°¸,Ò²ÒÑÊÔÑé¹ýN´Î,×îºó³É¹¦ÁË,ÍøÉÏÒ²ÓиÄÄǸöʲôÕÊ»§µÄ,ÄǸöʵÔÚÌ«ÄÑÁË.
°´Îҵķ½·¨,ǰÌáÊÇÒ»,ϵͳÊÇXP,ÆäËüϵͳ²»¸Ò°ü.¶þ,ÄãûÓÐ×ö¹ýÆäËüÉèÖÃ.
Ö÷ÒªÊÇÕÊ»§È¨ÏÞÎÊÌâ.
´ò¿ª“¹ÜÀí¹¤¾ß”->“×é¼þ·þÎñ”- ......

ASP FSOÎļþ´¦Àíº¯Êý´óÈ«

<%
'½¨Á¢Îļþ¼Ðº¯Êý
Function CreateFolder(strFolder)'²ÎÊýΪÏà¶Ô·¾¶
'Ê×Ñ¡ÅжÏÒª½¨Á¢µÄÎļþ¼ÐÊÇ·ñÒѾ­´æÔÚ
Dim strTestFolder,objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'¼ì²éÎļþ¼ÐÊÇ·ñ´æÔÚ
If not objFSO.FolderExists(strTestF ......

Asp Split(Ò»¸ö¹ØÓÚSplitº¯ÊýÔÚASPÖÐʹÓ÷½·¨µÄ°¸Àý)

Asp Split
ÃèÊö£º
·µ»Ø»ùÓÚ 0 µÄһάÊý×飬ÆäÖаüº¬Ö¸¶¨ÊýÄ¿µÄ×Ó×Ö·û´®¡£
Óï·¨£º
Split(expression[, delimiter[, count[, start]]])
Split º¯ÊýµÄÓï·¨ÓÐÒÔϲÎÊý£º
²ÎÊý ÃèÊö
expression ±ØÑ¡¡£×Ö·û´®±í´ïʽ£¬°üº¬×Ó×Ö·û´®ºÍ·Ö¸ô·û¡£Èç¹û expression ΪÁ㳤¶È×Ö·û´®£¬Split ·µ»Ø¿ÕÊý×飬¼´²»°üº¬ÔªËغÍÊý¾ÝµÄÊý×é¡ ......

ASP½«²éѯÊý¾Ýµ¼³öEXCEL

Ò»¡¢ÓÃOWC
ʲôÊÇOWC£¿
¡¡¡¡OWCÊÇOffice Web CompentµÄËõд£¬¼´MicrosoftµÄOffice Web×é¼þ£¬ËüΪÔÚWebÖлæÖÆÍ¼ÐÎÌṩ
ÁËÁé»îµÄͬʱҲÊÇ×î»ù±¾µÄ»úÖÆ¡£ÔÚÒ»¸öintranet»·¾³ÖУ¬Èç¹û¿ÉÒÔ¼ÙÉè¿Í»§»úÉÏ´æÔÚÌØ¶¨µÄä¯ÀÀÆ÷ºÍÒ»
Щ¹¦ÄÜÇ¿´óµÄÈí¼þ£¨ÈçIE5ºÍOffice 2000£©£¬ÄÇô¾ÍÓÐÄÜÁ¦ÀûÓÃOffice Web×é¼þÌṩһ¸ö½»»¥Ê½Í¼Ðοª
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ