ASP中使用XMLHTTP或ServerXMLHTTP读取远程数据
照例使用xmlhttp同步方式获取数据,可是由于网络不稳定,经常造成'死锁'状况,既send之后一直不返回服务器结果,也不出错.
被这个问题折磨了好久,最后才查到还有ServerxmlHTTP这个对象,看了介绍才知道它才是天生为了服务器端获取其他网站信息设计的.利用他的超时机制，问题轻松解决:D
参考：
http://support.microsoft.com/kb/290761/zh-cn
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/html/97884cf6-5fdf-4b1f-8273-73c0e098b8f3.asp
下面付简单封装了ServerxmlHTTP的简单类,共参考:
<%
'使用范例
'读取URL 的HTML
dim myHttp
set myHttp=new xhttp
myHttp.URL="http://www.baidu.com"
Response.Write(myHttp.html)
'保存远程图片到本地
myHttp.URL="http://www.baidu.com/img/logo.gif"
myHttp.saveimage="myfile.gif"
'为防止xhttp卡死的情况，使用超时，错误处理
dim sHtmlcode,iStep
myHttp.URL="http://www.acnow.net"
sHtmlcode=myHttp.html
do while myHttp.xhttpError=""
Response.Error("ERROR: AGAIN!
")
sHtmlcode=myHttp.html
iStep=iStep+1
if iStep>100 then
Response.Write("ERROR:OVER!
")
exit do
end if
loop
Response.Write(sHtmlcode)
set myHttp=nothing
'--------------------------------------------------------------------
Class xhttp
private cset,sUrl,sError
Private Sub Class_Initialize()
'cset="UTF-8"
cset="GB2312"
sError=""
end sub
Private Sub Class_Terminate()
End Sub
Public Property LET URL(theurl)
sUrl=theurl
end property
public property GET BasePath()
BasePath=mid(sUrl,1,InStrRev(sUrl,"/")-1)
end property
public property GET FileName()
FileName=mid(sUrl,InStrRev(sUrl,"/")+1)
end property
public property GET Html()
Html=BytesToBstr(getBody(sUrl))
end property
public property GET xhttpError()
xhttpError=sError
end property
private Function BytesToBstr(body)
on error resume next
'Cset:GB2312 UTF-8
dim objstream
set objstream = Server.CreateObject("adodb.stream")
with objstream
.Type = 1 '
.Mode = 3 '
.Open
.Write body '
.Position =
相关文档：
摘自：http://shawangkun.woku.com/article/2723424.html
最简单的用以下语句:
ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
但这种方法对代理服务器上网的就不准了,故比较全面的是用下面的方法:
<%Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_F ......
ASP连接数据库的11种方法——本文总结了使用ASP链接各种数据库的方法：
1.Access数据库的DSN-less连接方法:
set adocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
Server.MapPath("数据库所在路径")
2.Access OLE DB连接方法� ......
1，在web服务器上安装Oracle数据库客户端，这是连接Oracle数据库的基础（但，不一定是必须的）。
2，在客户端的Net Manager 中进行配置服务的名称，配置如图（这一点非常的重要以后的链接全都在这个服务名称的基础上进行的）
3，ASP链接服务的链接字符串和方法如下：
<%
connstr= "Provider=MSDAORA.1;Password=***; ......
编写过程
过程是一组能执行指定任务且具有返回值的脚本命令。您可以定义自己的过程，然后在脚本中反复调用它们。
您可以将过程定义放在调用过程的 .asp 文件中，也可以将通用过程放在一个共享的 .asp 文件中，然后用 SSI #include 指令将其包含进其他调用其过程的 .asp 文件中。您还可选择另一种方法，即把这些功能打包 ......
使用ASP发送飞信的免费短信
要实现在asp网站上发送飞信，要求是中国移动的手机用户，并且开通移动飞信功能。
使用以下asp代码，修改参数为你的手机号及飞信密码，就可以实现在网站发免费短信功能。
fsend.asp文件源代码如下：
< ......
