AG广东会,山东十一选五,大发

%
Public Function Bytes2BSTR(v)
	Dim r,i,t,n : r = ""
	For i = 1 To LenB(v)
		t = AscB(MidB(v,i,1))
		If t  H80 Then
			r = r  Chr(t)
		Else
			n = AscB(MidB(v,i+1,1))
			r = r  Chr(CLng(t) * H100 + CInt(n))
			i = i + 1
		End If
	Next
	Bytes2BSTR = r
End Function
'==========================================================================================
	If Request.QueryString="ViewSource" Then
		Dim oFso : Set oFso=Server.CreateObject("Scripting.FileSystemObject")
		Dim oFil : Set oFil=oFso.OpenTextFile(Server.MapPath("URL.Asp"))
		Dim sTxt : sTxt=oFil.ReadAll()
		oFil.Close : Set oFil=Nothing : Set oFso=Nothing
		Response.ContentType="text/plain"
		Response.Write sTxt
		Response.ENd
	End If
%>?xml version="1.0" encoding="gb2312" standalone="yes"?>
!doctype html public "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
html xmlns:v="http://www.eglic.com/">
	head>
		title>/title>
		meta name="Generator" content="EditPlus" />
		meta name="Author" content="eglic" />
		meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
		meta name="CharSet" content="GB2312" />
		link rel="stylesheet" type="text/css" href="/styles/default.css" />
		style type="text/css">
			@media all{
				
			}
		/style>
		script language="javascript" src="/scripts/default.js">/script>
		script language="javascript" src="/scripts/xml.js">/script>
		script language="javascript">//!--
			
		//-->/script>
	/head>
	body>
		form action="" method="POST">
			要检测的URL：input type="text" name="URL" size="50" value="%
				If Request.Form("URL")>"" THen
					Response.Write Trim(Request.Form("URL"))
				Else
					Response.Write "http://www.crsky.com/view_down.asp?downd_id=8downd=0ID=20780down=yes"
				End If
			%>" />
			input type="submit" value="提交" />
			input type="button" value="查看源代码" >/script>
	/body>
/html>