层叠样式表(英文全称:Cascading Style Sheets)是一种用来表现HTML(标准通用标记语言的一个应用)或XML(标准通用标记语言的一个子集)等文件样式的计算机语言。
CSS目前最新版本为CSS3,是能够真正做到网页表现与内容分离的一种样式设计语言。相对于传统HTML的表现而言,CSS能够对网页中的对象的位置排版进行像素级的精确控制,支持几乎所有的字体字号样式,拥有对网页对象和模型样式编辑的能力,并能够进行初步交互设计,是目前基于文本展示最优秀的表现设计语言。CSS能够根据不同使用者的理解能力,简化或者优化写法,针对各类人群,有较强的易读性。
注:单独使用CSS是无法实现QQ邮箱登录实例(CSS为样式代码)。
实例可以使用iframe代码实现QQ邮箱登录实例。
代码如下:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html charset=utf-8" />
<title>qq邮箱登录实例</title>
</head>
<body>
<p align="center" style="margin-top:0pxmargin-left:0">
<iframe width="1000" height="500" src="https://mail.qq.com" class="t-iframe" scrolling="no" frameborder="no" border="0" marginwidth="0" marginheight="0" scrolling="no"></iframe>
</p>
</body>
</html>
代码解释:
url是你要调用的网址,<p align="center" style="margin-top: -109margin-left: -109">是网页布局、其中margin-top: 0表示顶部缩进,margin-left: 0表示左边缩进。至于右边和底部缩进,很简单,修改<iframe>的宽度和高度就可以了。
dim CLStr,msg,mailserver,username,password,receive,sender,sendermailCLStr=Chr(13)&Chr(10)
mailserver="XXXXX" '邮局服务器地址(smtp服务器地址)
username="XXXXX" 'smtp服务器验证登陆名(邮局中开设的任何一个信箱的地址)
password="XXXXX" 'smtp服务器验证密码 (信箱密码)
receive="XXXXX" '接受反馈信息的email地址(可以是您的任何有效信箱)
sender="XXXXX" '发信人名字
sendermail="XXXXX" '发信任邮箱
Set msg=Server.CreateObject("JMail.Message")
msg.silent=true
msg.Logging=true
msg.Charset="gb2312"
msg.ContentType="text/html"
msg.MailServerUserName=username
msg.MailServerPassword=password
msg.From=sendermail
msg.FromName=sender
msg.AddRecipient receive
msg.Subject=name&":"&title
msg.Body="以下是你的注册信息<br><br>"&CLStr&CLStr
msg.Body=msg.Body&"注册名:"&name&CLStr '可以通过表单获得,如定义一个name=request.form("name")
msg.Body=msg.Body&"<br><br>密码:"&pass&CLStr '可以通过表单获得,如定义一个pass=request.form("pass")
msg.Send(mailserver)
msg.close
set msg=nothing
'连接数据库写入注册信息
Set rs= Server.CreateObject("ADODB.Recordset")
........
人家要ASP的源代码,楼上的给.NET的。呵呵。你这个啊,下载一个免费的JMAIL,按照要求安装上。
JMAIL就是常用的发送EMAIL的组件。
然后网上关于JMAIL如何发送邮件的有的是,自己找找。
给你一段我的参考代码,自己研究研究。要是找人一点不差的做出来给你,没人能回答你的。
'JMAIL发送邮件
Call SendMail()
Sub SendMail()
On Error Resume Next
Set JMail=Server.CreateObject("JMail.Message") '创建对象
If Err Then
Err.Clear
Response.Write "邮件发送组件检测失败。"
JMail.Close()
Set JMail = Nothing
Exit Sub
End If
JMail.Charset = "gb2312" '邮件字符集(简体中文)
JMail.ContentType = "text/html" '邮件编码
JMail.ReturnReceipt = True '是否收条
JMail.silent = True '忽略错误
'发送者信息
JMail.From = "xxx@xxx.com" ' 发送者地址
JMail.FromName = "王先生" ' 发送者姓名
'身份验证
JMail.MailServerUserName = "xxxxx" ' 身份验证的用户名
JMail.MailServerPassword = "*****" ' 身份验证的密码
' 邮件的紧急程序,1为最快,5为最慢,3 为默认值
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
'接收者信息
JMail.AddRecipient("xx@xx.com") '加入一个收件人
JMail.Subject = "通行证激活邮件" ' 邮件主题
'邮件主体(html格式)
MailBody = ""
MailBody = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
MailBody = MailBody &"<html>"
MailBody = MailBody &"<head>"
MailBody = MailBody &"<meta http-equiv=""Content-Type"" content=""text/htmlcharset=gb2312"">"
MailBody = MailBody &"<style>"
MailBody = MailBody &"body,tr,td {font-family:Arial, Helvetica, sans-seriffont-size:14pxcolor:#3b3b3bline-height:21px}"
MailBody = MailBody &"a:link,a:visited {font-size:14pxcolor:#0000FFfont-family:Arial, Helvetica, sans-seriftext-decoration:underline}"
MailBody = MailBody &"a:hover {font-size:14pxcolor:#C80700font-family:Arial, Helvetica, sans-seriftext-decoration:none}"
MailBody = MailBody &"</style>"
MailBody = MailBody &"</head>"
MailBody = MailBody &"<body bgcolor=""#F9F9F9"" leftmargin=""0"" topmargin=""4"" marginwidth=""0"" marginheight=""0"">"
MailBody = MailBody &"<table width=""560"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"">"
MailBody = MailBody &"<tr>"
MailBody = MailBody &"<td colspan=""2"">尊敬的xxx用户:<br>您好!</td>"
MailBody = MailBody &"</tr>"
MailBody = MailBody &"<tr>"
MailBody = MailBody &"<td width=""40""> </td>"
MailBody = MailBody &"<td>正文内容</td>"
MailBody = MailBody &"</tr>"
MailBody = MailBody &"</table>"
MailBody = MailBody &"</body>"
MailBody = MailBody &"</html>"
JMail.HTMLBody = MailBody
' 发送【调用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send("smtp.exmail.qq.com") '发送邮箱的SMTP
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
End Sub