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>
Ïà¹ØÎĵµ£º
1,Q:ÔõÑù°Ñ±ðÈËÍøÒ³Éϵı³¾°ÒôÀÖ±£´æÏÂÀ´?
A:ä¯ÀÀ¸ÃÍøÒ³ºó,ÔÚÄãµÄ Windows\Temporary Internet Files Îļþ¼ÐÏ¿ÉÒÔÕÒµ½¸Ã±³¾°ÒôÀֵĻº´æÎļþ£¬¿½±´³öÀ´¼´¿ÉʹÓá£Èç¹û»¹ÊÇÕÒ²»¼û¸ÃÎļþ£¬¿ÉÒÔ´ò¿ªÍøÒ³µÄÔ´Îļþ£¬ÕÒµ½ÒôÀÖÎļþµÄ URL ·¾¶£¬ÓÓÂìÒÏ”µÈ FTP Èí¼þ½øÐÐÏÂÔØ¡£
2,Q:±ÜÃâÓ ......
ASP²É¼¯-ASP²É¼¯³ÌÐòÔÀí
²É¼¯³ÌÐòµÄÖ÷Òª²½ÖèÈçÏ£º
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
¶þ¡¢´Ó»ñÈ¡´úÂëÖÐÌáÈ¡ËùÓÐÓõÄÊý¾Ý
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
ÎÒÄ¿Ç°ËùÕÆÎÕµÄASP³£ÓûñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ·½·¨£º
1¡¢ÓÃserverXMLHTTP×é¼þ»ñÈ¡Êý¾Ý
ÒÔÏÂÄÚÈÝΪ³ÌÐò´úÂë:
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
Function GetBody(weburl)
&n ......
ÎļþÍ·ÓÃÁË
<%@Language="VBScript" CodePage="65001"%>
Îļþ±¾ÉíÒѾÊÇUtf-8µÄ±àÂëÁË
Ìá½»¹ýµ½Access¿âÖÐÔõô¶¼ÊÇ “产品介绍 ”ÕâÑùµÄ±àÂë
Ò»²½²½·ÖÎö£¬²»´æ¿âÖ±½ÓÊä³ö£¬Ò²ÊÇÕâÑùµÄ±àÂë¡£ÏëÀ´¸úAccessÎÞ¹ØÁË¡£
ÏàÓÚÃԻ󣬺óÀ´ÖØн¨Ò»¸ö±íµ¥Ôª£¬Ìá½» ......
´úÂëÈçÏ£º
<%@ Page Language="C#" Debug="true" %>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.SqlClient"%>
<Script Language="C#" runat="server">
int Record_Per_Page;//¶¨ÒåÿҳÏÔʾ¼Ç¼Êý
int nPageCount;//¶¨Òå×ÜÒ³Êý
int nRecCount;//¶¨Òå×Ü ......