<%
'****************************************************
' 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...

查看更多...

功能 横向的友链太占地方了,而且满足不了多个链接的需求,所以做了这个左侧纵向不间断滚动友链,可以在后台自动生成js

一.添加JS生成
打开admin_links.asp,一步步修改
...

查看更多...

直接插入index.asp即可,无须调用