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

asp delphi ¸ßÊÖÇë°ïæ

ÐÂÀ´´ËÂÛ̳¸Ð¾õÑо¿Æø·ÕºÍ¸Ð¾õ¶¼²»´í £¬²»´í¸ÕÀ´¾Í·¢ÇóÖúÌû×Óȷʵ²»ºÃÒâ˼£¬¿Éȷʵ²»¶®ASP

Function IsCHI(clChar)

  Dim z

  z = Hex(Asc(clChar))

  IsCHI = (Len(z) = 4)

End Function


Function EnCode(clString)

  Dim i

  Dim x

  Dim r

 

  For i = 1 To Len(clString)

  x = Mid(clString, i, 1)

  If IsCHI(x) = True Then

    r = r & Hex(Asc(x))

  Else

    If Hex(Asc(x)) = "D" Then

    r = r & "O" & Hex(Asc(x)) & "DO"

    ElseIf Hex(Asc(x)) = "A" Then

    r = r

    Else

    r = r & "O" & Hex(Asc(x)) & "O"

    End If

  End If

  Next

  EnCode = r

  r = ""

End Function


Ë­Äܰïæ·­ÒëÒ»ÏÂÂ𣬿´²»¶®ASP ·­ÒëÆðÀ´»¹ÕæÄÑ

Ï£ÍûÂÛ̳ÓÐÈËÄܰïÏÂæ
СµÜÔÚ´Ëл¹ýÁË

Äܲ»Äܰï°ïæ°¡£¬ÂÛ̳Óм¼ÊõµÄÈËÄÇô¶à°ïÏÂæ°Ñ

°ïÏÂæ°É£¬ÎÒû·ÖÁË

ÆäËûÓï·¨¶¼²î²»¶à»òÖ±½Ó¿´µÃ¶®°É
&ÊÇ×Ö·û´®


Ïà¹ØÎÊ´ð£º

aspÊÂÎñÎÊÌâ

<%On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.begintrans
conn.Open ("Driver={SQL Server};server=(local);uid=sa;database=student;pwd=") ......

ASP網頁ÖÐÈ¡µÃµÇ陸µÄÓÃ戶Ãû

ÎÒµÄ網頁´ú碼為ASP語ÑÔ,驗證·½Ê½為ϵ統×Ô帶µÄWINDOW驗證ģʽ.

現ÔÚÎÒÈç¹ûÒªÔÚASP´ú碼ÖÐ獲È¡當ǰµÄµÇÈëÈË ......

ÏÖÔÚµÄasp³ÌÐòÔ±ÊDz»ÊǺܱ¯°§Ñ½

ÏÖÔÚÕâÉç»á»ù±¾Éϲ»ÐèÒªASP³ÌÐòÔ±ÁË,Ò»ÃæÊÔ,¶¼Òª.NET»òÕßPHP,JSPµÄ,°¥,,,,ASPÕâô²»ÖµÇ®Âð,ѧϰASPÊǸö´íÎóÂð
ûɶ´íÎó Ò»¾ä»°£º¼¼¶à²»Ñ¹Éí

¿¿ASP¶¼»ì²»µ½·¹³ÔÁË  ÔÎ ÔÎ

ÎÒµÄÒâ˼ÊǶàѧһÃż¼Êõûɶ´íÎó ......

aspÔõÑùʵÏÖ¸ÊÌØÍ¼µÄЧ¹û£¿ - Web ¿ª·¢ / ASP

ÓÐË­Äܸø½²½²£¬Ôõô×öÂð£¿
ллÀ²£¡
¸ÊÌØÍ¼ ÊÇɶ£¿

½âÌâ˼·.¿´Ò»Ï½ø¶ÈÌõµÄÏÔʾ..
ÆäʵÄã¾ÍŪһ¶Ñtable ÿ¸ötableµÄ¿í¶È²»Í¬.µ×É«²»Í¬¼´¿É
µ±È»ÓÃdiv¿ØÖÆÎ»ÖøüºÃ

ÄãŪ100¸ötable¸ù¾Ý½ø¶ÈÆäÖÐǰ20¸ö·Ö¸øµ ......

¹ØÓÚASPÅúÁ¿ÐÞ¸ÄÎļþÃûµÄÎÊÌâ

ÇëÎÊΪʲôÎÒÕâ¶Î´úÂë¿ÉÒÔÏÔʾÒÑÐ޸ijɹ¦picÎļþ¼ÐÖеÄͼƬ£¬µ«Êµ¼ÊÉÏÎļþ¼ÐÖеÄÎļþÃû³Æ»¹ÊǺúõġ£Íû¸ßÊÖ°ïæ¸Ä¸Ä°¡¡£
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
S ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ