虚拟主机技术的十七个经典问答

set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb") //customer.mdb是您的数据库名，您可以在前面加上路径
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SQL="select * from auth where id='" & user_id &"'"
SET uplist=dbconnection.EXECUTE(SQL)

set dbconnection=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id='" & user_id &"'"
SET uplist=dbconnection.EXECUTE(SQL)

DBPath = Server.MapPath("customer.mdb")
set session("rs")=Server.CreateObject("ADODB.Recordset")
' rs=Server.CreateObject("ADODB.Recordset")
connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id='" & user_id &"'"
session("rs").Open sql,connstr,1,3

建odbc源xxx （该项在本站仅适用于MSSQL）
set conn=server.createobject("Adodb.connection")
conn.open "DSN=xxx;UID=;PWD=;Database=customer 
11、如何使用Jmail发送邮件？
<％
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "..." 输入smtp服务器验证登陆名
msg.MailServerPassword = "..." 输入smtp服务器验证密码
msg.From = "...@..." 发件人
msg.FromName = FromName
msg.AddRecipient "...@...","...@..." 收件人
msg.Subject = "test" 主题
msg.Body = "this is body!" 正文
msg.Send ("smtp Server Name") smtp服务器地址
set msg = nothing
％>