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 ·ÒëÆðÀ´»¹ÕæÄÑ
Ï£ÍûÂÛ̳ÓÐÈËÄܰïÏÂæ
СµÜÔÚ´Ëл¹ýÁË
Äܲ»Äܰï°ïæ°¡£¬ÂÛ̳Óм¼ÊõµÄÈËÄÇô¶à°ïÏÂæ°Ñ
°ïÏÂæ°É£¬ÎÒû·ÖÁË
ÆäËûÓï·¨¶¼²î²»¶à»òÖ±½Ó¿´µÃ¶®°É
&ÊÇ×Ö·û´®
Ïà¹ØÎÊ´ð£º
<%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語ÑÔ,驗證·½Ê½為ϵ統×Ô帶µÄWINDOW驗證ģʽ.
現ÔÚÎÒÈç¹ûÒªÔÚASP´ú碼ÖÐ獲È¡當ǰµÄµÇÈëÈË ......
ÏÖÔÚÕâÉç»á»ù±¾Éϲ»ÐèÒªASP³ÌÐòÔ±ÁË,Ò»ÃæÊÔ,¶¼Òª.NET»òÕßPHP,JSPµÄ,°¥,,,,ASPÕâô²»ÖµÇ®Âð,ѧϰASPÊǸö´íÎóÂð
ûɶ´íÎó Ò»¾ä»°£º¼¼¶à²»Ñ¹Éí
¿¿ASP¶¼»ì²»µ½·¹³ÔÁË ÔÎ ÔÎ
ÎÒµÄÒâ˼ÊǶàѧһÃż¼Êõûɶ´íÎó ......
ÓÐËÄܸø½²½²£¬Ôõô×öÂð£¿
ллÀ²£¡
¸ÊÌØÍ¼ ÊÇɶ£¿
½âÌâ˼·.¿´Ò»Ï½ø¶ÈÌõµÄÏÔʾ..
ÆäʵÄã¾ÍŪһ¶Ñtable ÿ¸ötableµÄ¿í¶È²»Í¬.µ×É«²»Í¬¼´¿É
µ±È»ÓÃdiv¿ØÖÆÎ»ÖøüºÃ
ÄãŪ100¸ötable¸ù¾Ý½ø¶ÈÆäÖÐǰ20¸ö·Ö¸øµ ......
ÇëÎÊΪʲôÎÒÕâ¶Î´úÂë¿ÉÒÔÏÔʾÒÑÐ޸ijɹ¦picÎļþ¼ÐÖеÄͼƬ£¬µ«Êµ¼ÊÉÏÎļþ¼ÐÖеÄÎļþÃû³Æ»¹ÊǺúõġ£Íû¸ßÊÖ°ïæ¸Ä¸Ä°¡¡£
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
S ......