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 ·ÒëÆðÀ´»¹ÕæÄÑ
Ï£ÍûÂÛ̳ÓÐÈËÄܰïÏÂæ
СµÜÔÚ´Ëл¹ýÁË
Äܲ»Äܰï°ïæ°¡£¬ÂÛ̳Óм¼ÊõµÄÈËÄÇô¶à°ïÏÂæ°Ñ
°ïÏÂæ°É£¬ÎÒû·ÖÁË
ÆäËûÓï·¨¶¼²î²»¶à»òÖ±½Ó¿´µÃ¶®°É
&ÊÇ×Ö·û´®
Ïà¹ØÎÊ´ð£º
<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'×¢Òâ±äÁ¿ ......
ÎÒÓÐÒ»¸öaspÔ´Â룬µ«ÊdzöÏÖÒ»¸öÎļþ£¬ÎÒÓÃasp½âÃܶ¼ÊÇÂÒÂë
Çë½Ì
VBScript code:
??
%# , #&')*)-0-(0%()(?
(((((((((((((((((((((((((( ......
ÎÒÔ±¾ÊÇѧjspµÄ¿ÉÕÒÁËÒ»¸öASPµÄ¹«Ë¾£¡ÎÒÒªÖØÐÂѧϰ£¡ ѧϰASP£¡ Ï£Íû´ó¼ÒÍÆ¼öÒ»±¾ºÃÊ鏸ÎÒлл
<ASP3.0¸ß¼¶±à³Ì> ÍøÉÏÓеç×Ó°æµÄ
·¢ÏÖÍøÉÏaspÐÅϢʱ×î¶àµÄ ±ÈÆäËûµÄ¶¼¶àºÃ¶à
yun
ÕÒ±¾ÓÐÓ¦ÓÃÊÂÀýµÄA ......
½¨ÁËÒ»¸öÕ¾µã£¬ÀïÃæÓÐ login.aspx. events.aspx µÈµÈ ÆäËûµÄÒ³Ãæ¡£
µ«ÊÇÎÒµ÷ÊÔ ÆäËûÒ³ÃæµÄʱºò£¬±Ä³öÀ´µÄ×ÜÊÇ login.aspx Ò³Ãæ¡£
¸Õѧasp ÇëÖ¸½Ì
ÄãÉèÖÃÆðʼҳÁ˰ɡ£¡£
¶÷ÔõôȡÏûÄØ£¿
Òªµ ......
aspÏÂÃæ£¬µ±Òª¸ù¾Ý²»Í¬µÄȨÏÞÏÔʾһЩ¹¦Äܰ´Å¥µÄ»°»áд³É
<%
if ȨÏÞ=1 then
%>
<input type="submit" name="Submit" value="Ìá½»" />
<%
end i ......