在访问ASP网站页面时调用另一个网站页面内容
如果在一个网站的页面中想调用其他网站页面内容，直接用一下代码就ok，http://www.wanyusoft.com/index.asp 这个路径就是所要调用的页面路径。
<%
response.write(getHTTPPage("http://www.wanyusoft.com/index.asp"))
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim wanyusoft_strReturn
dim i,ThisCharCode,NextCharCode
wanyusoft_strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
wanyusoft_strReturn = wanyusoft_strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
wanyusoft_strReturn = wanyusoft_strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = wanyusoft_strReturn
End Function
%>
相关文档：
此文只是入门，演示了如何用实体类存储数据，无实际意义。后面有陆续更新优化。（以后的文章中将陆续实现无需声明具体类自动存储数据，和简单的性能优化）
在asp程序开发过程中，结构数据的存储一直是个问题，asp的数组一直很弱，而且不能自解释， ......
实现了简单的数据库连接，得到记录集，得到二维数组，执行某个语句，其实这个类可以继续扩充，比如先读取变量，得到执行次数，简单分页等等。。，篇幅有限，自己扩充
'----------------------------------------------
'数据库操作
'----------------------------------------------
'简化的数据类
Class dbconn
pub ......
第一种：
'使用数据库连接对象查询数据集对象，用 set变量接收。
set rset1 = conn.execute("select * from productType where id="&request("id"))
'表示只能取出结果集里面的值，但是不能取到总的条数之类的。。。
set rset2 = conn.execute("select top 8 * from productType ......
首先申明：这个是我转载的，致力于为像我一样的新手提供帮助！
1、IIS下301设置 Internet信息服务管理器 -> 虚拟目录 -> 重定向到URL，输入需要转向的目标URL，并选择“资源的永久重定向”。
2、ASP下的301转向代码
<%@ Language=VBScript %>
<%
Response.Status=”301 Moved Permanent ......
<%
set conn= server.createobject("ADODB.connection")
conn.open "driver={sybase driver 10};"
"srvr=SYBASE;"
"UID=sa;"
"pwd=sybase;"
sql="select no from tab_st ......
