这是VB吗？C#问题

Wude_S 2010-10-26 11:36:12

这是什么语言？是VB吗？能详细解释下吗？最好整成C#



<%

url=request("url")

body=xmlHttp("http://www.flvxz.com/getFlv.php?url="&url&"", "utf-8") 

Body = Replace(Body,"<a href='http://www.flvxz.com/guestbook/'>报告该错误</a>","")

response.write Body



Function xmlHttp(sUrl, sCharSet) 

On Error Resume Next 

Dim xml: set xml = Server.CreateObject("Microsoft.XMLHTTP") 

xml.Open "GET", sUrl, False 

xml.setRequestHeader "Content-Type", "text/html;charset=" & sCharSet 

xml.Send() 

If Err.Number <> 0 Then 

xmlHttp = "" 

Exit Function 

End If 

If xml.readyState = 4 Then 

xmlHttp = BytesToBstr(xml.responseBody, sCharSet) 

End If 

End Function 



Function BytesToBstr(cnvUni, sCharSet) 

On Error Resume Next 

Dim objStream: set objStream = Server.CreateObject("adodb.stream") 

With objStream 

.Type = 1 

.Mode = 3 

.Open 

.Write cnvUni 

.Position = 0 

.Type = 2 

.Charset = sCharSet 

BytesToBstr = .ReadText 

.Close 

End With 

End Function

%>

...全文

231 19 打赏收藏转发到动态举报

写回复

用AI写文章

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

Wude_S 2010-10-26

打赏
举报

我是楼主，那把它写在VBScript中（后缀名vbs），C#WinForm中能引用吗？

chen_ya_ping 2010-10-26

打赏
举报

vbscript

zjx198934 2010-10-26

打赏
举报

AJAX！的VB脚本实现！

Wude_S 2010-10-26

打赏
举报

能说说这两个函数，是什么功能吗？详细些，拜托

damjmk2 2010-10-26

打赏
举报

是的asp中的 vb脚本

Wude_S 2010-10-26

打赏
举报

补充，文件名字是getFlv.asp

Wude_S 2010-10-26

打赏
举报

[Quote=引用 17 楼 qianhe_he 的回复:]
是asp中的vbscript
[/Quote]
那它可以被改成C#的吗？或者它能被C#引用吗？

qianhe_he 2010-10-26

打赏
举报

是asp中的vbscript

isCrazy 2010-10-26

打赏
举报

这不能算是AJAX。AJAX脚本是运行在客户端的，楼主的代码是运行在服务器端的。
ASP是脚本驱动的解释类语言。属于上一代的产品，和.NET没有直接关系。

在ASP.NET中，类似的做法是服务端的代码调用WebService或者WCF服务。

从代码逻辑来看，楼主的代码似乎完全没有必要放在服务器端，除非是想隐藏真实的服务（http://www.flvxz.com/getFlv.php），仅做做服务代理。

Wude_S 2010-10-26