几个Asp小片断。

几个Asp小片断。

Asp 遍历Session Application：

for each unit in Application.Contents
Response.Write unit&" "
next
for each unit in session.Contents
Response.Write unit&" "
next

asp 遍历未知字段数表全部字段：

if(request("conn")=="") then
MM_conn_STRING = "driver={SQL Server};server=127.0.0.1; uid=sa;pwd=xnqc@rongw147*%@;database=master"
else
MM_conn_STRING =request("conn")
end if

public conn
set conn=server.CreateObject("ADODB.Connection")
conn.open MM_conn_STRING

if request("e")<>"" then
 conn.execute(request("sql"))
end if
if request("r")<>"" then
 Set rsnews = Server.CreateObject("ADODB.Recordset")
 rsnews.ActiveConnection = MM_conn_STRING
 rsnews.Source = "SELECT * FROM qclt.dbo.link ORDER BY bh"
 rsnews.CursorType = 0
 rsnews.CursorLocation = 2
 rsnews.LockType = 1
 rsnews.Open()
 while not rsnews.eof
 for i=0 to rs.Fields.Count-1
 response.Write rsnews.Fields(i).name&":"&rsnews.Fields(i).value&" "
 next
 rsnews.movenext
 wend
end if

asp 发送邮件 mail：

<%
Dim StrHtml = "<html><head>"
StrHtml = StrHtml &"<Title>Greeting</Title></head>"
StrHtml = StrHtml &"<body>"
StrHtml = StrHtml &"How are you"
StrHtml = StrHtml &"<img src="Sample.jpg">"
StrHtml = StrHtml &"</body>"

Set ObjSendMail=CreateObject("CDONTS.NewMail")

With ObjSendMail

.From = "me@domain.com"
.To = "receiver@domain.com"
' 設定傳送郵件格式為HTML
.BodyFormat = CdoBodyFormatHtml
' 設定超連結基底
.ContentBase = "http://ww.anywhere.com"
' 設定郵件內容中所有URL的絕對會相對位址
.ContentLocation = "images/"
.Subject = "Give you a Picture"
.Body = StrHtml
.Send

EndWith

'移除物件
Set ObjSendMail=Nothing
%>

Asp 发送和接收数据：

var oXMLHTTP = new ActiveXObject("Microsoft.XMLHTTP");
oXMLHTTP.open("POST", "xml_handler.asp", false);
oXMLHTTP.send(xml_to_send);

由于Request对象会实现IStream接口，所以你可以通过使用DOMDocument对象的load()方法来加载所要提交的XML：

Dim oDOM
Set oDOM = Server.CreateObject("MSXML2.DOMDocument")
oDOM.load Request

asp 利用adodbstream隐藏文件地址实现下载：

<%
function saveFile(recfilen)
 set Astream=CreateObject("Adodb.Stream")'asp Server.CreateObject("Adodb.Stream")
 Astream.type=1
 Astream.Mode = 3' adModeRead　=1
 '　　adModeReadWrite =3
 '　　adModeRecursive =4194304
 '　　adModeShareDenyNone =16
 '　　adModeShareDenyRead =4
 '　　adModeShareDenyWrite =8
 '　　adModeShareExclusive =12
 '　　adModeUnknown　=0
 '　　adModeWrite　=2

 Astream.open
 'Astream.CharSet = "GB2312"
 Astream.LoadFromFile(recfilen) '装载文件
 Assp=Astream.size
 Astream.Position =0 '装载文件时设置为Assp
 'Astream.Writetext tmpstr00,1
 saveFile=Astream.read(Assp)
end function
fn="121.mp3"
data=saveFile(server.mappath(fn))
Response.AddHeader "Content-Disposition", "attachment; filename=" &fn
Response.AddHeader "Content-Length", len(data)
Response.ContentType = "application/octet-stream"
Response.BinaryWrite Data
%>
相关阅读:
（数据挖掘-入门-6）十折交叉验证和K近邻
 （数据挖掘-入门-5）基于内容的协同过滤与分类
 （数据挖掘-入门-4）基于物品的协同过滤
 （数据挖掘-入门-3）基于用户的协同过滤之k近邻
 （数据挖掘-入门-2）相似度衡量的方法
 （数据挖掘-入门-1）基于用户的协同过滤之最近邻
 SDL播放声音
 清空目录
 yuv转bmp
ffmpeg解码视频流
原文地址：https://www.cnblogs.com/lein317/p/5067672.html