公 司 留 言 簿 
  当前位置:首页 >> 留言板 >> 最新留言: 添加留言 管理      
留言者 admin 时 间 12/16/2015 5:49:17 PM
主页 邮箱 来自广东高州 515347638
内 容 Math.ceil() 、Math.floor() 、Math.round() 三个函数的理解
以前一直会三个函数的使用产生混淆,现在通过对三个函数的原型定义的理解,其实很容易记住三个函数。

现在做一个总结:

1. Math.ceil()用作向上取整。

2. Math.floor()用作向下取整。

3. Math.round() 我们数学中常用到的四舍五入取整。
留言者 admin 时 间 12/7/2015 11:51:05 PM
主页 邮箱 来自广东高州 515347638
内 容 1.使用数据库,我就会PHP+MySQL
2.不使用数据库,那么就是PHP+TXT
3.后台都不用,直接使用ActionScript的SharedObject;但是这么做,并不能做到真正意义上的网页计数,只能保存当前用户浏览该flash的计数
方法一:
/* MySQL Code */
CREATE TABLE `counter` (
`count` INT( 20 ) DEFAULT ''''0'''' NOT NULL
);
/* PHP Code */
<?php
$db=mysql_connect("localhost","root");
mysql_select_db("hbbspace");
// 取数
$result=mysql_query("SELECT * FROM counter WHERE 1",$db);
$myrow=mysql_fetch_row($result);
$count = $myrow[0];
// 加 1
$count++;
echo "count=$count"; // 列印
// 更新
$sql="UPDATE counter SET count=''''$count'''' WHERE 1";
$result=mysql_query($sql);
?>
/* Flash Code */
loadDate = function (success) {
if (success) {
var counters = counter_vars.count;
count_txt.htmlText = "你是第<font color=''''#FF0000''''>"+counters+"</font>个访问该swf的人";
}
};
var counter_vars:LoadVars = new LoadVars();
counter_vars.onLoad = loadDate;
counter_vars.load("http://localhost/counter2.php");
this.createTextField("count_txt", 1, 150, 100, 200, 100);
count_txt.html = true;方法二:/* PHP Code */
<?php
/* 将计数器归零
这样如果计数器还未被使用,初始值将是1
你当然也可以把初始值设成20000来骗人咯
*/
$count=0;
// 如果存放计数器文件已经存在,读取其中的内容
if ( file_exists($counter_file) )
{
$fp=fopen($counter_file,"r");
// 我们只取了前20位,希望你的站点不要太受欢迎啊
$count=0+fgets($fp,20);
// 由于函数fgets()返回字符串,我们可以通过加0的方法将其自动转换为整数
fclose($fp);
// 对文件操作完毕
}
// 增加一次计数值
$count++;
// 将新的计数值写入文件
$fp=fopen($counter_file,"w");
fputs($fp,$count);
fclose($fp);
# 返回计数值
echo "count=$count
";
?>
/* Flash Code */
loadDate = function (success) {
if (success) {
var counters = counter_vars.count;
trace(counters);
count_txt.htmlText = "你是第<font color=''''#FF0000''''&
flash版的计数器-制作方法第2部分:
gt;"+counters+"</font>个访问该swf的人";
}
};
var counter_vars:LoadVars = new LoadVars();
counter_vars.onLoad = loadDate;
counter_vars.sendAndLoad("http://localhost/counter.php?counter_file=counter.txt",counter_vars,"post");
this.createTextField("count_txt", 1, 150, 100, 200, 100);
count_txt.html = true;方法三:var myLSO = SharedObject.getLocal("foo");
if (myLSO.data.counter == undefined) {
var myCounter = {};
myCounter.count = 1;
myLSO.data.counter = myCounter;
counters = myLSO.data.counter.count;
} else {
myLSO.data.counter.count++;
counters = myLSO.data.counter.count;
}
this.createTextField("count_txt", 1, 150, 100, 200, 100);
count_txt.html = true;
count_txt.htmlText = "你是第<font color=''''#FF0000''''>"+counters+"</font>个访问该swf的人";
留言者 admin 时 间 12/4/2015 3:36:52 AM
主页 邮箱 来自广东高州 515347638
内 容 跳转到前一页的方法(哪里来的回到哪里去)

方案一:javascript方案:(此方案若用在服务端控件上不能实现跳转,因为服务端控件在跳转前会回发一次,就改变了document.referrer的值)

<img ID="imgCancel" alt="" src="images/login_07.gif" onclick="GoPre()" />




在图片按钮上加上一个js方法GoPre()

js代码:


<script type="text/javascript">
function GoPre() {
window.location.href = document.referrer; //使用document.referrer
}


</script>




方案二:asp.net后台处理方案:(我这里使用imageButton控件)

<asp:ImageButton ID="imgBtnCancel" runat="server" ImageUrl="images/login_07.gif" OnClick="imgBtnCancel_Click"/>

步骤一:在 Page_Load方法中获取Request.UrlReferrer,并保存在viewState里面
if (Request.UrlReferrer != null)
{
ViewState["urlPre"] = Request.UrlReferrer;
}


步骤二:设置按钮的点击事件OnClick

protected void imgBtnCancel_Click(object sender, ImageClickEventArgs e)
{
Response.Redirect(ViewState["urlPre"].ToString());
}




小结:以上两种都可实现跳转回前一页的功能,为了减轻服务端压力,一般优先使用客户端跳转,即js解决方案。
留言者 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

%>
 留言总数:36 总页数:5 当前页次:2
页数: 第一页 上一页 下一页 最后一页
公司简介 在线客服 客服中心 意见反馈 相关法律 隐私条款 广告服务 友情链接     
       
Q链:515347638  电子邮箱:hanen@126.com 粤ICP备05086553