asp+xmlÁôÑÔ°åÄã·ÖÒ³ÎÊÌâ - Web ¿ª·¢ / ASP
VBScript code:
<%
strSourceFile=Server.MapPath("guestbook.xml")
Set objXML=Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("NewList")
%>
<%
'ÿҳ´óС
pageSize=4
'ËùÓнڵãÊý
AllNodesNum=objRootsite.childNodes.length-1
'×ÜÒ³Êý
PageNum=AllNodesNum\PageSize+1
'µÚ¼¸Ò³²ÎÊý
PageNo=request.querystring("pageNo")
if PageNo=""then
PageNo=PageNum
end if
'¿ªÊ¼½Úµã
StarNodes=PageNo*PageSize-1
'½áÊø½Úµã
EndNodes=(PageNo-1)*PageSize
if EndNodes<0 then
EndNodes=0
end if
'ÅÐ¶ÏÆðʼ½ÚµãÊÇ·ñ³¬¹ý×ܽڵãÊý
if StarNodes>AllNodesNum then
EndNodes=EndNodes-(StarNodes-AllNodesNum)
StarNodes=AllNodesNum
end if
if EndNodes<0 then
EndNodes=0
end if
while St
Ïà¹ØÎÊ´ð£º
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
¸÷λºÃ£¬ÎÒ¸Õ°ÑÒ»¸öASPÍøÕ¾ÉèÖúÃÁË£¬Ò²ÄÜÕý³£·ÃÎÊ¡£µ«ÊÇÔÚÎÒ±¾»úÉϲ»ÄÜ´ò¿ªadmin\login.asp,ËùÒÔÎÞ·¨ÊµÏÖºǫ́¹ÜÀí¡££¨´íÎóÌáʾÎÞ·¨ÕÒµ½ÍøÒ³£¬´úÂë404£¬ÎҵIJÙ×÷ϵͳÊÇwin2000 server)
µ«ÊÇÆæ¹ÖµÄÊÇÔÚ¾ÖÓòÍøµÄÆäËû» ......
¹ØÓÚasp.net md5 32λ¼ÓÃܽâÃÜ
ÓÐûÓÐÈË¿ÉÒÔд¸öÀà¡£
²¢Ïêϸ½âÊÍһϣ¬±¾È˺ܲ»Àí½â32λmd5
C# code:
public string md5(string str,int code)
2{
3 if(code==16) //16λMD5¼ÓÃÜ£¨È¡32λ¼ÓÃܵÄ9~25× ......
ÄÄÀïÓÐÃâ·ÑµÄASP.NET¿Õ¼ä£¿£¿Á·ÊÖÓÃµÄ Ð»Ð»
5944µÄ¿Õ¼äÊÇÆ×Ó£¬×Ô¼ºËÑÒ»ÏÂÊÔÊÔ£¬Ãâ·ÑµÄÓУ¬Ò»°ã¶¼ÊÇÈýÌìÊÔÓã¬Ò»¹ýÄã¾ÍÒª½»·ÑÁË
ÒýÓÃ
5944µÄ¿Õ¼äÊÇÆ×Ó£¬×Ô¼ºËÑÒ»ÏÂÊÔÊÔ£¬Ãâ·ÑµÄÓУ¬Ò»°ã¶¼ÊÇÈýÌìÊÔÓã¬Ò»¹ýÄ ......