公 司 留 言 簿 
  当前位置:首页 >> 留言板 >> 最新留言: 添加留言 管理      
留言者 admin 时 间 12/4/2015 1:19:17 AM
主页 邮箱 来自广东高州 515347638
内 容 有3个jsp页面(1.jsp, 2.jsp, 3.jsp)。

进系统默认的是1.jsp ,当我进入2.jsp的时候, 2.jsp里面用window.location.replace("3.jsp");与用window.location.href("3.jsp");从用户界面来看是没有什么区别的,但是当3.jsp页面有一个“返回”按钮,调用window.history.go(-1);wondow.history.back();方法的时候,一点这个返回按钮就要返回2.jsp页面的话,区别就出来了,当用window.location.replace("3.jsp");连到3.jsp页面的话,3.jsp页面中的调用window.history.go(-1);wondow.history.back();方法是不好用的,会返回到1.jsp
。当用window.location.href("3.jsp");连到3.jsp页面的话,3.jsp页面中的调用window.history.go(-1);wondow.history.back();方法是好用的,会返回2.jsp。因为window.location.replace("3.jsp");是不向服务器发送请求的跳转,而window.history.go(-1);wondow.history.back();方法是根据服务器记录的请求决定该跳到哪个页面的,所以会跳到系统默认页面1.jsp 。window.location.href("3.jsp");是向服务器发送请求的跳转,window.history.go(-1);wondow.history.back();方法是根据服务器记录的请求决定该跳到哪个页面的,所以就可以返回到2.jsp。
留言者 admin 时 间 12/4/2015 12:35:29 AM
主页 邮箱 来自广东高州 515347638
内 容 先前最常见的是注册之后,自动刷新登陆框,让登陆框换成已登陆页面,只要在注册成功的代码之后加上一段,即可以实现刷新另个框架的页面。代码如下:

Response.Write("<script language=javascript>alert('恭喜您,注册成功!')</script>");
Response.Write("<script language=javascript>window.parent.frameLeft.location.href='main.html'</script>");


跳转回原来页面并且传不同参数的实现:
Response.Write("<script>alert(!!');</script>");
string returnID = cmd.Parameters["@NewRecordID"].Value.ToString();
//added by leileiXU
if (Request.QueryString["unID"] != null)
{
//Response.Write("<script>window.close();</script>");
Response.Write("<script>window.opener.location.href=window.opener.location.href;</s5cript>");
Response.Write("<script>window.location.replace('a.aspx')</script>");
}


留言者 admin 时 间 12/4/2015 12:27:10 AM
主页 邮箱 来自广东高州 515347638
内 容 如果你要在服务器端跳转,可以这样建立一个asp文件:
<%
Response.Redirect("http://54qq.net/qq/")
Response.End
%>

如果你要在客户端跳转,可以这样:

<script language="javascript" type="text/javascript">
window.location="http://54qq.net/qq/";
</script>

如果你要让页面显示几秒钟之后跳转,可以在html代码的<head></head>或者<body></body>部分加上这样的代码:

<meta http-equiv="refresh" content="3; url=http://54qq.net/qq/">
欢迎您的访问,3秒钟后自动跳转到http://54qq.net/qq/

以上三种是也比较常见,比较常用的网页跳转代码,当然还有别的,大家可以自己收集。
第四种vbscript的跳转代码

<script language="VBScript">

location.href="http://54qq.net/qq/"

</script>
留言者 admin 时 间 12/4/2015 12:10:18 AM
主页 邮箱 来自广东高州 515347638
内 容 asp发送邮件代码(简单实用)

作者:shnxn 网站:凡人网络

<%
E_Server = "mail.1488.com" ''发件服务器
E_ServerUser = "joy@1488.com" ''登录用户名
E_ServerPass = "123456" ''登录密码
E_SendManMail = "joy@1488.com" ''发件人邮件地址
E_SendManName = "系统管理员" ''发件人姓名

Sub Jmail(Email,Topic,Mailbody)
On Error Resume Next
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent=true
JMail.Logging = True
JMail.Charset = "gb2312"
If Not(E_ServerUser = "" Or E_ServerPass = "") Then
JMail.MailServerUserName = E_ServerUser
JMail.MailServerPassword = E_ServerPass
End If
JMail.ContentType = "text/html"
JMail.Priority = 1
JMail.From = E_SendManMail
JMail.FromName = E_SendManName
JMail.AddRecipient Email
JMail.Subject = Topic
JMail.Body = Mailbody
JMail.Send (E_Server)
Set JMail = Nothing
SendMail = "OK"
If Err Then SendMail = "False"
End Sub

Sub Cdonts(Email,Topic,Mailbody)
On Error Resume Next
Dim ObjCDOMail
Set ObjCDOMail = Server.CreateObject("CDONTS.NewMail")
ObjCDOMail.From = E_SendManMail
ObjCDOMail.To = Email
ObjCDOMail.Subject = Topic
ObjCDOMail.BodyFormat = 0
ObjCDOMail.MailFormat = 0
ObjCDOMail.Body = Mailbody
ObjCDOMail.Send
Set ObjCDOMail = Nothing
SendMail = "OK"
If Err Then SendMail = "False"
End Sub

Sub Aspemail(Email,Topic,Mailbody)
On Error Resume Next
Dim Mailer
Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.Charset = "gb2312"
Mailer.IsHTML = True
Mailer.username = E_ServerUser
Mailer.password = E_ServerPass
Mailer.Priority = 1
Mailer.Host = E_Server
Mailer.Port = 25
Mailer.From = E_SendManMail
Mailer.FromName = E_SendManName
Mailer.AddAddress Email,Email
Mailer.Subject = Topic
Mailer.Body = Mailbody
Mailer.Send
SendMail = "OK"
If Err Then SendMail = "False"
End Sub
dim SendMail
Sub SendEmail(Mailto,Subject,HtmlCode,SendMode)
if SendMode="" then SendMode="Jmail"
if SendMode="Jmail" then
Jmail MailTo,Subject,HtmlCode
elseif SendMode="Cdonts" then
Cdonts MailTo,Subject,HtmlCode
elseif SendMode="Aspemail" then
Aspemail MailTo,Subject,HtmlCode
end if
End Sub
SendEmail "收件人hjc73@126.com","主题","正文","Jmail"
%>

需要修改的地方:
1.smtp服务器设置
2.最后一行分别修改为:收件人,主题,正文,发送组建
留言者 admin 时 间 12/4/2015 12:07:49 AM
主页 邮箱 来自广东高州 515347638
内 容 1、 安装

跟使用别个组件一样,在使用Jmail邮件组件之前要先安装或注册该组件Jmail.dll。具体注册方法,是先把Jmail.dll文件拷贝到硬盘的某一目录下(如C:\Jmail\Jmail.dll),然后执行命令Regsvr32 C:\Jmail\Jmail.dll即可。

2、 卸载

卸载组件是安装组件的相反动作,可以使用参数/U来卸载已安装的组件,执行命令Regsvr32 /U Jmail.dll即可。




用Jmail组件发送邮件

函数名:SendMail

作 用:用Jmail组件发送邮件

参 数:MailtoAddress ----收信人地址

MailtoName -----收信人姓名

Subject -----主题

MailBody -----信件内容

FromName -----发信人姓名

MailFrom -----发信人地址

Priority -----信件优先级'**************************************************

'函数名:SendMail

'作 用:用Jmail组件发送邮件

'参 数:MailtoAddress ----收信人地址

' MailtoName -----收信人姓名

' Subject -----主题

' MailBody -----信件内容

' FromName -----发信人姓名

' MailFrom -----发信人地址

' Priority -----信件优先级

'**************************************************

function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)

on error resume next

Dim JMail

Set JMail=Server.CreateObject("JMail.Message")

if err then

SendMail= "
<li>没有安装JMail组件</li>"

err.clear

exit function

end if

JMail.Charset="gb2312" '邮件编码

JMail.silent=true

JMail.ContentType = "text/html" '邮件正文格式

'JMail.ServerAddress=MailServer '用来发送邮件的SMTP服务器

'如果服务器需要SMTP身份验证则还需指定以下参数

JMail.MailServerUserName = MailServerUserName '登录用户名

JMail.MailServerPassWord = MailServerPassword '登录密码

JMail.MailDomain = MailDomain '域名(如果用"name@domain.com"这样的用户名登录时,请指明domain.com

JMail.AddRecipient MailtoAddress,MailtoName '收信人

JMail.Subject=Subject '主题

JMail.HMTLBody=MailBody '邮件正文(HTML格式)

JMail.Body=MailBody '邮件正文(纯文本格式)

JMail.FromName=FromName '发信人姓名

JMail.From = MailFrom '发信人Email

JMail.Priority=Priority '邮件等级,1为加急,3为普通,5为低级

JMail.Send(MailServer)

SendMail =JMail.ErrorMessage

JMail.Close

Set JMail=nothing

end function

如何使用Jmail组件发送邮件

JMail是目前功能最齐全、稳定及高效的邮件发送组件,我们的Windows系列空间服务器均装有些组件。以下为利用该组件进行邮件发送的示例:

例子一:

<%

Set msg = Server.CreateObject("JMail.Message")

msg.silent = true

msg.Logging = true

msg.Charset = "gb2312"

msg.MailServerUserName = "sales@abc.com" '此为您邮箱的登录帐号,使用时请更改为自己的邮箱登录帐号

msg.MailServerPassword = "56789" '此为您邮箱的登录密码,使用时请更改为自己的邮箱登录密码

msg.From = "sales@abc.com" '发件人Email

msg.FromName = "某某公司" '发件人姓名

msg.AddRecipient "tech@abc.com" '收件人Email

msg.Subject = "Jmail发送测试" '邮件主题

msg.Body = "这是由Jmail组件发送的邮件!" '邮件正文

msg.Send ("mail.abc.com") 'SMTP服务器地址

msg.close()

set msg = nothing

%>

例子二:

<%

name=request.form("name")

email=request.form("email")

note=request.form("note")

Set msg = Server.CreateObject("JMail.Message")

msg.silent = true

msg.Logging = true

msg.Charset = "gb2312"

msg.MailServerUserName = "sales@abc.com" '此为您邮箱的登录帐号,使用时请更改为自己的邮箱登录帐号

msg.MailServerPassword = "56789" '此为您邮箱的登录密码,使用时请更改为自己的邮箱登录密码

msg.From = email '发件人Email

msg.FromName = name '发件人姓名

msg.AddRecipient "tech@abc.com" '收件人Email

msg.Subject = "Jmail发送测试" '邮件主题

msg.Body = "这是由"&name&"订单的邮件,订单留言为"&not;e&"" '邮件正文

msg.Send ("mail.abc.com") ' SMTP服务器地址

msg.close()

set msg = nothing

%>

=============================================================

'一个调用 Jmail 过程:

sub Jmail(email)

Dim JMail

Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象

jmail.silent = true '屏蔽例外错误,返回FALSE跟TRUE两值j

jmail.logging = true '启用邮件日志

jmail.Charset = "GB2312" '邮件的文字编码为国标

jmail.ContentType = "text/html" '邮件的格式为HTML格式

jmail.AddRecipient email '邮件收件人的地址

jmail.From = "heyitang@heyitang.net" '发件人的E-MAIL地址

jmail.MailServerUserName = "admin" '登录邮件服务器所需的用户名

jmail.MailServerPassword = "pa¥¥word" '登录邮件服务器所需的密码

jmail.Subject = "您在向往神鹰论坛的发言有了回复" '邮件的标题

jmail.Body = mailbody '邮件的内容

'response.write mailbody

'jmail.Prority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值

jmail.Send("mail.heyitang.net") '执行邮件发送(通过邮件服务器地址)

if err then

'SendMail=err.description

'response.write err.description

err.clear

SendMail="OK"

else

SendMail="OK"

'response.write "ok"

end if

jmail.Close() '关闭对象

Set JMail = Nothing

end sub

'在发信的时候:

mailbody="一封测试信"

call jmail(heyitang@heyitang.net )

'群发类似:

mailbody="一封测试信"

'循环对所有用户发信

if rs("useremail")<>"" then

email=rs("useremail")

call jmail(email)

rs.movenext

loop

====================================

重要提示:

发现很多文章谈到Jmail,但是没有谈到Smtp验证。

很多Asp程序发的邮件被退回,就是因为Smtp验证的问题。

<%

Dim Jmail

Set Jmail=server.createobject("Jmail.Message")

Jmail.Charset = "gb2312"

Jmail.Silent = true

Jmail.Priority = 3

Jmail.MailServerUserName = "xyp@chinalabs.com" ' 这里换成您的SMTP验证帐号

Jmail.MailServerPassword = "********" ' 这里填写您的SMTP认证密码

Jmail.From = "xyp@chinalabs.com" ' 发信人邮件地址

Jmail.FromName = "发信人姓名" '

Jmail.Subject = "信件主题" '

Jmail.AddRecipient "abc@abc.com" ' 收信人地址

Jmail.Body = mailbody ' Mailbody参数是信件正文

Jmail.Send("xxx.xyz.com") ' 这里填写发件服务器,如mail.8sea.com,需要与SMTP验证信息对应

Set Jmail=nothing

%>
留言者 admin 时 间 12/4/2015 12:03:00 AM
主页 邮箱 来自广东高州 515347638
内 容 sendemail="gt23233@126.com"sendname="xxxxxx" '发送者sendobject="cxxx" '发送主题checkname="gtlyq79" '验证用户名checkpwd="001129" '验证密码stmp="smtp.126.com" 'stmp服务器on error resume nextDimJMail,contentIdSet JMail = Server.CreateObject("JMail.Message") JMail.Charset = "gb2312" ' 邮件字符集,默认为'US-ASCII''JMail.ISOEncodeHeaders = False ' 是否进行ISO编码,默认为True' 发送者信息(可用变量方式赋值)JMail.From = ""&sendemail&"" ' 发送者地址JMail.FromName = ""&sendname&"" ' 发送者姓名JMail.Subject = ""&sendobject&"" ' 邮件主题' 身份验证JMail.MailServerUserName = ""&checkname&"" ' 身份验证的用户名JMail.MailServerPassword = ""&checkpwd&"" ' 身份验证的密码' 设置优先级,范围从1到5,越大的优先级越高,3为普通JMail.Priority = 1JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")mail=""&email&"" '邮件的字符串,以逗号隔开arraymail=Split(mail,",") '分割For i = 0 To UBound(arraymail)JMail.AddRecipient(""&arraymail(i)&"")Response.Flush '这个东东可以将缓冲区中编译完成的数据先发送到客户端next' 加入一个收件人【变量email:收件人地址】可以同一语句重复加入多个'' JMail.AddRecipient(""&email&"")' 加入附件【变量filename:附件文件的绝对地址,确保用户IUSR_机器名有访问的权限】' 【参数设置是(True)否(False)为Inline方式】'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)' 邮件主体(HTML(注意信件内链接附件的方式))JMail.HTMLBody = ""&text&"" ' 邮件主体(文本部分)JMail.Body = "我们的邮件采用了HTML格式,但是您的邮件查看软件可能不支持。"' 发送【调用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】JMail.Send(""&stmp&"")' 关闭并清除对象JMail.Close()Set JMail = Nothingif err then SendMail=FalseTiShi=0 err.Clear else SendMail=TrueTiShi=1end ifend if
留言者 admin 时 间 12/4/2015 12:00:48 AM
主页 邮箱 来自广东高州 515347638
内 容 首先服务器上要安装发送邮件的组件,如JMAIL
然后编写代码

<%
Email = " test@163.com " ''收件人Email

Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = false '屏蔽例外错误,返回FALSE跟TRUE两值
jmail.logging = true '启用邮件日志
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentType = "text/html" '邮件的格式为HTML格式
jmail.AddRecipient Email '邮件收件人的地址
jmail.From = " test@163.com " '发件人的E-MAIL地址
jmail.MailServerUserName = " test@163.com " '登录邮件服务器所需的用户名
jmail.MailServerPassword = "test" '登录邮件服务器所需的密码
jmail.Subject = "Jmail邮件" '邮件的标题
jmail.Body = "Jmail邮件测试" '邮件的内容
jmail.Priority = 1 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
jmail.Send("mail.163.com") '执行邮件发送(通过邮件服务器地址)。请修改成你的邮件服务器SMTP地址
jmail.Close() '关闭对象

%>
留言者 admin 时 间 12/3/2015 11:58:41 PM
主页 邮箱 来自广东高州 515347638
内 容 <a href="yanzheng.asp?id=<%id%>">下载超链接 </a> 变量ID是需要下载内容的ID,要事先给ID赋值。以下是yanzheng.asp的内容:<%downloadid=Request.QueryString("id")if downloadid="" then respose.redirct("") '这里自己写要返回的页面endif if Session("login")<>"" then respose.redirct("") '这里自己写下载文件的链接。一般的做法是将下载文件链接写到数据库里,再读出来。elserespose.redirct("") '这里自己写要返回的页面endif
 留言总数:57 总页数:8 当前页次:5
页数: 第一页 上一页 下一页 最后一页
公司简介 在线客服 客服中心 意见反馈 相关法律 隐私条款 广告服务 友情链接     
       
Q链:515347638  电子邮箱:hanen@126.com 粤ICP备05086553