利用css实现qq邮箱登录案例

html-css021

利用css实现qq邮箱登录案例,第1张

CSS(层叠样式表)

层叠样式表(英文全称: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,sendermail

CLStr=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