asp文档中心

<%
'发送邮件类
class SendEmails
'发送
private flag
private info
public sub Class_Initialize()
flag=false
info=""
end sub
public sub Class_Terminate()
flag=false
info=""
end sub
public property let SetFlag(byval v)
flag=v
end property

public property get GFlag()
GFlag=flag
end property

public property let SetMsg(byval m)
info=m
end property

public property get GMsg()
GMsg=info
end property
'得到邮箱服务器设置
private function getEmailset()
set f1=new DbConstrol
OpenConn()
f1.DConn=conn
set rs=f1.GetRs("select * from tbSetMail")
getEmailset=rs.getrows
rs.close
set rs=nothing
closeconn
set f1=nothing
end function

public function Sends()
call postFormfrom()
fromname=getFormStr("fromname")
fromaddre ......

<%
openconn()
sql="select * from tbnews"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
id=rs("id")
%>
<%
do while not rs.eof
%>
<%
Do_Url = "http://"
'Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/shownews.asp" 主目录
aa=Request.Servervariables("url") '虚拟目录
bb=InstrRev(aa,"/")
cc=left(aa,bb)
Do_Url = Do_Url&Request.ServerVariables("HTTP_HOST")&cc&"shownews.asp"
id=rs("id")
call SaveFile(""&id&".html",do_url&"?id="&id&"")
rs("n_path")=id&".html"
rs.update
%>
<%rs.movenext
loop
%>
<%
Response.Write("------共生成了"&rs.recordcount&"个文件------")
response.Write filepath
%>
<%
function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ......

99bill:
1.md5.asp
<%
'''''''''
' @Description: 快钱网关接口范例
' @Copyright (c) 上海快钱信息服务有限公司
' @version 2.0
'''''''''
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)

Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
LShift = &H80000000
Else
LShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
If (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
Else
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End If
End Function
Private Function RShift(lValue, i ......

<%
'
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET","http://127.0.0.1/1.xml",False
http.send
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = False
'xml.load (Server.MapPath("1.xml"))　'如果不是远程文件直接这一步
xml.Load(http.ResponseXML)
Dim title, heading, paragraph, ii
title = xml.documentElement.childNodes(0).text　
heading = xml.documentElement.childNodes(1).text
paragraph = xml.documentElement.childNodes(1).childNodes(1).childNodes(0).text
ii = xml.documentElement.childNodes(1).childNodes.length
dim i
for i=0 to ii-1
response.Write(i)
response.Write(xml.documentElement.childNodes(1).childNodes(i).childNodes(1).text)
response.Write("<br />")
next
Set xml = Nothing
%>

......

以mysql5.1为例
先下载mysql-connector-odbc并安装
1、直接连接
conn.asp
<%
strconnection="driver={mysql odbc 5.1 driver};database=test1;server=localhost;uid=root;password=root"
set conn = server.createobject("adodb.connection")
conn.open strconnection
%>
2、DSN连接
需要先在数据源 (ODBC)里的“系统DSN”中添加DSN“AAa”，在“用户DSN”中添加不一定能连接上！
<%
strConnection = "dsn=AAa;"
set conn = server.createobject("adodb.connection")
conn.open strconnection
%> ......

本文将为大家简单比较ASP.NET 3.5与ASP.NET 4.0之间主要差别，希望能对大家了解ASP.NET新特性有所帮助。
ASP.NET 3.5中下列特性是之前的版本中没有的：
　　·Ajax集成
　　·LINQ
　　·自动属性
　　·Lambda表达式
　　同样，我希望每个人都弄清楚ASP.NET 3.5和它的下一个版本ASP.NET 4.0之间的差别，我先列出一部分内容，后面我将慢慢整理。
　　客户端数据访问
　　ASP.NET 3.5：在客户端无法直接访问数据，但是有下面的变通方法。
　　脚本管理器页面方法(Pagemethods)
　　ICallbackEventHandler接口
　　XMLHttphanlder组件
　　ASP.NET 4.0：在这个版本中内置了这个功能，以下是执行它们的方法。
　　·客户端数据控制
　　·客户端模板
　　·客户端数据上下文
　　这意味着我们从客户端通过客户端数据视图或数据上下文对象访问数据。
　　设置Meta关键字和Meta描述
　　Meta关键字及其描述对于搜索引擎优化非常有用。
　　ASP.NET 3.5：这个属性有两个值“True”和“False”
　　ASP.NET 4.0：ViewStateMode属性采用了枚举量，有三个值“Enabled”，“Disable ......

asp Jmail发邮件类

asp to html

asp一些支付接口

asp读取XML文件

asp读取XML文件

asp连接mysql

浅析ASP.NET 3.5与ASP.NET 4.0主要差别：

浅析ASP.NET 3.5与ASP.NET 4.0主要差别：