后台批量添加一、二级分类的修改
作者:cmscn 日期:2005-09-09
提升权限
作者:cmscn 日期:2005-09-08
禁止修改
作者:cmscn 日期:2005-09-08
核心管理
作者:cmscn 日期:2005-09-08
去掉管理验证码
作者:cmscn 日期:2005-09-08
注册邮件发送
作者:cmscn 日期:2005-09-07
<%
'****************************************************
' Joekoe CMS 1.2 Free Power by Joekoe.com
' Email: cms@joekoe.com , service@joekoe.com
' Web: http://www.joekoe.com , http://www.topv.com
' Copyright (C) 2004 Joekoe.com All Rights Reserved.
'****************************************************
function send_mail(s_username,s_email,s_topic,s_body)
dim temp1
temp1=s_username&",你好!" & _
vbcrlf& _
vbcrlf& s_body & _
vbcrlf& _
vbcrlf&"--------------------------------------------------------" & _
vbcrlf&"更多精彩信息请访问:" & _
vbcrlf& _
vbcrlf& web_dim(1) & _
vbcrlf& web_dim(2) & _
vbcrlf& _
vbcrlf&"欢迎您的光临!" & _
vbcrlf&"--------------------------------------------------------" & _
vbcrlf&"注:本邮件为系统邮件!" & _
vbcrlf&"邮件发送时间:"&joekoe_cms.time_type(joekoe_cms.now_time,2)
send_mail=send_jmail(s_email,"系统邮件:"&s_topic&"(asp126.com)",temp1,"无双网络用户注册信息","nhl3000@126.com")
end function
function send_jmail(j_sendname,j_Subject,j_HTMLBody,j_name,j_email)
on error resume next
dim Jmail
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset="gb2312"
Jmail.Priority=2 '优先级
Jmail.MailServerUserName="nhl3000" '这里换成您的SMTP验证帐号
Jmail.MailServerPassword="********" '这里填写您的SMTP认证密码
Jmail.From=j_email '发信人邮件地址
Jmail.FromName=j_name '发信人姓名
Jmail.Subject=j...
'****************************************************
' Joekoe CMS 1.2 Free Power by Joekoe.com
' Email: cms@joekoe.com , service@joekoe.com
' Web: http://www.joekoe.com , http://www.topv.com
' Copyright (C) 2004 Joekoe.com All Rights Reserved.
'****************************************************
function send_mail(s_username,s_email,s_topic,s_body)
dim temp1
temp1=s_username&",你好!" & _
vbcrlf& _
vbcrlf& s_body & _
vbcrlf& _
vbcrlf&"--------------------------------------------------------" & _
vbcrlf&"更多精彩信息请访问:" & _
vbcrlf& _
vbcrlf& web_dim(1) & _
vbcrlf& web_dim(2) & _
vbcrlf& _
vbcrlf&"欢迎您的光临!" & _
vbcrlf&"--------------------------------------------------------" & _
vbcrlf&"注:本邮件为系统邮件!" & _
vbcrlf&"邮件发送时间:"&joekoe_cms.time_type(joekoe_cms.now_time,2)
send_mail=send_jmail(s_email,"系统邮件:"&s_topic&"(asp126.com)",temp1,"无双网络用户注册信息","nhl3000@126.com")
end function
function send_jmail(j_sendname,j_Subject,j_HTMLBody,j_name,j_email)
on error resume next
dim Jmail
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset="gb2312"
Jmail.Priority=2 '优先级
Jmail.MailServerUserName="nhl3000" '这里换成您的SMTP验证帐号
Jmail.MailServerPassword="********" '这里填写您的SMTP认证密码
Jmail.From=j_email '发信人邮件地址
Jmail.FromName=j_name '发信人姓名
Jmail.Subject=j...
左侧纵向不间断滚动友链for CMS1.0/1.2-友情链接
作者:cmscn 日期:2005-09-06
一个更简洁的左侧连续友链 for 1.2-友情链接
作者:cmscn 日期:2005-09-06
直接插入index.asp即可,无须调用
...