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語ÑÔ,驗證·½Ê½為ϵ統×Ô帶µÄWINDOW驗證ģʽ.
現ÔÚÎÒÈç¹ûÒªÔÚASP´ú碼ÖÐ獲È¡當Ç°µÄµÇÈëÈË ......
ÎÒÏëÓÃaspд¸öÒ³ÃæÒÔǰûÓнӴ¥¹ý£¬ÎÒ¿´ÍøÉÏ˵aspµÄÔËÐл·¾³Ö»ÄÜÊÇwindows£¬»¹±ØÐëҪװIIS¡£
Çë½Ì¸÷λ¸ßÊÖ£¬asp»¹ÓÐÆäËûµÄÔËÐл·¾³Âð?
²î²»¶à¾ÍÕâЩÁË£¬¾ÍÊÇIISÒ»¶¨Òª×°ºÃ
»¹ÓÐÒªÊÇÓÃVS2005µÄ»°ºÃÏñ¿ÉÒÔÖ±½ÓÔ ......
ÎÒÕÒÁËÒ»¸öα¾²Ì¬´úÂ룬ÈçÏ£º
index.asp
<!--#include file="config.asp"-->
<ol>
<%
Set rs=server.CreateObject("adodb.recordset") & ......
×Ö¶ÎPowerListÀïÃæµÄÖµ£ºKSO10000,KSO10021,KSO10004,KSO10022,KSO10020,KSO10008
ÏÖÔÚÒªÅжϣ¬µ±PowerListÀïÃæ´æÔÚKSO10004Õâ¸öÖµµÄʱºò£¬Êä³ö£ººÃ
VBScript code:
<%
set rs=server.Creat ......