down.asp

来自「俄罗斯方块源码 俄罗斯方块源码 俄罗斯方块源码」· ASP 代码 · 共 46 行

ASP
46 行
字号 
<%
server.ScriptTimeout=200000
Function bytes2BSTR(vIn) 
strReturn = "" 
For i = 1 To LenB(vIn) 
ThisCharCode = AscB(MidB(vIn,i,1)) 
If ThisCharCode < &H80 Then 
strReturn = strReturn & Chr(ThisCharCode) 
Else 
NextCharCode = AscB(MidB(vIn,i+1,1)) 
strReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
i = i + 1 
End If 
Next 
bytes2BSTR = strReturn 
End Function 
%>
<!--#include file="flashdown.asp"-->
style.xsl：
<xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl">
    <xsl:template match="/">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
  Dim objXMLHTTP, xml
  Set xml = Server.CreateObject("Microsoft.XMLHTTP")
  
  xml.Open "GET", "http://www.flash8.net/flash/search.aspx?search=&type=1&pagesize=10", False
  ' Pull the data from the web page
  xml.Send

  newbody=bytes2BSTR(xml.responseBody)
  'newbody=xml.responseBody

  response.write newbody
  
%>

</body>
</html>

down.asp - 源码说明

本页面展示了「俄罗斯方块源码 俄罗斯方块源码 俄罗斯方块源码」中的 down.asp 源码文件，采用 ASP 编程语言编写，共 46 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与俄罗斯方块相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?